#include "pdf/pilot.h" subroutine sfmrs_99a2(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 #if defined(CERNLIB_DOUBLE) DOUBLE PRECISION #endif #if defined(CERNLIB_SINGLE) REAL #endif + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ + .00497, .00272, 1.10631, .87038, .00000, + .00000, .46509, .88262, + .00514, .00279, 2.37972, .90598, .00000, + .00000, .50585, .91833, + .00539, .00289, 4.88777, .98332, .00000, + .00000, .59051, .99581, + .00558, .00296, 7.23091, 1.05778, .04540, + .00000, .67007, 1.07035, + .00577, .00304, 10.05866, 1.15386, .15609, + .00000, .77130, 1.16651, + .00594, .00311, 12.97519, 1.25282, .26204, + .00000, .87457, 1.26552, + .00610, .00318, 16.24774, 1.36032, .37892, + .00000, .98611, 1.37307, + .00628, .00326, 20.26178, 1.48888, .52058, + .00000, 1.11885, 1.50168 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00643, .00332, 24.17125, 1.61488, .65315, + .00000, 1.24839, 1.62770, + .00657, .00339, 28.36697, 1.74862, .79427, + .00000, 1.38549, 1.76147, + .00669, .00344, 32.04142, 1.86307, .91742, + .00000, 1.50254, 1.87594, + .00694, .00355, 40.54470, 2.13544, 1.20427, + .02263, 1.78032, 2.14834, + .00715, .00365, 48.54019, 2.39901, 1.47939, + .34594, 2.04838, 2.41192, + .00740, .00376, 58.63090, 2.72890, 1.82403, + .74388, 2.38316, 2.74182, + .00765, .00388, 70.50028, 3.11216, 2.22358, + 1.16181, 2.77136, 3.12508, + .00788, .00399, 82.49915, 3.49661, 2.62372, + 1.58056, 3.16017, 3.50952 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00812, .00410, 95.85857, 3.92237, 3.06660, + 2.04215, 3.59020, 3.93527, + .00832, .00419, 107.87370, 4.30518, 3.46285, + 2.45047, 3.97648, 4.31806, + .00856, .00431, 123.58195, 4.80613, 3.97962, + 2.98090, 4.48153, 4.81898, + .00878, .00441, 138.62471, 5.28496, 4.47423, + 3.49092, 4.96391, 5.29779, + .00898, .00451, 153.38724, 5.75471, 4.95960, + 3.99172, 5.43685, 5.76751, + .00924, .00464, 173.23834, 6.39110, 5.61307, + 4.65950, 6.07719, 6.40386, + .00948, .00475, 193.26999, 7.03451, 6.27423, + 5.33697, 6.72421, 7.04722, + .00971, .00487, 213.33212, 7.67951, 6.93817, + 6.01964, 7.37253, 7.69219 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00994, .00498, 234.26096, 8.36018, 7.63416, + 6.72821, 8.05644, 8.37281, + .01017, .00509, 255.95996, 9.06742, 8.35872, + 7.46882, 8.76679, 9.08000, + .01039, .00520, 277.54135, 9.77425, 9.08257, + 8.20862, 9.47651, 9.78678, + .01059, .00531, 298.60437, 10.47053, 9.79344, + 8.93230, 10.17546, 10.48302, + .01080, .00541, 320.86453, 11.20738, 10.54747, + 9.70291, 10.91495, 11.21983, + .01101, .00552, 343.29434, 11.95900, 11.31324, + 10.48097, 11.66911, 11.97139, + .01121, .00562, 365.69553, 12.70998, 12.08058, + 11.26423, 12.42247, 12.72233, + .01140, .00571, 387.25101, 13.44168, 12.82522, + 12.02022, 13.15639, 13.45398 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01159, .00581, 409.92413, 14.21256, 13.61129, + 12.82078, 13.92947, 14.22482, + .01179, .00591, 432.78207, 14.99709, 14.40965, + 13.63191, 14.71615, 15.00930, + .01197, .00600, 455.25241, 15.77249, 15.19865, + 14.43369, 15.49356, 15.78465, + .01215, .00609, 477.23602, 16.53419, 15.97423, + 15.22276, 16.25714, 16.54631, + .01233, .00618, 499.70901, 17.32157, 16.77381, + 16.03338, 17.04641, 17.33365 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00679, .00363, 1.03840, .74150, .00000, + .00000, .39551, .74868, + .00703, .00373, 2.18801, .77444, .00000, + .00000, .43249, .78168, + .00738, .00388, 4.40202, .84285, .00000, + .00000, .50662, .85016, + .00763, .00399, 6.42818, .90705, .03865, + .00000, .57481, .91441, + .00790, .00411, 8.83149, .98849, .13239, + .00000, .66025, .99590, + .00813, .00421, 11.27380, 1.07125, .22097, + .00000, .74637, 1.07868, + .00835, .00431, 13.98081, 1.16037, .31771, + .00000, .83864, 1.16784, + .00859, .00442, 17.26159, 1.26606, .43392, + .00000, .94758, 1.27355 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00880, .00451, 20.42008, 1.36873, .54167, + .00000, 1.05301, 1.37624, + .00900, .00461, 23.77684, 1.47695, .65554, + .00000, 1.16383, 1.48448, + .00916, .00468, 26.69324, 1.56908, .75433, + .00000, 1.25799, 1.57662, + .00950, .00484, 33.36218, 1.78647, .98241, + .01848, 1.47957, 1.79403, + .00980, .00498, 39.54324, 1.99484, 1.19899, + .27243, 1.69142, 2.00241, + .01013, .00514, 47.24720, 2.25330, 1.46778, + .58306, 1.95368, 2.26088, + .01048, .00531, 56.19357, 2.55074, 1.77638, + .90547, 2.25494, 2.55832, + .01080, .00546, 65.12936, 2.84644, 2.08264, + 1.22552, 2.55401, 2.85403 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01112, .00562, 74.96897, 3.17120, 2.41878, + 1.57525, 2.88209, 3.17878, + .01139, .00576, 83.73049, 3.46099, 2.71721, + 1.88213, 3.17455, 3.46856, + .01172, .00592, 95.07364, 3.83736, 3.10348, + 2.27773, 3.55410, 3.84492, + .01201, .00607, 105.83356, 4.19448, 3.47052, + 2.65536, 3.91396, 4.20204, + .01229, .00620, 116.30534, 4.54257, 3.82840, + 3.02377, 4.26451, 4.55011, + .01263, .00637, 130.25548, 5.01068, 4.30667, + 3.51125, 4.73568, 5.01821, + .01296, .00654, 144.20216, 5.48048, 4.78709, + 4.00228, 5.20827, 5.48799, + .01327, .00670, 158.05371, 5.94832, 5.26642, + 4.49395, 5.67868, 5.95581 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01358, .00685, 172.37700, 6.43861, 5.76536, + 5.00051, 6.17148, 6.44608, + .01389, .00701, 187.11490, 6.94493, 6.28170, + 5.52694, 6.68021, 6.95238, + .01419, .00716, 201.66525, 7.44797, 6.79457, + 6.04976, 7.18547, 7.45540, + .01447, .00730, 215.76253, 7.94061, 7.29530, + 6.55814, 7.68019, 7.94803, + .01475, .00745, 230.57080, 8.45936, 7.82392, + 7.09704, 8.20098, 8.46676, + .01503, .00759, 245.38493, 8.98550, 8.35766, + 7.63787, 8.72909, 8.99287, + .01529, .00773, 260.10025, 9.50881, 8.89024, + 8.18017, 9.25424, 9.51616, + .01555, .00786, 274.16693, 10.01606, 9.40433, + 8.70068, 9.76321, 10.02339 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01581, .00799, 288.89059, 10.54827, 9.94492, + 9.24987, 10.29713, 10.55558, + .01606, .00812, 303.64664, 11.08735, 10.49137, + 9.80362, 10.83786, 11.09464, + .01631, .00825, 318.07877, 11.61793, 11.02923, + 10.34880, 11.37001, 11.62520, + .01654, .00837, 332.13293, 12.13714, 11.55598, + 10.88343, 11.89068, 12.14439, + .01678, .00850, 346.42035, 12.67153, 12.09662, + 11.43012, 12.42653, 12.67876 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00928, .00483, .97583, .63144, .00000, + .00000, .33643, .63503, + .00961, .00498, 2.01314, .66171, .00000, + .00000, .36986, .66533, + .01009, .00520, 3.96590, .72210, .00000, + .00000, .43471, .72575, + .01044, .00537, 5.71569, .77743, .03290, + .00000, .49315, .78111, + .01081, .00554, 7.75479, .84641, .11226, + .00000, .56524, .85011, + .01113, .00569, 9.79576, .91556, .18627, + .00000, .63700, .91927, + .01144, .00584, 12.02979, .98935, .26630, + .00000, .71323, .99308, + .01177, .00600, 14.70443, 1.07611, .36156, + .00000, .80251, 1.07985 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01205, .00614, 17.24896, 1.15960, .44906, + .00000, .88813, 1.16335, + .01233, .00627, 19.92633, 1.24698, .54084, + .00000, .97752, 1.25074, + .01255, .00638, 22.23370, 1.32097, .62000, + .00000, 1.05308, 1.32473, + .01301, .00661, 27.44574, 1.49400, .80111, + .01508, 1.22935, 1.49778, + .01342, .00681, 32.20534, 1.65822, .97134, + .21443, 1.39625, 1.66201, + .01387, .00704, 38.06226, 1.86005, 1.18062, + .45677, 1.60100, 1.86384, + .01435, .00727, 44.77505, 2.09006, 1.41851, + .70533, 1.83395, 2.09385, + .01478, .00749, 51.39793, 2.31663, 1.65241, + .94973, 2.06311, 2.32043 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01523, .00772, 58.60865, 2.56335, 1.90693, + 1.21445, 2.31238, 2.56716, + .01559, .00790, 64.96388, 2.78178, 2.13113, + 1.44482, 2.53287, 2.78559, + .01604, .00813, 73.10967, 3.06331, 2.41907, + 1.73946, 2.81684, 3.06712, + .01644, .00834, 80.76193, 3.32844, 2.69065, + 2.01864, 3.08407, 3.33225, + .01681, .00853, 88.14594, 3.58515, 2.95372, + 2.28921, 3.34267, 3.58896, + .01728, .00877, 97.88839, 3.92780, 3.30263, + 2.64441, 3.68766, 3.93161, + .01773, .00900, 107.53593, 4.26911, 3.65052, + 2.99958, 4.03112, 4.27292, + .01815, .00921, 117.03607, 4.60670, 3.99535, + 3.35291, 4.37068, 4.61051 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01857, .00943, 126.77041, 4.95798, 4.35166, + 3.71416, 4.72387, 4.96178, + .01898, .00965, 136.70889, 5.31848, 4.71820, + 4.08738, 5.08622, 5.32229, + .01938, .00985, 146.44682, 5.67449, 5.08011, + 4.45585, 5.44394, 5.67829, + .01975, .01005, 155.81017, 6.02106, 5.43132, + 4.81193, 5.79209, 6.02486, + .02013, .01025, 165.58516, 6.38415, 5.80031, + 5.18765, 6.15675, 6.38794, + .02051, .01045, 175.29036, 6.75026, 6.17065, + 5.56235, 6.52437, 6.75405, + .02086, .01063, 184.87825, 7.11274, 6.53860, + 5.93657, 6.88826, 7.11653, + .02120, .01081, 193.97990, 7.46222, 6.89181, + 6.29367, 7.23906, 7.46600 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02155, .01099, 203.45938, 7.82736, 7.26179, + 6.66905, 7.60551, 7.83114, + .02189, .01118, 212.90094, 8.19543, 7.63394, + 7.04566, 7.97485, 8.19921, + .02222, .01135, 222.08696, 8.55615, 7.99872, + 7.41491, 8.33678, 8.55993, + .02253, .01151, 230.98996, 8.90777, 8.35462, + 7.77569, 8.68952, 8.91155, + .02285, .01168, 239.98708, 9.26804, 8.71821, + 8.14282, 9.05091, 9.27181 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01114, .00572, .94195, .57468, .00000, + .00000, .30613, .57676, + .01154, .00591, 1.91852, .60339, .00000, + .00000, .33758, .60549, + .01212, .00619, 3.73217, .65948, .00000, + .00000, .39753, .66161, + .01255, .00639, 5.33699, .71018, .02993, + .00000, .45091, .71232, + .01299, .00661, 7.18746, .77275, .10190, + .00000, .51616, .77490, + .01338, .00680, 9.02291, .83496, .16851, + .00000, .58063, .83712, + .01375, .00698, 11.01702, .90099, .24011, + .00000, .64876, .90316, + .01414, .00718, 13.38707, .97822, .32487, + .00000, .72815, .98040 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01449, .00735, 15.62585, 1.05212, .40228, + .00000, .80389, 1.05431, + .01482, .00752, 17.96751, 1.12913, .48313, + .00000, .88262, 1.13132, + .01508, .00765, 19.97586, 1.19412, .55262, + .00000, .94896, 1.19631, + .01565, .00793, 24.47928, 1.34530, .71075, + .01338, 1.10293, 1.34751, + .01613, .00818, 28.55520, 1.48793, .85848, + .18634, 1.24786, 1.49015, + .01668, .00846, 33.53263, 1.66225, 1.03907, + .39583, 1.42468, 1.66448, + .01725, .00875, 39.19286, 1.85975, 1.24314, + .60918, 1.62470, 1.86198, + .01777, .00902, 44.73631, 2.05323, 1.44267, + .81779, 1.82040, 2.05547 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01830, .00929, 50.73115, 2.26285, 1.65868, + 1.04255, 2.03220, 2.26510, + .01874, .00952, 55.98237, 2.44756, 1.84806, + 1.23720, 2.21868, 2.44982, + .01928, .00980, 62.67283, 2.68454, 2.09015, + 1.48497, 2.45774, 2.68680, + .01976, .01004, 68.92151, 2.90671, 2.31749, + 1.71871, 2.68171, 2.90898, + .02020, .01027, 74.92051, 3.12098, 2.53684, + 1.94435, 2.89760, 3.12326, + .02076, .01057, 82.78966, 3.40570, 2.82642, + 2.23916, 3.18431, 3.40798, + .02129, .01085, 90.53770, 3.68804, 3.11390, + 2.53267, 3.46848, 3.69033, + .02179, .01111, 98.12856, 3.96617, 3.39773, + 2.82351, 3.74830, 3.96847 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02229, .01137, 105.86349, 4.25434, 3.68972, + 3.11950, 4.03812, 4.25665, + .02278, .01163, 113.72402, 4.54899, 3.98901, + 3.42424, 4.33434, 4.55130, + .02326, .01188, 121.39097, 4.83891, 4.28347, + 3.72403, 4.62572, 4.84123, + .02370, .01212, 128.72888, 5.12015, 4.56818, + 4.01265, 4.90831, 5.12247, + .02415, .01236, 136.36130, 5.41390, 4.86647, + 4.31636, 5.20340, 5.41623, + .02459, .01259, 143.90433, 5.70905, 5.16474, + 4.61809, 5.49983, 5.71138, + .02502, .01282, 151.33212, 6.00048, 5.46036, + 4.91872, 5.79247, 6.00282, + .02542, .01303, 158.35289, 6.28055, 5.74317, + 5.20459, 6.07367, 6.28290 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02583, .01325, 165.64360, 6.57246, 6.03872, + 5.50443, 6.36670, 6.57481, + .02624, .01347, 172.87773, 6.86584, 6.33513, + 5.80434, 6.66117, 6.86820, + .02663, .01367, 179.89362, 7.15264, 6.62494, + 6.09766, 6.94900, 7.15501, + .02700, .01387, 186.67384, 7.43155, 6.90706, + 6.38364, 7.22887, 7.43393, + .02737, .01407, 193.50090, 7.71654, 7.19447, + 6.67377, 7.51482, 7.71893 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01268, .00645, .91927, .53747, .00000, + .00000, .28635, .53873, + .01314, .00667, 1.85483, .56509, .00000, + .00000, .31644, .56637, + .01381, .00700, 3.57545, .61830, .00000, + .00000, .37313, .61958, + .01429, .00724, 5.08420, .66593, .02798, + .00000, .42318, .66723, + .01480, .00749, 6.81067, .72430, .09512, + .00000, .48397, .72561, + .01524, .00771, 8.51197, .78200, .15692, + .00000, .54370, .78331, + .01567, .00793, 10.35041, .84300, .22305, + .00000, .60658, .84432, + .01612, .00815, 12.52400, .91407, .30105, + .00000, .67961, .91540 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01651, .00835, 14.56671, .98181, .37200, + .00000, .74899, .98314, + .01689, .00855, 16.69413, 1.05216, .44587, + .00000, .82090, 1.05350, + .01719, .00870, 18.51241, 1.11140, .50920, + .00000, .88135, 1.11274, + .01783, .00903, 22.56811, 1.24866, .65274, + .01229, 1.02111, 1.25002, + .01839, .00932, 26.21512, 1.37760, .78626, + .16862, 1.15212, 1.37897, + .01901, .00964, 30.64430, 1.53457, .94883, + .35748, 1.31133, 1.53595, + .01966, .00997, 35.65268, 1.71164, 1.13174, + .54886, 1.49067, 1.71304, + .02025, .01028, 40.53175, 1.88443, 1.30987, + .73523, 1.66544, 1.88583 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02085, .01060, 45.78246, 2.07094, 1.50200, + .93527, 1.85391, 2.07236, + .02135, .01086, 50.36147, 2.23474, 1.66987, + 1.10790, 2.01928, 2.23616, + .02196, .01118, 56.17024, 2.44418, 1.88376, + 1.32690, 2.23059, 2.44562, + .02251, .01147, 61.57271, 2.63991, 2.08396, + 1.53284, 2.42793, 2.64136, + .02301, .01173, 66.74027, 2.82814, 2.27659, + 1.73108, 2.61761, 2.82960, + .02364, .01207, 73.49034, 3.07744, 2.53005, + 1.98921, 2.86870, 3.07892, + .02424, .01238, 80.10910, 3.32386, 2.78088, + 2.24538, 3.11677, 3.32536, + .02481, .01269, 86.56970, 3.56592, 3.02782, + 2.49853, 3.36032, 3.56742 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02538, .01299, 93.12634, 3.81593, 3.28105, + 2.75529, 3.61181, 3.81745, + .02594, .01329, 99.76711, 4.07088, 3.53994, + 3.01897, 3.86817, 4.07241, + .02647, .01357, 106.22301, 4.32109, 3.79399, + 3.27771, 4.11969, 4.32264, + .02697, .01384, 112.38109, 4.56317, 4.03900, + 3.52613, 4.36298, 4.56473, + .02748, .01411, 118.76931, 4.81549, 4.29516, + 3.78703, 4.61649, 4.81706, + .02798, .01438, 125.06142, 5.06836, 4.55062, + 4.04551, 4.87051, 5.06994, + .02846, .01464, 131.24292, 5.31755, 4.80335, + 4.30260, 5.12079, 5.31915, + .02892, .01488, 137.06738, 5.55648, 5.04455, + 4.54644, 5.36072, 5.55809 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02938, .01513, 143.10297, 5.80506, 5.29620, + 4.80181, 5.61030, 5.80668, + .02983, .01537, 149.07483, 6.05437, 5.54802, + 5.05666, 5.86059, 6.05600, + .03027, .01561, 154.85329, 6.29764, 5.79380, + 5.30547, 6.10478, 6.29929, + .03069, .01583, 160.42607, 6.53382, 6.03268, + 5.54767, 6.34182, 6.53548, + .03111, .01606, 166.02213, 6.77467, 6.27552, + 5.79286, 6.58353, 6.77634 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01403, .00708, .90255, .51026, .00000, + .00000, .27193, .51101, + .01453, .00733, 1.80746, .53705, .00000, + .00000, .30100, .53781, + .01527, .00770, 3.45897, .58810, .00000, + .00000, .35527, .58887, + .01581, .00797, 4.89683, .63347, .02655, + .00000, .40288, .63425, + .01638, .00826, 6.53235, .68876, .09016, + .00000, .46040, .68955, + .01687, .00851, 8.13576, .74318, .14846, + .00000, .51669, .74397, + .01734, .00875, 9.86111, .80052, .21063, + .00000, .57577, .80133, + .01784, .00901, 11.89261, .86713, .28374, + .00000, .64419, .86795 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01827, .00923, 13.79410, .93042, .35004, + .00000, .70899, .93124, + .01869, .00945, 15.76777, .99598, .41888, + .00000, .77598, .99681, + .01903, .00962, 17.45008, 1.05108, .47779, + .00000, .83220, 1.05192, + .01974, .00999, 21.18684, 1.17838, .61092, + .01151, .96180, 1.17923, + .02035, .01031, 24.52995, 1.29755, .73432, + .15601, 1.08287, 1.29841, + .02104, .01067, 28.57247, 1.44215, .88409, + .33024, 1.22954, 1.44303, + .02176, .01104, 33.12336, 1.60475, 1.05204, + .50610, 1.39422, 1.60564, + .02241, .01139, 37.53828, 1.76291, 1.21509, + .67681, 1.55421, 1.76381 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02308, .01174, 42.27129, 1.93313, 1.39045, + .85951, 1.72623, 1.93406, + .02363, .01203, 46.38445, 2.08223, 1.54325, + 1.01673, 1.87678, 2.08317, + .02430, .01239, 51.58443, 2.27239, 1.73742, + 1.21566, 2.06865, 2.27334, + .02490, .01271, 56.40479, 2.44964, 1.91872, + 1.40226, 2.24739, 2.45061, + .02545, .01300, 61.00217, 2.61972, 2.09277, + 1.58149, 2.41880, 2.62071, + .02615, .01338, 66.98750, 2.84442, 2.32120, + 1.81423, 2.64513, 2.84542, + .02682, .01373, 72.83736, 3.06595, 2.54669, + 2.04463, 2.86818, 3.06698, + .02744, .01406, 78.53085, 3.28306, 2.76819, + 2.27181, 3.08667, 3.28411 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02806, .01440, 84.29057, 3.50677, 2.99475, + 2.50163, 3.31172, 3.50783, + .02868, .01473, 90.10869, 3.73441, 3.22592, + 2.73718, 3.54066, 3.73550, + .02926, .01504, 95.75011, 3.95737, 3.45231, + 2.96783, 3.76482, 3.95847, + .02982, .01534, 101.11699, 4.17264, 3.67018, + 3.18883, 3.98121, 4.17376, + .03038, .01564, 106.67287, 4.39664, 3.89761, + 3.42056, 4.20631, 4.39778, + .03093, .01594, 112.13026, 4.62068, 4.12394, + 3.64964, 4.43140, 4.62183, + .03145, .01622, 117.48192, 4.84113, 4.34753, + 3.87720, 4.65284, 4.84230, + .03195, .01649, 122.51188, 5.05209, 4.56051, + 4.09258, 4.86473, 5.05328 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03246, .01677, 127.71547, 5.27129, 4.78242, + 4.31786, 5.08485, 5.27250, + .03296, .01704, 132.85260, 5.49076, 5.00411, + 4.54230, 5.30521, 5.49198, + .03344, .01730, 137.81444, 5.70460, 5.22018, + 4.76111, 5.51990, 5.70584, + .03390, .01755, 142.59163, 5.91194, 5.42991, + 4.97384, 5.72803, 5.91320, + .03436, .01780, 147.37839, 6.12305, 5.64277, + 5.18882, 5.93992, 6.12432 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01919, .00950, .85645, .43420, .00000, + .00000, .23186, .43403, + .01989, .00986, 1.67228, .45844, .00000, + .00000, .25790, .45828, + .02092, .01041, 3.12485, .50323, .00000, + .00000, .30523, .50309, + .02166, .01080, 4.36101, .54219, .02254, + .00000, .34595, .54207, + .02244, .01122, 5.74040, .58885, .07625, + .00000, .39438, .58875, + .02312, .01157, 7.07066, .63412, .12481, + .00000, .44111, .63403, + .02377, .01192, 8.48293, .68135, .17606, + .00000, .48971, .68128, + .02445, .01229, 10.12407, .73569, .23575, + .00000, .54547, .73565 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02505, .01261, 11.64052, .78679, .28934, + .00000, .59776, .78676, + .02563, .01292, 13.19767, .83929, .34455, + .00000, .65139, .83928, + .02609, .01316, 14.51352, .88317, .39150, + .00000, .69614, .88317, + .02706, .01369, 17.39745, .98352, .49659, + .00936, .79829, .98356, + .02790, .01414, 19.93550, 1.07645, .59294, + .12232, .89271, 1.07652, + .02884, .01465, 22.96224, 1.18808, .70871, + .25768, 1.00595, 1.18818, + .02983, .01518, 26.32152, 1.31226, .83715, + .39261, 1.13176, 1.31240, + .03072, .01567, 29.53714, 1.43185, .96060, + .52230, 1.25278, 1.43202 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03162, .01616, 32.94241, 1.55939, 1.09215, + .65979, 1.38171, 1.55959, + .03238, .01657, 35.86867, 1.67015, 1.20580, + .77707, 1.49360, 1.67038, + .03329, .01707, 39.52776, 1.81023, 1.34902, + .92422, 1.63502, 1.81050, + .03410, .01751, 42.88403, 1.93976, 1.48168, + 1.06116, 1.76570, 1.94006, + .03484, .01792, 46.05547, 2.06316, 1.60814, + 1.19175, 1.89014, 2.06350, + .03579, .01844, 50.14011, 2.22486, 1.77273, + 1.35989, 2.05311, 2.22524, + .03668, .01893, 54.09083, 2.38300, 1.93391, + 1.52502, 2.21243, 2.38343, + .03752, .01939, 57.90030, 2.53688, 2.09112, + 1.68672, 2.36738, 2.53734 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03837, .01985, 61.71398, 2.69418, 2.25062, + 1.84890, 2.52573, 2.69468, + .03919, .02030, 65.53378, 2.85320, 2.41232, + 2.01409, 2.68576, 2.85374, + .03998, .02074, 69.20650, 3.00793, 2.56966, + 2.17481, 2.84143, 3.00851, + .04072, .02114, 72.67004, 3.15635, 2.72006, + 2.32773, 2.99071, 3.15696, + .04146, .02155, 76.23181, 3.30997, 2.87626, + 2.48731, 3.14519, 3.31062, + .04220, .02196, 79.69936, 3.46260, 3.03066, + 2.64394, 3.29864, 3.46329, + .04290, .02235, 83.08017, 3.61209, 3.18252, + 2.79888, 3.44891, 3.61281, + .04356, .02271, 86.23109, 3.75428, 3.32625, + 2.94455, 3.59182, 3.75504 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04424, .02308, 89.47361, 3.90138, 3.47540, + 3.09634, 3.73964, 3.90217, + .04490, .02345, 92.65116, 4.04787, 3.62358, + 3.24670, 3.88682, 4.04870, + .04554, .02380, 95.70200, 4.18995, 3.76735, + 3.39263, 4.02956, 4.19082, + .04615, .02414, 98.62387, 4.32714, 3.90634, + 3.53395, 4.16737, 4.32803, + .04676, .02448, 101.53013, 4.46610, 4.04665, + 3.67597, 4.30694, 4.46703 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02630, .01285, .82265, .36983, .00000, + .00000, .19827, .36963, + .02727, .01338, 1.55803, .39161, .00000, + .00000, .22150, .39144, + .02870, .01417, 2.83272, .43073, .00000, + .00000, .26267, .43062, + .02973, .01474, 3.89157, .46405, .01908, + .00000, .29741, .46398, + .03081, .01533, 5.04935, .50327, .06428, + .00000, .33805, .50325, + .03174, .01585, 6.14666, .54076, .10458, + .00000, .37672, .54078, + .03263, .01634, 7.29514, .57947, .14665, + .00000, .41653, .57954, + .03358, .01687, 8.61135, .62357, .19518, + .00000, .46177, .62368 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03440, .01733, 9.81110, .66458, .23828, + .00000, .50374, .66473, + .03520, .01777, 11.02912, .70637, .28235, + .00000, .54643, .70655, + .03583, .01812, 12.04907, .74106, .31957, + .00000, .58184, .74128, + .03716, .01886, 14.25288, .81960, .40204, + .00758, .66182, .81989, + .03831, .01950, 16.15846, .89149, .47682, + .09544, .73491, .89184, + .03960, .02022, 18.39773, .97693, .56571, + .20007, .82165, .97734, + .04093, .02097, 20.84586, 1.07090, .66323, + .30302, .91694, 1.07139, + .04215, .02165, 23.15623, 1.16046, .75598, + .40094, 1.00765, 1.16101 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04338, .02233, 25.57114, 1.25503, .85388, + .50375, 1.10335, 1.25566, + .04440, .02290, 27.62164, 1.33643, .93769, + .59065, 1.18566, 1.33711, + .04563, .02360, 30.15571, 1.43847, 1.04237, + .69871, 1.28878, 1.43922, + .04673, .02421, 32.45405, 1.53203, 1.13853, + .79845, 1.38327, 1.53284, + .04773, .02477, 34.60437, 1.62050, 1.22952, + .89286, 1.47258, 1.62137, + .04901, .02549, 37.34178, 1.73541, 1.34689, + 1.01331, 1.58853, 1.73636, + .05021, .02616, 39.95994, 1.84686, 1.46087, + 1.13063, 1.70093, 1.84788, + .05134, .02680, 42.45953, 1.95447, 1.57122, + 1.24467, 1.80941, 1.95556 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05246, .02743, 44.93328, 2.06356, 1.68222, + 1.35803, 1.91935, 2.06472, + .05357, .02805, 47.38851, 2.17308, 1.79397, + 1.47273, 2.02969, 2.17431, + .05461, .02864, 49.72786, 2.27891, 1.90198, + 1.58356, 2.13629, 2.28021, + .05560, .02919, 51.91273, 2.37972, 2.00449, + 1.68825, 2.23780, 2.38108, + .05660, .02975, 54.14371, 2.48349, 2.11038, + 1.79693, 2.34226, 2.48491, + .05757, .03029, 56.29396, 2.58586, 2.21429, + 1.90279, 2.44530, 2.58734, + .05850, .03082, 58.37774, 2.68563, 2.31601, + 2.00706, 2.54571, 2.68717, + .05939, .03131, 60.30131, 2.77991, 2.41164, + 2.10440, 2.64058, 2.78151 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06028, .03181, 62.26973, 2.87701, 2.51045, + 2.20541, 2.73826, 2.87867, + .06116, .03230, 64.18266, 2.97315, 2.60803, + 2.30486, 2.83497, 2.97486, + .06200, .03278, 66.00740, 3.06594, 2.70226, + 2.40093, 2.92830, 3.06771, + .06280, .03322, 67.74481, 3.15514, 2.79296, + 2.49356, 3.01801, 3.15696, + .06361, .03368, 69.45829, 3.24499, 2.88399, + 2.58609, 3.10836, 3.24687 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03167, .01544, .81164, .33722, .00000, + .00000, .18135, .33733, + .03285, .01610, 1.50350, .35759, .00000, + .00000, .20302, .35776, + .03458, .01708, 2.68231, .39362, .00000, + .00000, .24089, .39388, + .03583, .01778, 3.64677, .42394, .01726, + .00000, .27247, .42426, + .03714, .01852, 4.68812, .45926, .05801, + .00000, .30906, .45966, + .03826, .01915, 5.66447, .49272, .09404, + .00000, .34358, .49318, + .03934, .01976, 6.67731, .52705, .13141, + .00000, .37890, .52758, + .04048, .02041, 7.82813, .56592, .17425, + .00000, .41880, .56652 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04147, .02097, 8.86827, .60183, .21206, + .00000, .45556, .60248, + .04243, .02151, 9.91683, .63822, .25052, + .00000, .49277, .63893, + .04318, .02194, 10.78993, .66833, .28288, + .00000, .52351, .66908, + .04479, .02285, 12.65970, .73602, .35415, + .00668, .59251, .73687, + .04617, .02363, 14.25856, .79755, .41831, + .08221, .65511, .79849, + .04771, .02451, 16.12019, .87018, .49409, + .17182, .72892, .87122, + .04931, .02542, 18.13638, .94953, .57666, + .25930, .80944, .95066, + .05076, .02624, 20.02231, 1.02464, .65468, + .34198, .88559, 1.02587 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05223, .02707, 21.97753, 1.10348, .73654, + .42827, .96547, 1.10481, + .05344, .02776, 23.62524, 1.17097, .80624, + .50079, 1.03377, 1.17238, + .05491, .02860, 25.64651, 1.25510, .89282, + .59049, 1.11889, 1.25661, + .05622, .02934, 27.46683, 1.33184, .97193, + .67286, 1.19647, 1.33343, + .05741, .03002, 29.15933, 1.40407, 1.04645, + .75047, 1.26946, 1.40574, + .05893, .03088, 31.29795, 1.49738, 1.14205, + .84893, 1.36371, 1.49915, + .06035, .03169, 33.32899, 1.58739, 1.23440, + .94435, 1.45459, 1.58927, + .06169, .03244, 35.25591, 1.67391, 1.32341, + 1.03668, 1.54190, 1.67587 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06302, .03320, 37.14875, 1.76116, 1.41245, + 1.12794, 1.62992, 1.76321, + .06432, .03394, 39.01664, 1.84836, 1.50172, + 1.21990, 1.71787, 1.85051, + .06556, .03464, 40.78600, 1.93228, 1.58763, + 1.30839, 1.80249, 1.93451, + .06672, .03530, 42.42818, 2.01186, 1.66881, + 1.39160, 1.88271, 2.01418, + .06789, .03596, 44.09756, 2.09350, 1.75239, + 1.47771, 1.96498, 2.09590, + .06904, .03661, 45.69580, 2.17368, 1.83402, + 1.56118, 2.04578, 2.17616, + .07014, .03723, 47.23884, 2.25159, 1.91372, + 1.64318, 2.12427, 2.25415, + .07117, .03782, 48.65408, 2.32491, 1.98831, + 1.71938, 2.19813, 2.32754 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07222, .03841, 50.09723, 2.40021, 2.06519, + 1.79826, 2.27397, 2.40292, + .07325, .03899, 51.49192, 2.47449, 2.14082, + 1.87562, 2.34877, 2.47727, + .07423, .03955, 52.81660, 2.54597, 2.21364, + 1.95013, 2.42074, 2.54882, + .07517, .04008, 54.07318, 2.61450, 2.28354, + 2.02180, 2.48973, 2.61741, + .07612, .04061, 55.30518, 2.68327, 2.35344, + 2.09311, 2.55897, 2.68625 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03618, .01768, .80963, .31630, .00000, + .00000, .17051, .31672, + .03753, .01845, 1.47192, .33569, .00000, + .00000, .19111, .33620, + .03951, .01959, 2.58562, .36961, .00000, + .00000, .22673, .37024, + .04095, .02041, 3.48651, .39790, .01605, + .00000, .25620, .39862, + .04244, .02126, 4.45011, .43062, .05383, + .00000, .29011, .43144, + .04373, .02200, 5.34630, .46142, .08704, + .00000, .32189, .46232, + .04496, .02270, 6.26984, .49287, .12132, + .00000, .35426, .49385, + .04626, .02345, 7.31247, .52832, .16044, + .00000, .39066, .52939 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04739, .02410, 8.24890, .56090, .19481, + .00000, .42405, .56204, + .04848, .02472, 9.18795, .59380, .22964, + .00000, .45770, .59501, + .04934, .02522, 9.96658, .62093, .25886, + .00000, .48543, .62220, + .05117, .02627, 11.62293, .68165, .32292, + .00609, .54737, .68305, + .05274, .02716, 13.02743, .73655, .38029, + .07375, .60328, .73805, + .05449, .02817, 14.65152, .80104, .44773, + .15379, .66887, .80267, + .05630, .02921, 16.39811, .87113, .52084, + .23147, .74006, .87288, + .05795, .03015, 18.02099, .93715, .58960, + .30455, .80706, .93902 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05961, .03110, 19.69320, 1.00615, .66142, + .38048, .87702, 1.00813, + .06099, .03189, 21.09443, 1.06495, .72231, + .44403, .93661, 1.06704, + .06265, .03284, 22.80375, 1.13797, .79765, + .52232, 1.01055, 1.14018, + .06412, .03369, 24.33494, 1.20431, .86623, + .59394, 1.07768, 1.20662, + .06547, .03446, 25.75193, 1.26654, .93061, + .66120, 1.14063, 1.26895, + .06718, .03544, 27.53231, 1.34660, 1.01286, + .74617, 1.22158, 1.34913, + .06878, .03635, 29.21405, 1.42354, 1.09201, + .82820, 1.29934, 1.42619, + .07028, .03721, 30.80203, 1.49723, 1.16803, + .90731, 1.37378, 1.49999 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07178, .03806, 32.35299, 1.57124, 1.24377, + .98518, 1.44853, 1.57411, + .07325, .03890, 33.87680, 1.64499, 1.31947, + 1.06341, 1.52298, 1.64796, + .07463, .03969, 35.31384, 1.71573, 1.39210, + 1.13845, 1.59438, 1.71881, + .07594, .04043, 36.64101, 1.78259, 1.46048, + 1.20877, 1.66185, 1.78577, + .07725, .04118, 37.98569, 1.85100, 1.53073, + 1.28137, 1.73087, 1.85428, + .07854, .04191, 39.26630, 1.91797, 1.59910, + 1.35149, 1.79843, 1.92134, + .07976, .04261, 40.49918, 1.98290, 1.66571, + 1.42025, 1.86391, 1.98636, + .08092, .04327, 41.62417, 2.04381, 1.72784, + 1.48392, 1.92533, 2.04736 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08209, .04393, 42.76834, 2.10624, 1.79176, + 1.54972, 1.98827, 2.10987, + .08324, .04458, 43.86916, 2.16764, 1.85447, + 1.61407, 2.05018, 2.17137, + .08433, .04520, 44.91127, 2.22660, 1.91470, + 1.67590, 2.10961, 2.23041, + .08538, .04580, 45.89693, 2.28301, 1.97242, + 1.73526, 2.16646, 2.28690, + .08643, .04639, 46.85872, 2.33947, 2.02996, + 1.79415, 2.22336, 2.34343 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04016, .01980, .81609, .30199, .00000, + .00000, .16289, .30246, + .04167, .02067, 1.45541, .32063, .00000, + .00000, .18265, .32119, + .04388, .02195, 2.51895, .35292, .00000, + .00000, .21653, .35363, + .04547, .02287, 3.37133, .37966, .01512, + .00000, .24437, .38048, + .04713, .02383, 4.27592, .41040, .05067, + .00000, .27621, .41134, + .04856, .02466, 5.11162, .43919, .08175, + .00000, .30592, .44023, + .04992, .02545, 5.96805, .46848, .11370, + .00000, .33607, .46961, + .05137, .02628, 6.92975, .50137, .15004, + .00000, .36985, .50261 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05262, .02701, 7.78895, .53148, .18184, + .00000, .40071, .53280, + .05382, .02770, 8.64680, .56178, .21398, + .00000, .43172, .56320, + .05478, .02826, 9.35563, .58672, .24088, + .00000, .45721, .58820, + .05680, .02942, 10.85508, .64232, .29962, + .00565, .51395, .64394, + .05853, .03042, 12.11753, .69236, .35201, + .06751, .56494, .69412, + .06046, .03154, 13.56903, .75092, .41336, + .14053, .62453, .75282, + .06246, .03269, 15.12083, .81428, .47958, + .21106, .68893, .81632, + .06428, .03374, 16.55465, .87373, .54161, + .27716, .74930, .87591 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06610, .03479, 18.02445, .93563, .60618, + .34558, .81211, .93795, + .06761, .03566, 19.25017, .98821, .66073, + .40265, .86542, .99064, + .06944, .03671, 20.73854, 1.05328, .72800, + .47272, .93135, 1.05584, + .07106, .03764, 22.06580, 1.11220, .78904, + .53663, .99102, 1.11489, + .07253, .03849, 23.28910, 1.16731, .84618, + .59647, 1.04681, 1.17011, + .07440, .03956, 24.81865, 1.23798, .91893, + .67182, 1.11832, 1.24093, + .07616, .04057, 26.25704, 1.30567, .98872, + .74433, 1.18678, 1.30875, + .07780, .04151, 27.60992, 1.37032, 1.05557, + .81407, 1.25214, 1.37352 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07944, .04245, 28.92475, 1.43504, 1.12194, + .88248, 1.31755, 1.43836, + .08103, .04336, 30.21170, 1.49935, 1.18811, + .95103, 1.38253, 1.50280, + .08255, .04422, 31.42066, 1.56087, 1.25142, + 1.01662, 1.44468, 1.56444, + .08397, .04503, 32.53237, 1.61886, 1.31087, + 1.07790, 1.50326, 1.62254, + .08539, .04585, 33.65549, 1.67808, 1.37182, + 1.14106, 1.56305, 1.68187, + .08679, .04665, 34.72039, 1.73588, 1.43096, + 1.20188, 1.62140, 1.73977, + .08813, .04740, 35.74324, 1.79181, 1.48849, + 1.26142, 1.67786, 1.79581, + .08938, .04812, 36.67242, 1.84414, 1.54200, + 1.31640, 1.73068, 1.84824 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09065, .04884, 37.61539, 1.89769, 1.59697, + 1.37313, 1.78472, 1.90189, + .09190, .04955, 38.51896, 1.95023, 1.65076, + 1.42848, 1.83774, 1.95453, + .09309, .05022, 39.37180, 2.00059, 1.70233, + 1.48156, 1.88855, 2.00498, + .09422, .05086, 40.17644, 2.04868, 1.75167, + 1.53245, 1.93707, 2.05316, + .09536, .05150, 40.95825, 2.09671, 1.80074, + 1.58280, 1.98551, 2.10127 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05585, .02856, .86037, .26286, .00000, + .00000, .14228, .26404, + .05796, .02982, 1.43084, .27921, .00000, + .00000, .15956, .28055, + .06104, .03165, 2.34533, .30670, .00000, + .00000, .18838, .30830, + .06326, .03298, 3.05569, .32896, .01250, + .00000, .21156, .33073, + .06555, .03434, 3.79030, .35405, .04167, + .00000, .23758, .35601, + .06752, .03550, 4.45400, .37715, .06677, + .00000, .26145, .37927, + .06940, .03662, 5.12166, .40037, .09224, + .00000, .28540, .40264, + .07139, .03779, 5.85813, .42612, .12087, + .00000, .31190, .42855 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07310, .03881, 6.50476, .44938, .14562, + .00000, .33581, .45196, + .07475, .03978, 7.14096, .47256, .17037, + .00000, .35959, .47527, + .07605, .04055, 7.66052, .49148, .19094, + .00000, .37898, .49430, + .07880, .04216, 8.73899, .53313, .23529, + .00444, .42161, .53618, + .08114, .04354, 9.62520, .57008, .27430, + .05075, .45937, .57333, + .08374, .04506, 10.62444, .61275, .31938, + .10502, .50293, .61621, + .08644, .04663, 11.67171, .65826, .36738, + .15662, .54934, .66194, + .08886, .04805, 12.62115, .70040, .41176, + .20436, .59228, .70428 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09130, .04947, 13.57749, .74373, .45739, + .25319, .63640, .74782, + .09331, .05064, 14.36206, .78012, .49552, + .29345, .67344, .78438, + .09574, .05204, 15.29941, .82465, .54200, + .34235, .71872, .82911, + .09787, .05328, 16.12249, .86453, .58375, + .38650, .75927, .86917, + .09982, .05440, 16.87079, .90149, .62246, + .42746, .79682, .90629, + .10227, .05582, 17.79066, .94834, .67119, + .47844, .84441, .95334, + .10457, .05714, 18.64212, .99272, .71744, + .52700, .88948, .99792, + .10672, .05837, 19.43190, 1.03471, .76133, + .57328, .93211, 1.04008 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10884, .05958, 20.18582, 1.07626, .80441, + .61815, .97428, 1.08181, + .11091, .06077, 20.91420, 1.11719, .84700, + .66275, 1.01581, 1.12291, + .11287, .06188, 21.58919, 1.15599, .88739, + .70506, 1.05518, 1.16188, + .11469, .06292, 22.20026, 1.19222, .92496, + .74421, 1.09193, 1.19826, + .11653, .06397, 22.81151, 1.22896, .96322, + .78431, 1.12919, 1.23516, + .11832, .06498, 23.38105, 1.26447, .99998, + .82253, 1.16520, 1.27081, + .12002, .06595, 23.92372, 1.29862, 1.03553, + .85976, 1.19983, 1.30510, + .12162, .06685, 24.40809, 1.33027, 1.06829, + .89380, 1.23193, 1.33689 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12323, .06776, 24.89588, 1.36248, 1.10177, + .92876, 1.26459, 1.36924, + .12481, .06865, 25.35619, 1.39383, 1.13426, + .96258, 1.29637, 1.40071, + .12632, .06950, 25.78596, 1.42368, 1.16522, + .99483, 1.32663, 1.43069, + .12774, .07030, 26.18771, 1.45202, 1.19468, + 1.02558, 1.35537, 1.45915, + .12917, .07110, 26.57134, 1.48009, 1.22372, + 1.05574, 1.38382, 1.48733 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07868, .04251, .97178, .23266, .00000, + .00000, .12624, .23515, + .08164, .04430, 1.47116, .24678, .00000, + .00000, .14117, .24954, + .08594, .04689, 2.23810, .26972, .00000, + .00000, .16527, .27288, + .08902, .04875, 2.81292, .28783, .01016, + .00000, .18420, .29127, + .09218, .05064, 3.39068, .30782, .03369, + .00000, .20501, .31155, + .09488, .05225, 3.89968, .32587, .05356, + .00000, .22375, .32985, + .09746, .05378, 4.40090, .34375, .07345, + .00000, .24229, .34797, + .10017, .05539, 4.94262, .36332, .09549, + .00000, .26254, .36779 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10249, .05676, 5.40899, .38074, .11428, + .00000, .28054, .38542, + .10472, .05808, 5.86008, .39788, .13286, + .00000, .29823, .40277, + .10648, .05911, 6.22348, .41175, .14817, + .00000, .31253, .41681, + .11018, .06128, 6.96104, .44185, .18071, + .00340, .34352, .44724, + .11330, .06311, 7.54927, .46812, .20888, + .03715, .37054, .47379, + .11676, .06512, 8.19735, .49797, .24095, + .07635, .40122, .50396, + .12032, .06718, 8.86066, .52930, .27456, + .11297, .43339, .53562, + .12352, .06903, 9.44835, .55787, .30518, + .14636, .46270, .56447 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12671, .07087, 10.02786, .58683, .33623, + .18006, .49240, .59372, + .12933, .07237, 10.49381, .61082, .36183, + .20748, .51700, .61794, + .13247, .07416, 11.03925, .63979, .39266, + .24038, .54669, .64719, + .13523, .07573, 11.50912, .66541, .42000, + .26974, .57294, .67306, + .13773, .07716, 11.92907, .68888, .44509, + .29670, .59699, .69676, + .14087, .07893, 12.43376, .71824, .47625, + .32981, .62705, .72639, + .14379, .08058, 12.89141, .74570, .50548, + .36098, .65517, .75411, + .14651, .08211, 13.30834, .77138, .53291, + .39038, .68147, .78004 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14919, .08361, 13.69650, .79645, .55947, + .41851, .70714, .80534, + .15179, .08506, 14.06512, .82088, .58547, + .44620, .73216, .82999, + .15423, .08642, 14.40045, .84379, .60988, + .47221, .75562, .85312, + .15651, .08769, 14.69704, .86493, .63233, + .49602, .77727, .87446, + .15879, .08895, 14.98985, .88619, .65502, + .52024, .79905, .89592, + .16099, .09016, 15.25549, .90649, .67655, + .54304, .81983, .91640, + .16309, .09132, 15.50607, .92588, .69726, + .56512, .83970, .93597, + .16504, .09239, 15.72301, .94363, .71610, + .58508, .85788, .95389 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16701, .09347, 15.93920, .96157, .73525, + .60546, .87627, .97200, + .16893, .09452, 16.13824, .97885, .75366, + .62500, .89399, .98945, + .17076, .09551, 16.32100, .99518, .77106, + .64349, .91072, 1.00593, + .17248, .09645, 16.48938, 1.01057, .78751, + .66101, .92650, 1.02147, + .17420, .09738, 16.64503, 1.02564, .80356, + .67802, .94196, 1.03668 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09696, .05430, 1.07530, .21824, .00000, + .00000, .11866, .22210, + .10056, .05647, 1.52653, .23099, .00000, + .00000, .13221, .23521, + .10576, .05960, 2.20446, .25130, .00000, + .00000, .15366, .25603, + .10947, .06181, 2.70099, .26707, .00890, + .00000, .17023, .27216, + .11327, .06406, 3.19085, .28424, .02941, + .00000, .18821, .28971, + .11650, .06597, 3.61552, .29955, .04653, + .00000, .20422, .30534, + .11957, .06777, 4.02789, .31459, .06349, + .00000, .21990, .32067, + .12279, .06966, 4.46771, .33088, .08214, + .00000, .23687, .33727 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12555, .07128, 4.84153, .34525, .09787, + .00000, .25182, .35191, + .12819, .07281, 5.19906, .35928, .11333, + .00000, .26640, .36619, + .13027, .07402, 5.48452, .37057, .12598, + .00000, .27812, .37767, + .13461, .07653, 6.05489, .39482, .15265, + .00288, .30327, .40234, + .13827, .07863, 6.50008, .41575, .17548, + .03044, .32496, .42362, + .14230, .08094, 6.98276, .43931, .20124, + .06230, .34935, .44755, + .14644, .08329, 7.46867, .46375, .22794, + .09171, .37464, .47238, + .15014, .08539, 7.89232, .48580, .25203, + .11828, .39745, .49478 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15382, .08746, 8.30384, .50794, .27624, + .14486, .42035, .51726, + .15682, .08915, 8.62972, .52612, .29604, + .16631, .43915, .53572, + .16042, .09116, 9.00551, .54787, .31966, + .19184, .46163, .55779, + .16356, .09291, 9.32459, .56694, .34045, + .21444, .48135, .57715, + .16641, .09449, 9.60606, .58428, .35940, + .23506, .49928, .59475, + .16996, .09645, 9.93866, .60576, .38271, + .26016, .52148, .61654, + .17326, .09826, 10.23544, .62566, .40440, + .28362, .54207, .63674, + .17632, .09994, 10.50199, .64414, .42462, + .30560, .56118, .65549 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17931, .10157, 10.74483, .66199, .44401, + .32643, .57966, .67361, + .18221, .10314, 10.97214, .67927, .46287, + .34682, .59753, .69113, + .18493, .10461, 11.17556, .69534, .48045, + .36584, .61418, .70745, + .18745, .10596, 11.35169, .71005, .49650, + .38312, .62941, .72237, + .18997, .10732, 11.52371, .72477, .51264, + .40061, .64466, .73731, + .19240, .10861, 11.67565, .73867, .52782, + .41695, .65907, .75142, + .19470, .10984, 11.81783, .75189, .54236, + .43272, .67278, .76484, + .19684, .11097, 11.93712, .76387, .55548, + .44686, .68522, .77700 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19899, .11211, 12.05493, .77594, .56876, + .46125, .69775, .78925, + .20108, .11322, 12.16033, .78747, .58143, + .47494, .70972, .80095, + .20306, .11425, 12.25532, .79829, .59336, + .48784, .72097, .81194, + .20493, .11523, 12.34145, .80845, .60458, + .50002, .73153, .82225, + .20678, .11620, 12.41778, .81830, .61544, + .51176, .74178, .83226 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11301, .06493, 1.16557, .20925, .00000, + .00000, .11399, .21453, + .11713, .06739, 1.58011, .22098, .00000, + .00000, .12653, .22668, + .12307, .07090, 2.19209, .23938, .00000, + .00000, .14609, .24569, + .12729, .07339, 2.63254, .25349, .00804, + .00000, .16102, .26022, + .13159, .07590, 3.06086, .26869, .02650, + .00000, .17706, .27587, + .13523, .07802, 3.42774, .28213, .04177, + .00000, .19120, .28967, + .13869, .08002, 3.78019, .29523, .05679, + .00000, .20496, .30310, + .14232, .08212, 4.15228, .30932, .07319, + .00000, .21975, .31755 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14541, .08389, 4.46541, .32166, .08693, + .00000, .23268, .33019, + .14836, .08558, 4.76228, .33363, .10035, + .00000, .24522, .34245, + .15068, .08690, 4.99766, .34321, .11129, + .00000, .25525, .35226, + .15551, .08964, 5.46199, .36366, .13418, + .00253, .27662, .37317, + .15957, .09193, 5.81788, .38116, .15363, + .02617, .29490, .39106, + .16403, .09443, 6.19869, .40069, .17539, + .05337, .31530, .41102, + .16858, .09696, 6.57695, .42078, .19778, + .07827, .33627, .43153, + .17264, .09921, 6.90231, .43875, .21783, + .10060, .35503, .44988 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17667, .10143, 7.21433, .45666, .23784, + .12279, .37372, .46817, + .17995, .10323, 7.45827, .47125, .25408, + .14058, .38896, .48306, + .18385, .10536, 7.73589, .48859, .27334, + .16163, .40706, .50075, + .18726, .10720, 7.96866, .50368, .29019, + .18016, .42283, .51616, + .19034, .10887, 8.17162, .51732, .30546, + .19696, .43708, .53008, + .19417, .11092, 8.40754, .53408, .32412, + .21730, .45460, .54717, + .19770, .11281, 8.61491, .54950, .34136, + .23619, .47073, .56291, + .20097, .11455, 8.79872, .56372, .35735, + .25379, .48561, .57742 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20417, .11624, 8.96251, .57735, .37257, + .27036, .49989, .59132, + .20725, .11786, 9.11366, .59045, .38730, + .28650, .51362, .60469, + .21013, .11937, 9.24670, .60257, .40096, + .30149, .52633, .61706, + .21280, .12075, 9.35920, .61357, .41334, + .31502, .53788, .62829, + .21546, .12213, 9.46784, .62453, .42574, + .32867, .54940, .63947, + .21801, .12345, 9.56074, .63479, .43733, + .34134, .56019, .64994, + .22042, .12469, 9.64695, .64452, .44839, + .35353, .57043, .65987, + .22265, .12584, 9.71638, .65326, .45831, + .36439, .57964, .66879 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22490, .12698, 9.78426, .66202, .46832, + .37541, .58888, .67774, + .22707, .12808, 9.84262, .67033, .47780, + .38585, .59766, .68623, + .22912, .12912, 9.89386, .67809, .48669, + .39564, .60587, .69415, + .23105, .13010, 9.93929, .68534, .49503, + .40485, .61354, .70156, + .23296, .13106, 9.97684, .69231, .50304, + .41368, .62092, .70868 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12767, .07473, 1.24300, .20274, .00000, + .00000, .11068, .20947, + .13223, .07742, 1.62686, .21363, .00000, + .00000, .12240, .22084, + .13879, .08124, 2.18573, .23050, .00000, + .00000, .14048, .23839, + .14343, .08394, 2.58222, .24331, .00739, + .00000, .15414, .25168, + .14815, .08665, 2.96315, .25700, .02431, + .00000, .16869, .26585, + .15214, .08893, 3.28631, .26901, .03819, + .00000, .18143, .27826, + .15591, .09107, 3.59402, .28064, .05177, + .00000, .19375, .29027, + .15986, .09331, 3.91614, .29308, .06652, + .00000, .20692, .30310 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16322, .09520, 4.18493, .30391, .07879, + .00000, .21836, .31426, + .16641, .09700, 4.43791, .31436, .09073, + .00000, .22940, .32502, + .16893, .09840, 4.63734, .32269, .10043, + .00000, .23820, .33360, + .17415, .10130, 5.02634, .34036, .12060, + .00228, .25684, .35177, + .17851, .10371, 5.31957, .35538, .13763, + .02310, .27267, .36721, + .18330, .10633, 5.62969, .37202, .15657, + .04700, .29021, .38430, + .18817, .10898, 5.93421, .38902, .17592, + .06871, .30813, .40175, + .19249, .11132, 6.19298, .40412, .19314, + .08807, .32405, .41725 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19677, .11362, 6.43815, .41906, .21023, + .10720, .33981, .43259, + .20025, .11548, 6.62758, .43116, .22402, + .12246, .35258, .44501, + .20438, .11767, 6.84055, .44544, .24029, + .14042, .36766, .45965, + .20797, .11957, 7.01695, .45780, .25445, + .15616, .38072, .47233, + .21120, .12127, 7.16898, .46891, .26723, + .17037, .39247, .48373, + .21521, .12336, 7.34273, .48246, .28274, + .18747, .40682, .49763, + .21891, .12527, 7.49313, .49486, .29701, + .20328, .41995, .51035, + .22232, .12704, 7.62462, .50622, .31017, + .21795, .43200, .52200 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22563, .12873, 7.73899, .51702, .32262, + .23168, .44347, .53308, + .22883, .13036, 7.84291, .52735, .33462, + .24501, .45446, .54368, + .23181, .13187, 7.93266, .53685, .34570, + .25732, .46458, .55343, + .23455, .13325, 8.00640, .54541, .35568, + .26839, .47371, .56222, + .23727, .13462, 8.07669, .55390, .36565, + .27952, .48278, .57093, + .23989, .13592, 8.13397, .56179, .37491, + .28980, .49122, .57903, + .24236, .13714, 8.18656, .56924, .38372, + .29966, .49920, .58668, + .24463, .13826, 8.22652, .57587, .39157, + .30840, .50632, .59349 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24691, .13938, 8.26506, .58251, .39948, + .31725, .51346, .60030, + .24912, .14046, 8.29601, .58875, .40693, + .32559, .52018, .60672, + .25119, .14147, 8.32191, .59456, .41389, + .33339, .52645, .61268, + .25314, .14241, 8.34394, .59995, .42039, + .34071, .53228, .61823, + .25507, .14334, 8.35953, .60509, .42660, + .34769, .53785, .62351 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15435, .09263, 1.36579, .19332, .00000, + .00000, .10604, .20299, + .15963, .09564, 1.69911, .20284, .00000, + .00000, .11646, .21306, + .16718, .09989, 2.17408, .21731, .00000, + .00000, .13223, .22832, + .17249, .10287, 2.50335, .22812, .00643, + .00000, .14397, .23967, + .17785, .10584, 2.81342, .23952, .02106, + .00000, .15631, .25162, + .18237, .10832, 3.07237, .24939, .03293, + .00000, .16697, .26195, + .18663, .11065, 3.31543, .25886, .04443, + .00000, .17720, .27184, + .19106, .11307, 3.56637, .26890, .05681, + .00000, .18802, .28231 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19482, .11510, 3.77293, .27754, .06702, + .00000, .19734, .29132, + .19838, .11702, 3.96497, .28581, .07688, + .00000, .20625, .29993, + .20117, .11851, 4.11490, .29237, .08483, + .00000, .21332, .30676, + .20695, .12159, 4.40145, .30613, .10124, + .00192, .22813, .32107, + .21174, .12411, 4.61095, .31769, .11494, + .01887, .24057, .33307, + .21697, .12685, 4.82778, .33036, .13003, + .03823, .25421, .34621, + .22227, .12960, 5.03606, .34312, .14528, + .05562, .26797, .35946, + .22695, .13200, 5.20915, .35432, .15873, + .07098, .28007, .37108 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23155, .13435, 5.36957, .36529, .17194, + .08603, .29192, .38245, + .23527, .13623, 5.49045, .37406, .18251, + .09794, .30142, .39155, + .23966, .13844, 5.62298, .38431, .19486, + .11183, .31252, .40216, + .24345, .14033, 5.73009, .39308, .20553, + .12391, .32205, .41126, + .24686, .14202, 5.82023, .40089, .21507, + .13475, .33055, .41935, + .25106, .14408, 5.91909, .41029, .22656, + .14768, .34080, .42909, + .25491, .14596, 6.00164, .41879, .23702, + .15954, .35009, .43790, + .25844, .14767, 6.07151, .42650, .24661, + .17047, .35855, .44590 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26185, .14930, 6.12828, .43371, .25558, + .18060, .36648, .45337, + .26512, .15086, 6.17762, .44054, .26415, + .19037, .37401, .46045, + .26815, .15230, 6.21777, .44676, .27201, + .19933, .38088, .46689, + .27093, .15359, 6.24755, .45227, .27902, + .20733, .38700, .47262, + .27368, .15488, 6.27464, .45771, .28600, + .21533, .39305, .47826, + .27630, .15608, 6.29286, .46266, .29239, + .22265, .39859, .48340, + .27877, .15722, 6.30888, .46732, .29846, + .22965, .40381, .48823, + .28102, .15824, 6.31684, .47138, .30381, + .23580, .40840, .49245 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28328, .15926, 6.32363, .47543, .30916, + .24199, .41297, .49665, + .28544, .16023, 6.32539, .47916, .31417, + .24779, .41721, .50054, + .28748, .16114, 6.32461, .48260, .31881, + .25318, .42113, .50411, + .28938, .16198, 6.32216, .48576, .32312, + .25821, .42476, .50740, + .29124, .16280, 6.31505, .48871, .32720, + .26297, .42817, .51047 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .19033, .11648, 1.48770, .18316, .00000, + .00000, .10127, .19724, + .19639, .11975, 1.76180, .19104, .00000, + .00000, .11018, .20574, + .20499, .12434, 2.14322, .20278, .00000, + .00000, .12339, .21835, + .21100, .12752, 2.40063, .21140, .00542, + .00000, .13304, .22757, + .21702, .13066, 2.63697, .22036, .01768, + .00000, .14305, .23710, + .22206, .13327, 2.83079, .22800, .02751, + .00000, .15158, .24523, + .22678, .13570, 3.00968, .23525, .03692, + .00000, .15967, .25291, + .23167, .13820, 3.19134, .24284, .04695, + .00000, .16814, .26096 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23580, .14030, 3.33827, .24930, .05514, + .00000, .17535, .26779, + .23969, .14226, 3.47276, .25542, .06298, + .00000, .18218, .27427, + .24273, .14378, 3.57650, .26024, .06927, + .00000, .18756, .27936, + .24897, .14687, 3.76922, .27022, .08210, + .00157, .19871, .28988, + .25411, .14939, 3.90364, .27848, .09269, + .01487, .20794, .29858, + .25968, .15209, 4.03854, .28740, .10422, + .02998, .21794, .30797, + .26527, .15477, 4.16403, .29624, .11574, + .04339, .22788, .31727, + .27016, .15710, 4.26461, .30388, .12577, + .05510, .23649, .32530 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27494, .15934, 4.35438, .31125, .13552, + .06646, .24482, .33304, + .27878, .16112, 4.41930, .31705, .14324, + .07537, .25142, .33914, + .28327, .16319, 4.48686, .32371, .15217, + .08567, .25901, .34613, + .28713, .16494, 4.53881, .32934, .15980, + .09455, .26545, .35203, + .29057, .16649, 4.58040, .33428, .16657, + .10245, .27114, .35722, + .29477, .16835, 4.62176, .34011, .17462, + .11178, .27788, .36334, + .29859, .17003, 4.65303, .34528, .18188, + .12026, .28391, .36877, + .30207, .17154, 4.67691, .34991, .18847, + .12801, .28933, .37363 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30539, .17296, 4.69149, .35412, .19455, + .13512, .29431, .37805, + .30856, .17431, 4.70151, .35805, .20032, + .14192, .29898, .38218, + .31147, .17553, 4.70659, .36156, .20555, + .14812, .30319, .38586, + .31411, .17661, 4.70585, .36459, .21016, + .15358, .30687, .38905, + .31672, .17768, 4.70330, .36755, .21471, + .15903, .31047, .39215, + .31916, .17866, 4.69513, .37015, .21883, + .16395, .31370, .39488, + .32147, .17958, 4.68665, .37257, .22272, + .16863, .31671, .39742, + .32354, .18040, 4.67403, .37461, .22608, + .17270, .31929, .39956 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32561, .18120, 4.66070, .37661, .22944, + .17678, .32184, .40166, + .32757, .18195, 4.64431, .37839, .23254, + .18056, .32415, .40353, + .32941, .18265, 4.62718, .37998, .23538, + .18406, .32625, .40521, + .33112, .18328, 4.60993, .38142, .23801, + .18730, .32817, .40673, + .33277, .18389, 4.58947, .38268, .24045, + .19032, .32991, .40806 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24406, .15077, 1.57748, .16994, .00000, + .00000, .09542, .19114, + .25090, .15413, 1.77948, .17574, .00000, + .00000, .10241, .19758, + .26049, .15877, 2.05243, .18419, .00000, + .00000, .11255, .20686, + .26712, .16193, 2.23024, .19025, .00430, + .00000, .11981, .21349, + .27368, .16502, 2.38745, .19644, .01393, + .00000, .12720, .22022, + .27912, .16754, 2.51330, .20163, .02154, + .00000, .13339, .22585, + .28418, .16987, 2.62682, .20647, .02874, + .00000, .13918, .23109, + .28938, .17223, 2.73945, .21146, .03632, + .00000, .14517, .23648 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29373, .17418, 2.82823, .21564, .04243, + .00000, .15020, .24098, + .29780, .17599, 2.90761, .21955, .04823, + .00000, .15490, .24518, + .30095, .17739, 2.96778, .22259, .05285, + .00000, .15857, .24844, + .30737, .18017, 3.07382, .22878, .06214, + .00121, .16606, .25508, + .31258, .18240, 3.14080, .23380, .06971, + .01091, .17215, .26044, + .31816, .18474, 3.20394, .23910, .07783, + .02187, .17863, .26608, + .32368, .18702, 3.25861, .24421, .08583, + .03144, .18494, .27153, + .32845, .18895, 3.29858, .24852, .09269, + .03970, .19030, .27610 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33305, .19077, 3.33065, .25256, .09927, + .04762, .19539, .28039, + .33669, .19219, 3.35079, .25566, .10442, + .05376, .19934, .28367, + .34090, .19379, 3.36767, .25911, .11029, + .06078, .20379, .28732, + .34447, .19513, 3.37743, .26194, .11524, + .06676, .20749, .29031, + .34762, .19628, 3.38247, .26436, .11958, + .07204, .21070, .29286, + .35139, .19762, 3.38158, .26709, .12467, + .07819, .21440, .29573, + .35476, .19880, 3.37607, .26942, .12918, + .08372, .21763, .29818, + .35780, .19983, 3.36771, .27144, .13323, + .08872, .22047, .30029 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36065, .20075, 3.35369, .27314, .13690, + .09324, .22298, .30207, + .36333, .20160, 3.33766, .27468, .14034, + .09753, .22529, .30367, + .36574, .20235, 3.32008, .27598, .14341, + .10139, .22731, .30502, + .36789, .20299, 3.30036, .27701, .14607, + .10475, .22900, .30608, + .36999, .20360, 3.27976, .27797, .14867, + .10807, .23062, .30707, + .37192, .20412, 3.25626, .27870, .15097, + .11103, .23200, .30782, + .37372, .20460, 3.23380, .27937, .15313, + .11383, .23327, .30850, + .37529, .20499, 3.20996, .27981, .15495, + .11622, .23427, .30894 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37684, .20538, 3.18584, .28023, .15675, + .11861, .23524, .30935, + .37828, .20571, 3.16039, .28052, .15838, + .12079, .23606, .30962, + .37961, .20599, 3.13550, .28072, .15985, + .12278, .23678, .30981, + .38083, .20624, 3.11153, .28087, .16119, + .12461, .23740, .30994, + .38197, .20645, 3.08570, .28089, .16239, + .12629, .23790, .30993 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29280, .18008, 1.57825, .15831, .00000, + .00000, .09047, .18610, + .29995, .18325, 1.72940, .16255, .00000, + .00000, .09602, .19086, + .30987, .18754, 1.92892, .16861, .00000, + .00000, .10392, .19762, + .31665, .19043, 2.05503, .17291, .00352, + .00000, .10949, .20236, + .32329, .19318, 2.16242, .17722, .01136, + .00000, .11511, .20709, + .32875, .19541, 2.24657, .18078, .01750, + .00000, .11975, .21097, + .33378, .19743, 2.32090, .18405, .02326, + .00000, .12404, .21453, + .33891, .19946, 2.39301, .18739, .02927, + .00000, .12843, .21814 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34314, .20111, 2.44831, .19014, .03408, + .00000, .13207, .22110, + .34707, .20261, 2.49649, .19268, .03861, + .00000, .13544, .22381, + .35011, .20377, 2.53234, .19463, .04219, + .00000, .13806, .22590, + .35622, .20601, 2.59122, .19854, .04934, + .00097, .14332, .23008, + .36110, .20775, 2.62285, .20163, .05510, + .00848, .14754, .23335, + .36626, .20954, 2.64930, .20482, .06122, + .01693, .15194, .23670, + .37128, .21122, 2.66868, .20781, .06718, + .02423, .15616, .23983, + .37556, .21260, 2.67927, .21023, .07224, + .03048, .15967, .24235 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37962, .21385, 2.68406, .21243, .07705, + .03641, .16293, .24461, + .38279, .21480, 2.68342, .21404, .08076, + .04097, .16541, .24626, + .38638, .21581, 2.67751, .21576, .08495, + .04613, .16815, .24800, + .38937, .21662, 2.66880, .21711, .08845, + .05051, .17037, .24935, + .39198, .21729, 2.65823, .21820, .09149, + .05434, .17225, .25045, + .39502, .21800, 2.64003, .21933, .09500, + .05875, .17435, .25155, + .39770, .21858, 2.61996, .22021, .09809, + .06268, .17613, .25237, + .40007, .21906, 2.59924, .22090, .10082, + .06621, .17763, .25301 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40220, .21944, 2.57493, .22138, .10326, + .06937, .17891, .25340, + .40416, .21974, 2.54985, .22173, .10551, + .07233, .18002, .25367, + .40590, .21997, 2.52473, .22195, .10750, + .07498, .18095, .25380, + .40740, .22011, 2.49919, .22201, .10920, + .07726, .18166, .25377, + .40884, .22023, 2.47332, .22203, .11084, + .07950, .18233, .25370, + .41008, .22027, 2.44586, .22190, .11226, + .08147, .18281, .25346, + .41123, .22030, 2.41996, .22176, .11358, + .08332, .18325, .25320, + .41218, .22026, 2.39389, .22149, .11466, + .08488, .18352, .25282 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41311, .22020, 2.36779, .22120, .11573, + .08643, .18376, .25241, + .41393, .22009, 2.34115, .22082, .11666, + .08783, .18390, .25192, + .41464, .21997, 2.31555, .22041, .11749, + .08909, .18398, .25140, + .41529, .21984, 2.29121, .22000, .11824, + .09024, .18402, .25087, + .41583, .21965, 2.26568, .21949, .11889, + .09128, .18396, .25023 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .37965, .22768, 1.44969, .13699, .00000, + .00000, .08138, .17552, + .38647, .22998, 1.53813, .13913, .00000, + .00000, .08488, .17781, + .39573, .23294, 1.65047, .14209, .00000, + .00000, .08978, .18093, + .40187, .23483, 1.71754, .14415, .00251, + .00000, .09317, .18302, + .40775, .23653, 1.77004, .14615, .00806, + .00000, .09650, .18505, + .41246, .23782, 1.80925, .14776, .01235, + .00000, .09920, .18662, + .41671, .23894, 1.84227, .14919, .01633, + .00000, .10166, .18800, + .42097, .24001, 1.87257, .15060, .02044, + .00000, .10412, .18933 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42441, .24080, 1.89400, .15171, .02368, + .00000, .10612, .19035, + .42752, .24148, 1.91117, .15269, .02671, + .00000, .10794, .19124, + .42989, .24196, 1.92320, .15343, .02909, + .00000, .10933, .19190, + .43448, .24282, 1.93727, .15484, .03378, + .00069, .11205, .19308, + .43800, .24335, 1.93696, .15586, .03749, + .00564, .11416, .19389, + .44157, .24378, 1.93114, .15680, .04138, + .01119, .11629, .19458, + .44488, .24406, 1.92045, .15756, .04510, + .01592, .11822, .19504, + .44755, .24416, 1.90689, .15807, .04821, + .01991, .11975, .19526 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44994, .24413, 1.89006, .15841, .05111, + .02365, .12110, .19529, + .45169, .24401, 1.87364, .15857, .05331, + .02649, .12206, .19517, + .45353, .24374, 1.85103, .15860, .05575, + .02966, .12303, .19487, + .45494, .24342, 1.82939, .15852, .05776, + .03231, .12376, .19449, + .45608, .24307, 1.80839, .15837, .05947, + .03460, .12432, .19404, + .45725, .24248, 1.77942, .15801, .06140, + .03720, .12485, .19330, + .45813, .24185, 1.75100, .15758, .06306, + .03949, .12522, .19249, + .45880, .24122, 1.72377, .15710, .06450, + .04151, .12547, .19166 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45922, .24049, 1.69491, .15649, .06574, + .04328, .12556, .19068, + .45951, .23971, 1.66640, .15583, .06686, + .04493, .12558, .18967, + .45968, .23892, 1.63904, .15514, .06783, + .04637, .12552, .18865, + .45966, .23812, 1.61256, .15441, .06862, + .04759, .12536, .18760, + .45959, .23731, 1.58621, .15367, .06937, + .04877, .12518, .18653, + .45934, .23643, 1.55953, .15285, .06998, + .04979, .12489, .18538, + .45908, .23560, 1.53463, .15206, .07054, + .05073, .12461, .18430, + .45867, .23475, 1.51045, .15125, .07097, + .05150, .12425, .18319 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45824, .23389, 1.48648, .15042, .07139, + .05227, .12388, .18207, + .45771, .23300, 1.46257, .14956, .07172, + .05293, .12347, .18091, + .45716, .23213, 1.43992, .14872, .07200, + .05352, .12304, .17978, + .45659, .23130, 1.41863, .14791, .07224, + .05405, .12262, .17871, + .45591, .23041, 1.39684, .14704, .07241, + .05450, .12213, .17757 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45489, .26380, 1.26402, .11770, .00000, + .00000, .07277, .16328, + .46053, .26487, 1.32047, .11862, .00000, + .00000, .07500, .16387, + .46785, .26607, 1.38969, .11985, .00000, + .00000, .07804, .16458, + .47256, .26667, 1.42871, .12068, .00190, + .00000, .08011, .16499, + .47686, .26706, 1.45610, .12146, .00607, + .00000, .08213, .16531, + .48017, .26721, 1.47518, .12203, .00927, + .00000, .08372, .16548, + .48307, .26724, 1.49005, .12250, .01221, + .00000, .08513, .16554, + .48586, .26717, 1.50236, .12293, .01523, + .00000, .08652, .16553 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .48799, .26699, 1.50946, .12321, .01759, + .00000, .08762, .16542, + .48982, .26674, 1.51379, .12344, .01977, + .00000, .08860, .16525, + .49117, .26649, 1.51609, .12359, .02148, + .00000, .08933, .16509, + .49358, .26580, 1.51263, .12378, .02481, + .00052, .09070, .16462, + .49520, .26504, 1.50076, .12383, .02741, + .00405, .09172, .16408, + .49664, .26404, 1.48384, .12374, .03011, + .00801, .09268, .16333, + .49771, .26285, 1.46332, .12349, .03265, + .01134, .09348, .16240, + .49833, .26166, 1.44231, .12315, .03474, + .01411, .09403, .16143 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .49867, .26035, 1.41925, .12271, .03667, + .01669, .09444, .16035, + .49871, .25917, 1.39866, .12225, .03810, + .01862, .09468, .15935, + .49848, .25766, 1.37218, .12159, .03967, + .02075, .09483, .15805, + .49807, .25626, 1.34798, .12094, .04093, + .02252, .09487, .15684, + .49755, .25493, 1.32530, .12030, .04200, + .02403, .09484, .15568, + .49660, .25314, 1.29526, .11938, .04317, + .02572, .09467, .15410, + .49553, .25140, 1.26664, .11846, .04415, + .02719, .09443, .15257, + .49439, .24974, 1.23980, .11755, .04499, + .02847, .09415, .15111 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49300, .24799, 1.21217, .11657, .04567, + .02957, .09375, .14956, + .49154, .24626, 1.18532, .11557, .04628, + .03058, .09332, .14802, + .49004, .24460, 1.15997, .11460, .04679, + .03145, .09287, .14654, + .48848, .24298, 1.13587, .11364, .04718, + .03217, .09238, .14509, + .48687, .24136, 1.11211, .11268, .04754, + .03286, .09187, .14364, + .48512, .23971, 1.08845, .11168, .04780, + .03344, .09131, .14218, + .48345, .23816, 1.06653, .11073, .04804, + .03397, .09077, .14080, + .48173, .23663, 1.04557, .10979, .04820, + .03439, .09021, .13944 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47999, .23510, 1.02492, .10886, .04834, + .03480, .08964, .13809, + .47817, .23356, 1.00456, .10790, .04843, + .03514, .08904, .13674, + .47640, .23209, .98541, .10698, .04850, + .03544, .08846, .13544, + .47469, .23069, .96753, .10611, .04854, + .03571, .08789, .13421, + .47287, .22925, .94942, .10520, .04853, + .03592, .08729, .13294 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .51966, .29071, 1.08639, .10059, .00000, + .00000, .06456, .14952, + .52349, .29042, 1.12685, .10082, .00000, + .00000, .06597, .14900, + .52812, .28967, 1.17464, .10111, .00000, + .00000, .06786, .14810, + .53086, .28888, 1.19997, .10127, .00150, + .00000, .06911, .14743, + .53310, .28787, 1.21550, .10138, .00478, + .00000, .07030, .14668, + .53461, .28685, 1.22505, .10142, .00728, + .00000, .07122, .14596, + .53578, .28578, 1.23139, .10139, .00956, + .00000, .07201, .14521, + .53675, .28455, 1.23527, .10130, .01188, + .00000, .07277, .14437 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .53729, .28338, 1.23571, .10117, .01368, + .00000, .07333, .14358, + .53760, .28219, 1.23409, .10100, .01534, + .00000, .07380, .14279, + .53775, .28123, 1.23193, .10085, .01663, + .00000, .07414, .14214, + .53763, .27903, 1.22081, .10044, .01912, + .00041, .07476, .14069, + .53710, .27701, 1.20439, .10000, .02104, + .00306, .07515, .13938, + .53614, .27466, 1.18335, .09942, .02300, + .00603, .07543, .13785, + .53476, .27210, 1.15943, .09871, .02483, + .00849, .07559, .13615, + .53320, .26970, 1.13612, .09799, .02631, + .01052, .07562, .13454 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53135, .26721, 1.11142, .09718, .02765, + .01239, .07554, .13286, + .52960, .26509, 1.09003, .09646, .02864, + .01377, .07538, .13142, + .52721, .26246, 1.06321, .09552, .02969, + .01529, .07510, .12964, + .52494, .26009, 1.03916, .09464, .03052, + .01653, .07479, .12803, + .52275, .25791, 1.01696, .09381, .03122, + .01758, .07447, .12653, + .51970, .25506, .98814, .09269, .03195, + .01873, .07397, .12459, + .51667, .25237, .96111, .09160, .03255, + .01973, .07343, .12274, + .51374, .24985, .93606, .09057, .03305, + .02058, .07290, .12101 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51061, .24726, .91069, .08948, .03343, + .02130, .07229, .11924, + .50747, .24473, .88628, .08840, .03376, + .02196, .07167, .11752, + .50440, .24234, .86347, .08737, .03402, + .02251, .07105, .11588, + .50139, .24005, .84201, .08637, .03420, + .02295, .07043, .11431, + .49836, .23777, .82099, .08538, .03436, + .02337, .06981, .11276, + .49525, .23548, .80030, .08436, .03445, + .02372, .06915, .11121, + .49231, .23333, .78122, .08340, .03453, + .02403, .06853, .10977, + .48937, .23128, .76317, .08249, .03455, + .02426, .06790, .10838 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48643, .22924, .74546, .08157, .03457, + .02449, .06728, .10699, + .48345, .22721, .72815, .08065, .03455, + .02467, .06664, .10562, + .48060, .22527, .71196, .07977, .03451, + .02482, .06603, .10431, + .47788, .22343, .69692, .07894, .03446, + .02495, .06544, .10309, + .47505, .22155, .68179, .07808, .03438, + .02504, .06483, .10185 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .58672, .31364, .91010, .08230, .00000, + .00000, .05498, .13107, + .58775, .31165, .94077, .08216, .00000, + .00000, .05577, .12967, + .58831, .30842, .97495, .08185, .00000, + .00000, .05678, .12762, + .58815, .30594, .99146, .08161, .00117, + .00000, .05742, .12614, + .58742, .30321, .99938, .08132, .00372, + .00000, .05800, .12461, + .58638, .30077, 1.00267, .08103, .00564, + .00000, .05841, .12325, + .58514, .29837, 1.00332, .08071, .00737, + .00000, .05873, .12193, + .58360, .29576, 1.00155, .08031, .00912, + .00000, .05901, .12052 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58199, .29345, .99749, .07992, .01046, + .00000, .05918, .11927, + .58024, .29117, .99188, .07952, .01169, + .00000, .05930, .11805, + .57879, .28937, .98673, .07921, .01263, + .00000, .05936, .11707, + .57532, .28545, .97061, .07845, .01443, + .00032, .05940, .11501, + .57199, .28203, .95150, .07775, .01580, + .00225, .05934, .11322, + .56797, .27816, .92820, .07690, .01717, + .00441, .05919, .11119, + .56349, .27409, .90262, .07595, .01843, + .00617, .05892, .10905, + .55917, .27039, .87845, .07503, .01942, + .00761, .05859, .10708 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55462, .26664, .85345, .07406, .02030, + .00891, .05817, .10510, + .55071, .26350, .83223, .07321, .02094, + .00987, .05778, .10346, + .54574, .25970, .80616, .07216, .02159, + .01090, .05724, .10144, + .54125, .25634, .78315, .07121, .02210, + .01173, .05672, .09966, + .53708, .25326, .76219, .07031, .02251, + .01243, .05622, .09805, + .53157, .24936, .73546, .06915, .02292, + .01318, .05554, .09597, + .52630, .24571, .71073, .06805, .02324, + .01381, .05486, .09404, + .52134, .24233, .68807, .06701, .02350, + .01435, .05420, .09225 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51622, .23892, .66545, .06595, .02367, + .01478, .05350, .09046, + .51120, .23562, .64392, .06490, .02380, + .01517, .05280, .08873, + .50643, .23250, .62400, .06390, .02388, + .01549, .05212, .08713, + .50182, .22957, .60548, .06295, .02392, + .01574, .05147, .08562, + .49722, .22669, .58747, .06202, .02395, + .01597, .05081, .08412, + .49259, .22383, .56994, .06109, .02393, + .01615, .05015, .08263, + .48826, .22116, .55386, .06022, .02391, + .01631, .04953, .08125, + .48406, .21861, .53880, .05938, .02385, + .01642, .04892, .07994 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47987, .21609, .52410, .05855, .02378, + .01652, .04831, .07865, + .47569, .21360, .50986, .05772, .02369, + .01659, .04770, .07738, + .47170, .21124, .49663, .05693, .02360, + .01664, .04712, .07619, + .46793, .20903, .48440, .05620, .02351, + .01668, .04657, .07507, + .46405, .20679, .47220, .05546, .02339, + .01670, .04600, .07394 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .63907, .32670, .79046, .06724, .00000, + .00000, .04623, .11225, + .63699, .32303, .81484, .06694, .00000, + .00000, .04668, .11045, + .63308, .31749, .83974, .06641, .00000, + .00000, .04720, .10781, + .62978, .31344, .85002, .06601, .00094, + .00000, .04750, .10595, + .62589, .30914, .85233, .06554, .00299, + .00000, .04772, .10406, + .62220, .30539, .85094, .06509, .00451, + .00000, .04786, .10243, + .61848, .30179, .84733, .06462, .00587, + .00000, .04792, .10088, + .61436, .29797, .84132, .06410, .00722, + .00000, .04792, .09924 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61055, .29464, .83389, .06363, .00825, + .00000, .04788, .09779, + .60675, .29142, .82529, .06314, .00917, + .00000, .04779, .09640, + .60371, .28887, .81793, .06274, .00988, + .00000, .04771, .09531, + .59690, .28350, .79813, .06187, .01122, + .00025, .04745, .09301, + .59087, .27887, .77708, .06105, .01221, + .00170, .04715, .09108, + .58392, .27374, .75224, .06012, .01319, + .00332, .04677, .08892, + .57650, .26844, .72566, .05909, .01407, + .00462, .04628, .08667, + .56963, .26367, .70112, .05812, .01474, + .00566, .04578, .08466 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56259, .25890, .67622, .05713, .01533, + .00660, .04522, .08265, + .55666, .25499, .65546, .05630, .01574, + .00727, .04472, .08098, + .54936, .25028, .63037, .05525, .01615, + .00799, .04409, .07898, + .54289, .24615, .60854, .05431, .01645, + .00856, .04351, .07724, + .53696, .24241, .58890, .05344, .01668, + .00903, .04295, .07568, + .52928, .23772, .56420, .05235, .01690, + .00953, .04221, .07369, + .52206, .23336, .54164, .05131, .01706, + .00994, .04150, .07187, + .51535, .22935, .52120, .05034, .01716, + .01028, .04082, .07020 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50854, .22535, .50108, .04936, .01721, + .01055, .04012, .06854, + .50192, .22151, .48210, .04842, .01723, + .01078, .03944, .06694, + .49570, .21792, .46470, .04752, .01723, + .01097, .03879, .06547, + .48978, .21456, .44869, .04667, .01720, + .01110, .03817, .06409, + .48392, .21126, .43322, .04582, .01716, + .01123, .03756, .06275, + .47809, .20800, .41833, .04500, .01708, + .01131, .03694, .06143, + .47265, .20497, .40475, .04423, .01701, + .01139, .03636, .06021, + .46742, .20213, .39215, .04350, .01691, + .01143, .03581, .05906 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46222, .19932, .37990, .04279, .01682, + .01146, .03525, .05792, + .45708, .19656, .36813, .04208, .01671, + .01148, .03471, .05681, + .45222, .19395, .35725, .04141, .01660, + .01148, .03419, .05577, + .44765, .19150, .34725, .04078, .01648, + .01148, .03370, .05481, + .44299, .18904, .33735, .04014, .01636, + .01146, .03320, .05384 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .67747, .33165, .71676, .05502, .00000, + .00000, .03843, .09399, + .67216, .32648, .73463, .05466, .00000, + .00000, .03865, .09206, + .66369, .31887, .75009, .05405, .00000, + .00000, .03888, .08927, + .65722, .31343, .75396, .05360, .00077, + .00000, .03897, .08731, + .65018, .30777, .75047, .05306, .00244, + .00000, .03900, .08533, + .64385, .30293, .74433, .05258, .00366, + .00000, .03895, .08361, + .63768, .29832, .73650, .05208, .00474, + .00000, .03886, .08199, + .63106, .29348, .72638, .05151, .00580, + .00000, .03871, .08031 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62519, .28928, .71575, .05098, .00660, + .00000, .03853, .07889, + .61943, .28528, .70438, .05046, .00731, + .00000, .03834, .07751, + .61485, .28216, .69499, .05005, .00785, + .00000, .03817, .07641, + .60496, .27560, .67185, .04914, .00884, + .00020, .03777, .07413, + .59641, .27004, .64906, .04833, .00957, + .00131, .03736, .07223, + .58678, .26392, .62290, .04739, .01028, + .00253, .03685, .07013, + .57670, .25766, .59559, .04638, .01089, + .00351, .03627, .06799, + .56753, .25210, .57092, .04546, .01135, + .00428, .03570, .06609 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55830, .24659, .54634, .04450, .01174, + .00496, .03510, .06420, + .55062, .24209, .52623, .04371, .01200, + .00544, .03458, .06265, + .54133, .23671, .50226, .04272, .01224, + .00594, .03393, .06082, + .53316, .23206, .48169, .04185, .01242, + .00634, .03334, .05923, + .52571, .22786, .46339, .04107, .01254, + .00666, .03278, .05781, + .51627, .22260, .44071, .04005, .01264, + .00700, .03207, .05604, + .50747, .21776, .42026, .03910, .01269, + .00726, .03139, .05442, + .49933, .21334, .40193, .03824, .01272, + .00748, .03076, .05293 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49116, .20897, .38410, .03737, .01270, + .00764, .03011, .05148, + .48330, .20478, .36744, .03653, .01267, + .00778, .02949, .05009, + .47596, .20087, .35233, .03573, .01262, + .00788, .02891, .04882, + .46901, .19727, .33854, .03499, .01255, + .00796, .02835, .04763, + .46215, .19374, .32529, .03427, .01247, + .00802, .02780, .04647, + .45540, .19027, .31267, .03356, .01238, + .00805, .02726, .04534, + .44913, .18706, .30122, .03290, .01228, + .00808, .02675, .04431, + .44315, .18404, .29069, .03228, .01218, + .00809, .02627, .04334 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43723, .18107, .28050, .03166, .01208, + .00809, .02579, .04238, + .43141, .17816, .27077, .03106, .01196, + .00808, .02532, .04146, + .42592, .17543, .26183, .03050, .01185, + .00806, .02488, .04059, + .42077, .17287, .25365, .02998, .01174, + .00804, .02447, .03979, + .41557, .17031, .24562, .02944, .01162, + .00801, .02404, .03899 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70292, .32990, .67361, .04508, .00000, + .00000, .03153, .07703, + .69443, .32342, .68365, .04470, .00000, + .00000, .03165, .07517, + .68150, .31405, .68823, .04409, .00000, + .00000, .03170, .07246, + .67199, .30744, .68504, .04361, .00064, + .00000, .03168, .07057, + .66193, .30068, .67520, .04305, .00200, + .00000, .03159, .06867, + .65318, .29487, .66414, .04253, .00298, + .00000, .03145, .06707, + .64475, .28944, .65204, .04201, .00384, + .00000, .03127, .06554, + .63579, .28380, .63785, .04145, .00468, + .00000, .03106, .06394 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62797, .27896, .62417, .04094, .00530, + .00000, .03082, .06258, + .62044, .27434, .61024, .04041, .00584, + .00000, .03058, .06129, + .61452, .27074, .59903, .03999, .00625, + .00000, .03038, .06029, + .60187, .26327, .57300, .03910, .00699, + .00016, .02989, .05820, + .59108, .25700, .54876, .03832, .00753, + .00101, .02945, .05646, + .57912, .25014, .52169, .03741, .00803, + .00194, .02890, .05457, + .56677, .24320, .49406, .03645, .00845, + .00268, .02830, .05265, + .55566, .23706, .46960, .03558, .00876, + .00324, .02774, .05094 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54457, .23103, .44568, .03471, .00901, + .00374, .02716, .04925, + .53546, .22613, .42642, .03398, .00917, + .00409, .02666, .04790, + .52450, .22032, .40383, .03309, .00931, + .00444, .02604, .04629, + .51495, .21532, .38468, .03230, .00939, + .00472, .02549, .04492, + .50632, .21084, .36779, .03159, .00945, + .00494, .02498, .04369, + .49546, .20525, .34719, .03068, .00948, + .00516, .02434, .04217, + .48541, .20014, .32884, .02985, .00947, + .00533, .02373, .04078, + .47617, .19550, .31256, .02909, .00945, + .00547, .02316, .03952 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46699, .19093, .29689, .02832, .00940, + .00556, .02259, .03829, + .45818, .18657, .28239, .02759, .00934, + .00564, .02205, .03713, + .44998, .18254, .26936, .02692, .00926, + .00569, .02154, .03606, + .44230, .17880, .25757, .02629, .00918, + .00573, .02106, .03508, + .43475, .17515, .24632, .02568, .00910, + .00575, .02059, .03411, + .42738, .17160, .23570, .02506, .00900, + .00576, .02012, .03320, + .42053, .16832, .22611, .02449, .00890, + .00576, .01969, .03237, + .41403, .16526, .21738, .02397, .00880, + .00575, .01928, .03157 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40762, .16225, .20897, .02347, .00870, + .00574, .01888, .03078, + .40134, .15931, .20099, .02298, .00860, + .00571, .01849, .03003, + .39545, .15655, .19367, .02251, .00849, + .00569, .01812, .02934, + .38994, .15399, .18703, .02208, .00839, + .00566, .01778, .02869, + .38438, .15143, .18056, .02163, .00829, + .00562, .01744, .02804 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .71644, .32265, .64661, .03693, .00000, + .00000, .02555, .06187, + .70487, .31515, .64776, .03658, .00000, + .00000, .02562, .06014, + .68782, .30430, .64065, .03593, .00000, + .00000, .02558, .05772, + .67550, .29676, .63012, .03544, .00052, + .00000, .02548, .05601, + .66276, .28905, .61391, .03486, .00163, + .00000, .02535, .05430, + .65173, .28257, .59808, .03435, .00242, + .00000, .02516, .05285, + .64126, .27652, .58196, .03385, .00310, + .00000, .02494, .05148, + .63027, .27025, .56411, .03329, .00375, + .00000, .02469, .05006 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62077, .26490, .54782, .03279, .00423, + .00000, .02445, .04885, + .61166, .25985, .53177, .03229, .00464, + .00000, .02418, .04771, + .60455, .25593, .51910, .03189, .00495, + .00000, .02395, .04683, + .58954, .24780, .49093, .03105, .00550, + .00013, .02348, .04498, + .57686, .24106, .46581, .03031, .00589, + .00078, .02303, .04346, + .56292, .23374, .43846, .02948, .00624, + .00149, .02251, .04181, + .54868, .22637, .41112, .02861, .00654, + .00204, .02193, .04014, + .53601, .21987, .38738, .02780, .00674, + .00245, .02141, .03869 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52348, .21351, .36455, .02699, .00689, + .00282, .02087, .03728, + .51322, .20840, .34640, .02633, .00698, + .00306, .02042, .03613, + .50098, .20236, .32540, .02554, .00705, + .00331, .01986, .03478, + .49039, .19718, .30785, .02485, .00708, + .00350, .01937, .03362, + .48087, .19255, .29258, .02422, .00710, + .00365, .01893, .03259, + .46892, .18685, .27415, .02346, .00708, + .00380, .01836, .03130, + .45796, .18165, .25791, .02275, .00705, + .00391, .01783, .03016, + .44797, .17691, .24363, .02209, .00700, + .00399, .01733, .02916 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43808, .17227, .23009, .02143, .00694, + .00405, .01685, .02816, + .42862, .16789, .21764, .02081, .00686, + .00409, .01638, .02722, + .41984, .16387, .20653, .02024, .00679, + .00411, .01595, .02636, + .41169, .16013, .19656, .01971, .00671, + .00412, .01555, .02556, + .40372, .15648, .18711, .01919, .00662, + .00413, .01518, .02478, + .39592, .15297, .17826, .01869, .00653, + .00412, .01479, .02405, + .38870, .14973, .17031, .01823, .00644, + .00411, .01443, .02337, + .38193, .14671, .16314, .01780, .00635, + .00409, .01409, .02275 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37526, .14374, .15626, .01737, .00626, + .00407, .01376, .02215, + .36873, .14085, .14979, .01696, .00617, + .00404, .01344, .02155, + .36261, .13816, .14389, .01659, .00608, + .00401, .01315, .02099, + .35691, .13566, .13854, .01624, .00599, + .00399, .01288, .02048, + .35119, .13315, .13334, .01588, .00591, + .00395, .01260, .01998 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .71907, .31104, .62471, .03020, .00000, + .00000, .02048, .04874, + .70474, .30269, .61674, .02985, .00000, + .00000, .02050, .04722, + .68385, .29082, .59811, .02924, .00000, + .00000, .02039, .04507, + .66906, .28256, .58068, .02874, .00042, + .00000, .02025, .04361, + .65386, .27425, .55874, .02821, .00131, + .00000, .02006, .04213, + .64090, .26727, .53876, .02772, .00194, + .00000, .01986, .04086, + .62868, .26077, .51931, .02724, .00247, + .00000, .01963, .03968, + .61594, .25408, .49858, .02671, .00298, + .00000, .01937, .03847 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60500, .24842, .48032, .02625, .00334, + .00000, .01912, .03743, + .59460, .24308, .46279, .02577, .00366, + .00000, .01887, .03646, + .58651, .23894, .44919, .02539, .00389, + .00000, .01865, .03572, + .56958, .23041, .41993, .02460, .00429, + .00010, .01818, .03418, + .55541, .22339, .39469, .02394, .00457, + .00059, .01778, .03287, + .53991, .21581, .36775, .02318, .00482, + .00113, .01731, .03149, + .52420, .20822, .34136, .02240, .00501, + .00154, .01679, .03011, + .51033, .20158, .31884, .02169, .00514, + .00185, .01631, .02890 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49670, .19512, .29749, .02097, .00523, + .00211, .01583, .02774, + .48561, .18993, .28078, .02041, .00527, + .00228, .01544, .02679, + .47246, .18382, .26173, .01971, .00530, + .00246, .01496, .02569, + .46114, .17861, .24597, .01912, .00531, + .00259, .01454, .02476, + .45100, .17399, .23237, .01858, .00530, + .00269, .01416, .02393, + .43836, .16829, .21618, .01792, .00526, + .00278, .01368, .02292, + .42684, .16311, .20204, .01731, .00521, + .00285, .01324, .02200, + .41637, .15843, .18970, .01674, .00516, + .00290, .01283, .02119 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40605, .15389, .17815, .01620, .00509, + .00293, .01243, .02040, + .39622, .14959, .16761, .01569, .00502, + .00295, .01205, .01965, + .38715, .14562, .15827, .01523, .00495, + .00296, .01171, .01895, + .37877, .14198, .14998, .01478, .00487, + .00296, .01139, .01834, + .37059, .13843, .14215, .01435, .00480, + .00295, .01106, .01775, + .36261, .13503, .13490, .01395, .00472, + .00294, .01075, .01717, + .35524, .13190, .12841, .01358, .00464, + .00293, .01047, .01663, + .34837, .12898, .12257, .01321, .00456, + .00290, .01020, .01617 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34162, .12612, .11700, .01285, .00449, + .00288, .00993, .01571, + .33504, .12335, .11178, .01252, .00441, + .00286, .00968, .01526, + .32888, .12078, .10706, .01222, .00434, + .00283, .00945, .01483, + .32316, .11839, .10279, .01194, .00427, + .00280, .00923, .01443, + .31741, .11602, .09866, .01165, .00420, + .00277, .00902, .01405 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71154, .29640, .60066, .02494, .00000, + .00000, .01602, .03742, + .69483, .28741, .58411, .02454, .00000, + .00000, .01601, .03619, + .67079, .27468, .55518, .02387, .00000, + .00000, .01590, .03444, + .65389, .26594, .53187, .02338, .00034, + .00000, .01577, .03321, + .63667, .25721, .50529, .02287, .00105, + .00000, .01558, .03197, + .62215, .24988, .48222, .02237, .00154, + .00000, .01538, .03095, + .60851, .24311, .46044, .02189, .00196, + .00000, .01518, .02999, + .59436, .23618, .43782, .02139, .00234, + .00000, .01494, .02898 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58233, .23031, .41839, .02094, .00262, + .00000, .01471, .02814, + .57090, .22483, .40010, .02051, .00285, + .00000, .01448, .02734, + .56202, .22061, .38609, .02019, .00302, + .00000, .01429, .02671, + .54360, .21194, .35675, .01947, .00332, + .00008, .01388, .02544, + .52832, .20479, .33222, .01884, .00351, + .00045, .01351, .02443, + .51171, .19712, .30647, .01816, .00368, + .00086, .01310, .02331, + .49496, .18950, .28165, .01748, .00381, + .00116, .01266, .02218, + .48026, .18286, .26083, .01686, .00388, + .00138, .01227, .02120 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46591, .17643, .24141, .01623, .00393, + .00157, .01187, .02027, + .45431, .17127, .22634, .01571, .00395, + .00169, .01152, .01958, + .44059, .16526, .20936, .01513, .00395, + .00181, .01112, .01869, + .42883, .16014, .19547, .01463, .00394, + .00190, .01077, .01794, + .41836, .15559, .18361, .01418, .00392, + .00197, .01044, .01732, + .40538, .15003, .16960, .01360, .00388, + .00203, .01007, .01652, + .39356, .14502, .15751, .01309, .00382, + .00207, .00971, .01581, + .38284, .14051, .14707, .01264, .00377, + .00210, .00936, .01517 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37237, .13612, .13738, .01220, .00371, + .00211, .00905, .01454, + .36244, .13197, .12861, .01177, .00364, + .00212, .00875, .01396, + .35331, .12818, .12088, .01137, .00358, + .00212, .00847, .01345, + .34488, .12470, .11407, .01102, .00351, + .00211, .00822, .01298, + .33667, .12133, .10768, .01068, .00345, + .00210, .00797, .01252, + .32871, .11808, .10180, .01035, .00338, + .00209, .00772, .01209, + .32137, .11511, .09655, .01005, .00332, + .00207, .00749, .01169, + .31455, .11235, .09187, .00977, .00326, + .00205, .00729, .01133 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30787, .10966, .08741, .00949, .00319, + .00203, .00709, .01097, + .30138, .10706, .08327, .00922, .00313, + .00201, .00690, .01063, + .29533, .10464, .07954, .00897, .00307, + .00199, .00671, .01031, + .28970, .10241, .07618, .00874, .00302, + .00196, .00654, .01002, + .28407, .10019, .07294, .00853, .00296, + .00194, .00638, .00974 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69592, .27867, .56989, .02012, .00000, + .00000, .01256, .02838, + .67712, .26932, .54608, .01974, .00000, + .00000, .01253, .02736, + .65032, .25618, .50896, .01913, .00000, + .00000, .01239, .02591, + .63166, .24720, .48129, .01867, .00027, + .00000, .01224, .02492, + .61283, .23824, .45157, .01818, .00082, + .00000, .01203, .02395, + .59699, .23081, .42655, .01773, .00120, + .00000, .01185, .02311, + .58223, .22394, .40347, .01731, .00151, + .00000, .01166, .02232, + .56702, .21693, .38001, .01686, .00180, + .00000, .01144, .02151 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55408, .21106, .36032, .01646, .00201, + .00000, .01124, .02083, + .54190, .20554, .34206, .01607, .00218, + .00000, .01103, .02019, + .53249, .20130, .32822, .01577, .00230, + .00000, .01087, .01971, + .51300, .19266, .29987, .01515, .00251, + .00006, .01050, .01868, + .49693, .18559, .27672, .01461, .00265, + .00034, .01017, .01788, + .47960, .17803, .25279, .01402, .00276, + .00063, .00982, .01701, + .46222, .17054, .23009, .01343, .00284, + .00085, .00946, .01612, + .44703, .16406, .21132, .01290, .00288, + .00102, .00912, .01536 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43227, .15778, .19400, .01238, .00291, + .00115, .00878, .01465, + .42040, .15279, .18074, .01196, .00291, + .00123, .00851, .01406, + .40641, .14698, .16595, .01148, .00290, + .00132, .00818, .01338, + .39447, .14206, .15398, .01106, .00288, + .00138, .00790, .01282, + .38389, .13771, .14383, .01067, .00286, + .00142, .00765, .01232, + .37085, .13239, .13200, .01021, .00281, + .00146, .00733, .01172, + .35903, .12759, .12188, .00980, .00277, + .00148, .00704, .01117, + .34835, .12329, .11320, .00944, .00272, + .00150, .00679, .01068 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33793, .11913, .10520, .00906, .00266, + .00150, .00654, .01023, + .32809, .11522, .09801, .00871, .00261, + .00150, .00630, .00981, + .31909, .11165, .09173, .00839, .00256, + .00150, .00607, .00943, + .31080, .10840, .08623, .00811, .00250, + .00149, .00587, .00907, + .30275, .10525, .08109, .00783, .00245, + .00148, .00568, .00872, + .29496, .10223, .07638, .00757, .00240, + .00147, .00549, .00840, + .28779, .09946, .07220, .00734, .00234, + .00145, .00532, .00812, + .28115, .09690, .06850, .00712, .00229, + .00143, .00516, .00785 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27466, .09439, .06499, .00690, .00225, + .00142, .00501, .00758, + .26838, .09199, .06175, .00669, .00220, + .00140, .00486, .00734, + .26254, .08975, .05884, .00649, .00215, + .00138, .00472, .00711, + .25713, .08770, .05622, .00631, .00211, + .00136, .00459, .00690, + .25173, .08566, .05372, .00614, .00206, + .00134, .00446, .00669 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67268, .25932, .53146, .01620, .00000, + .00000, .00965, .02104, + .65226, .24976, .50216, .01583, .00000, + .00000, .00960, .02025, + .62332, .23646, .45933, .01525, .00000, + .00000, .00946, .01911, + .60330, .22743, .42895, .01484, .00021, + .00000, .00933, .01830, + .58330, .21844, .39764, .01437, .00063, + .00000, .00914, .01755, + .56650, .21106, .37193, .01398, .00091, + .00000, .00897, .01688, + .55095, .20424, .34866, .01360, .00115, + .00000, .00880, .01626, + .53502, .19727, .32541, .01318, .00137, + .00000, .00862, .01564 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52154, .19144, .30621, .01283, .00152, + .00000, .00844, .01512, + .50888, .18603, .28867, .01249, .00164, + .00000, .00826, .01463, + .49912, .18189, .27552, .01222, .00173, + .00000, .00812, .01425, + .47906, .17339, .24896, .01166, .00187, + .00005, .00782, .01349, + .46257, .16651, .22769, .01121, .00197, + .00025, .00755, .01285, + .44486, .15919, .20606, .01070, .00204, + .00047, .00726, .01218, + .42720, .15197, .18584, .01021, .00209, + .00062, .00695, .01152, + .41185, .14575, .16932, .00978, .00211, + .00074, .00668, .01093 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39698, .13978, .15427, .00935, .00212, + .00083, .00642, .01036, + .38509, .13500, .14288, .00900, .00212, + .00089, .00619, .00994, + .37117, .12948, .13026, .00860, .00210, + .00095, .00593, .00942, + .35932, .12481, .12015, .00825, .00208, + .00099, .00571, .00899, + .34883, .12070, .11166, .00795, .00205, + .00102, .00551, .00863, + .33595, .11569, .10183, .00757, .00201, + .00104, .00525, .00820, + .32434, .11120, .09350, .00723, .00197, + .00105, .00504, .00780, + .31390, .10718, .08641, .00693, .00193, + .00106, .00485, .00743 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30374, .10331, .07994, .00666, .00189, + .00106, .00465, .00708, + .29417, .09969, .07415, .00640, .00185, + .00106, .00447, .00677, + .28542, .09639, .06911, .00614, .00180, + .00105, .00430, .00649, + .27741, .09339, .06474, .00591, .00176, + .00104, .00415, .00623, + .26964, .09048, .06067, .00569, .00172, + .00103, .00400, .00597, + .26216, .08770, .05696, .00549, .00168, + .00102, .00386, .00574, + .25531, .08517, .05369, .00531, .00164, + .00101, .00373, .00553, + .24896, .08283, .05081, .00515, .00160, + .00100, .00361, .00533 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24277, .08055, .04808, .00498, .00156, + .00098, .00351, .00513, + .23678, .07836, .04556, .00483, .00152, + .00097, .00339, .00496, + .23121, .07633, .04331, .00468, .00149, + .00095, .00328, .00480, + .22607, .07447, .04129, .00454, .00146, + .00094, .00318, .00465, + .22098, .07262, .03937, .00440, .00142, + .00092, .00309, .00451 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64318, .23871, .48568, .01285, .00000, + .00000, .00734, .01533, + .62151, .22919, .45298, .01251, .00000, + .00000, .00728, .01472, + .59109, .21597, .40701, .01196, .00000, + .00000, .00715, .01383, + .57019, .20701, .37558, .01156, .00015, + .00000, .00702, .01324, + .54935, .19819, .34422, .01116, .00047, + .00000, .00685, .01265, + .53199, .19093, .31896, .01082, .00068, + .00000, .00671, .01216, + .51596, .18428, .29644, .01048, .00086, + .00000, .00655, .01170, + .49960, .17752, .27426, .01012, .00102, + .00000, .00638, .01123 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48586, .17188, .25623, .00980, .00112, + .00000, .00625, .01081, + .47295, .16666, .23990, .00953, .00121, + .00000, .00610, .01043, + .46302, .16267, .22774, .00933, .00127, + .00000, .00597, .01014, + .44275, .15452, .20366, .00886, .00137, + .00004, .00574, .00954, + .42616, .14794, .18473, .00848, .00143, + .00018, .00552, .00907, + .40846, .14094, .16570, .00806, .00148, + .00034, .00528, .00857, + .39087, .13407, .14813, .00765, .00151, + .00045, .00503, .00809, + .37562, .12820, .13394, .00730, .00152, + .00053, .00482, .00766 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36094, .12259, .12116, .00697, .00152, + .00059, .00462, .00722, + .34925, .11812, .11156, .00668, .00151, + .00063, .00444, .00690, + .33561, .11295, .10105, .00634, .00150, + .00067, .00424, .00655, + .32405, .10860, .09269, .00607, .00148, + .00070, .00407, .00623, + .31385, .10478, .08571, .00584, .00145, + .00072, .00391, .00595, + .30134, .10014, .07773, .00554, .00142, + .00073, .00372, .00563, + .29012, .09600, .07100, .00528, .00139, + .00074, .00356, .00533, + .28006, .09231, .06530, .00506, .00135, + .00074, .00341, .00506 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27030, .08876, .06016, .00484, .00132, + .00074, .00326, .00483, + .26116, .08544, .05557, .00463, .00129, + .00073, .00313, .00460, + .25284, .08243, .05161, .00442, .00125, + .00073, .00300, .00439, + .24522, .07969, .04819, .00426, .00122, + .00072, .00289, .00421, + .23784, .07705, .04502, .00410, .00119, + .00071, .00277, .00403, + .23079, .07454, .04215, .00394, .00116, + .00070, .00267, .00386, + .22434, .07224, .03962, .00379, .00113, + .00069, .00258, .00371, + .21837, .07013, .03740, .00366, .00110, + .00068, .00249, .00358 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21254, .06807, .03530, .00354, .00107, + .00067, .00240, .00346, + .20693, .06611, .03338, .00342, .00104, + .00066, .00232, .00334, + .20174, .06429, .03166, .00330, .00102, + .00065, .00224, .00322, + .19695, .06262, .03013, .00320, .00099, + .00064, .00217, .00311, + .19219, .06099, .02869, .00311, .00097, + .00063, .00211, .00300 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60860, .21740, .43435, .00997, .00000, + .00000, .00553, .01100, + .58610, .20808, .40015, .00966, .00000, + .00000, .00547, .01053, + .55473, .19517, .35358, .00917, .00000, + .00000, .00532, .00989, + .53332, .18649, .32264, .00885, .00011, + .00000, .00522, .00941, + .51208, .17798, .29250, .00850, .00034, + .00000, .00508, .00897, + .49450, .17097, .26864, .00820, .00050, + .00000, .00496, .00859, + .47833, .16458, .24764, .00792, .00063, + .00000, .00482, .00825, + .46185, .15812, .22720, .00762, .00074, + .00000, .00468, .00790 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44802, .15276, .21078, .00738, .00081, + .00000, .00456, .00759, + .43515, .14777, .19610, .00713, .00087, + .00000, .00444, .00732, + .42529, .14395, .18526, .00694, .00092, + .00000, .00435, .00712, + .40510, .13628, .16401, .00660, .00099, + .00003, .00416, .00664, + .38873, .13009, .14756, .00628, .00103, + .00013, .00399, .00630, + .37128, .12353, .13122, .00596, .00106, + .00024, .00381, .00593, + .35409, .11712, .11634, .00562, .00107, + .00032, .00361, .00557, + .33927, .11165, .10448, .00532, .00107, + .00037, .00344, .00526 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32499, .10643, .09386, .00506, .00107, + .00042, .00327, .00496, + .31367, .10230, .08594, .00485, .00106, + .00044, .00315, .00473, + .30052, .09754, .07737, .00459, .00105, + .00047, .00300, .00448, + .28940, .09355, .07061, .00437, .00103, + .00049, .00287, .00425, + .27960, .09006, .06502, .00420, .00101, + .00050, .00274, .00405, + .26769, .08583, .05863, .00397, .00098, + .00050, .00261, .00380, + .25702, .08206, .05330, .00377, .00096, + .00051, .00248, .00360, + .24748, .07870, .04882, .00359, .00093, + .00051, .00236, .00343 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23829, .07548, .04479, .00343, .00091, + .00051, .00225, .00325, + .22968, .07249, .04123, .00327, .00088, + .00050, .00216, .00309, + .22184, .06979, .03816, .00312, .00086, + .00050, .00207, .00294, + .21470, .06733, .03553, .00300, .00083, + .00049, .00199, .00281, + .20780, .06497, .03309, .00289, .00081, + .00049, .00190, .00269, + .20123, .06273, .03090, .00276, .00079, + .00048, .00183, .00257, + .19522, .06069, .02898, .00265, .00076, + .00047, .00176, .00246, + .18970, .05880, .02730, .00255, .00074, + .00046, .00169, .00238 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18432, .05697, .02572, .00245, .00072, + .00045, .00163, .00229, + .17915, .05524, .02427, .00236, .00070, + .00045, .00157, .00220, + .17435, .05365, .02298, .00228, .00069, + .00044, .00152, .00211, + .16993, .05218, .02184, .00221, .00067, + .00043, .00147, .00203, + .16557, .05073, .02076, .00215, .00065, + .00042, .00142, .00196 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56981, .19617, .37998, .00776, .00000, + .00000, .00404, .00766, + .54702, .18709, .34605, .00745, .00000, + .00000, .00397, .00736, + .51525, .17475, .30101, .00704, .00000, + .00000, .00388, .00683, + .49375, .16642, .27176, .00673, .00008, + .00000, .00378, .00652, + .47248, .15831, .24383, .00645, .00025, + .00000, .00366, .00618, + .45496, .15167, .22207, .00621, .00036, + .00000, .00355, .00591, + .43890, .14563, .20312, .00596, .00045, + .00000, .00345, .00567, + .42260, .13954, .18486, .00571, .00053, + .00000, .00334, .00542 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40900, .13447, .17039, .00552, .00058, + .00000, .00325, .00519, + .39636, .12980, .15757, .00532, .00062, + .00000, .00315, .00499, + .38669, .12625, .14817, .00515, .00065, + .00000, .00308, .00485, + .36699, .11908, .12996, .00487, .00070, + .00002, .00294, .00452, + .35109, .11332, .11605, .00461, .00072, + .00009, .00281, .00427, + .33417, .10729, .10239, .00437, .00074, + .00017, .00267, .00399, + .31758, .10139, .09007, .00411, .00075, + .00022, .00251, .00375, + .30337, .09635, .08034, .00387, .00075, + .00026, .00238, .00355 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28973, .09158, .07171, .00366, .00074, + .00029, .00226, .00333, + .27893, .08781, .06534, .00350, .00073, + .00031, .00217, .00315, + .26647, .08348, .05850, .00329, .00072, + .00032, .00206, .00297, + .25596, .07986, .05314, .00313, .00071, + .00033, .00197, .00282, + .24671, .07671, .04873, .00300, .00069, + .00034, .00187, .00269, + .23552, .07289, .04372, .00284, .00067, + .00035, .00178, .00252, + .22553, .06951, .03957, .00268, .00065, + .00035, .00169, .00238, + .21661, .06651, .03611, .00255, .00063, + .00035, .00161, .00225 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20806, .06363, .03300, .00241, .00061, + .00034, .00153, .00213, + .20006, .06096, .03028, .00229, .00059, + .00034, .00145, .00203, + .19280, .05856, .02795, .00218, .00058, + .00034, .00138, .00193, + .18622, .05638, .02596, .00208, .00056, + .00033, .00132, .00184, + .17988, .05428, .02413, .00199, .00054, + .00033, .00127, .00176, + .17384, .05231, .02248, .00191, .00053, + .00032, .00122, .00167, + .16832, .05052, .02103, .00184, .00051, + .00031, .00117, .00160, + .16324, .04888, .01978, .00178, .00050, + .00031, .00112, .00153 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15831, .04728, .01860, .00172, .00048, + .00030, .00108, .00147, + .15359, .04576, .01753, .00166, .00047, + .00030, .00104, .00141, + .14924, .04436, .01657, .00159, .00046, + .00029, .00101, .00136, + .14523, .04308, .01572, .00154, .00044, + .00029, .00097, .00131, + .14128, .04181, .01492, .00150, .00043, + .00028, .00094, .00126 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52814, .17509, .32484, .00585, .00000, + .00000, .00291, .00527, + .50528, .16655, .29266, .00561, .00000, + .00000, .00286, .00503, + .47374, .15483, .25083, .00526, .00000, + .00000, .00276, .00467, + .45243, .14701, .22425, .00505, .00006, + .00000, .00267, .00440, + .43155, .13938, .19926, .00479, .00017, + .00000, .00258, .00419, + .41437, .13319, .18001, .00460, .00025, + .00000, .00249, .00400, + .39868, .12756, .16345, .00442, .00031, + .00000, .00241, .00381, + .38283, .12189, .14767, .00422, .00037, + .00000, .00233, .00362 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36963, .11721, .13526, .00405, .00040, + .00000, .00226, .00347, + .35740, .11289, .12438, .00389, .00043, + .00000, .00219, .00334, + .34807, .10961, .11645, .00377, .00045, + .00000, .00214, .00323, + .32910, .10302, .10122, .00357, .00048, + .00002, .00200, .00302, + .31388, .09776, .08976, .00336, .00050, + .00006, .00191, .00283, + .29779, .09225, .07861, .00316, .00051, + .00012, .00180, .00265, + .28206, .08688, .06864, .00296, .00051, + .00015, .00170, .00248, + .26861, .08232, .06085, .00278, .00051, + .00018, .00161, .00234 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25577, .07801, .05401, .00263, .00050, + .00020, .00152, .00219, + .24563, .07463, .04900, .00250, .00050, + .00021, .00145, .00207, + .23393, .07075, .04363, .00236, .00049, + .00022, .00137, .00194, + .22413, .06751, .03946, .00224, .00048, + .00023, .00131, .00183, + .21558, .06469, .03605, .00212, .00047, + .00023, .00125, .00173, + .20517, .06131, .03221, .00201, .00045, + .00023, .00118, .00162, + .19591, .05831, .02905, .00190, .00044, + .00023, .00111, .00153, + .18770, .05565, .02642, .00181, .00042, + .00023, .00104, .00145 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17987, .05312, .02408, .00170, .00041, + .00023, .00100, .00137, + .17256, .05078, .02203, .00161, .00040, + .00023, .00095, .00130, + .16592, .04868, .02028, .00154, .00038, + .00022, .00090, .00123, + .15991, .04678, .01879, .00147, .00037, + .00022, .00087, .00116, + .15413, .04497, .01742, .00142, .00036, + .00022, .00083, .00110, + .14865, .04324, .01620, .00136, .00035, + .00021, .00079, .00104, + .14366, .04168, .01514, .00130, .00034, + .00021, .00075, .00100, + .13910, .04025, .01421, .00125, .00033, + .00020, .00072, .00096 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13469, .03887, .01335, .00120, .00032, + .00020, .00070, .00092, + .13046, .03755, .01256, .00114, .00031, + .00020, .00067, .00089, + .12656, .03634, .01186, .00109, .00030, + .00019, .00065, .00085, + .12298, .03523, .01124, .00105, .00029, + .00019, .00063, .00082, + .11944, .03415, .01066, .00102, .00028, + .00018, .00060, .00079 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48440, .15460, .27111, .00429, .00000, + .00000, .00211, .00356, + .46193, .14656, .24178, .00409, .00000, + .00000, .00204, .00341, + .43106, .13561, .20430, .00380, .00000, + .00000, .00195, .00315, + .41033, .12836, .18089, .00361, .00004, + .00000, .00188, .00296, + .39001, .12134, .15926, .00346, .00012, + .00000, .00180, .00279, + .37349, .11559, .14277, .00328, .00017, + .00000, .00175, .00266, + .35842, .11041, .12871, .00312, .00021, + .00000, .00169, .00254, + .34318, .10523, .11546, .00297, .00025, + .00000, .00162, .00242 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33053, .10096, .10513, .00286, .00027, + .00000, .00156, .00231, + .31886, .09703, .09613, .00275, .00029, + .00000, .00151, .00221, + .30999, .09405, .08962, .00266, .00030, + .00000, .00147, .00214, + .29210, .08807, .07725, .00245, .00032, + .00001, .00138, .00200, + .27776, .08330, .06804, .00229, .00033, + .00004, .00131, .00188, + .26262, .07833, .05917, .00215, .00034, + .00008, .00125, .00175, + .24784, .07354, .05133, .00202, .00034, + .00010, .00117, .00162, + .23525, .06949, .04523, .00192, .00034, + .00012, .00110, .00151 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22331, .06566, .03992, .00182, .00033, + .00013, .00103, .00141, + .21395, .06264, .03605, .00170, .00033, + .00014, .00099, .00134, + .20319, .05919, .03195, .00158, .00032, + .00015, .00093, .00127, + .19417, .05634, .02879, .00148, .00031, + .00015, .00088, .00120, + .18630, .05388, .02620, .00142, .00031, + .00015, .00084, .00112, + .17682, .05091, .02332, .00131, .00029, + .00015, .00079, .00105, + .16838, .04829, .02096, .00124, .00028, + .00015, .00074, .00098, + .16088, .04598, .01901, .00120, .00028, + .00015, .00070, .00091 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15378, .04377, .01728, .00112, .00027, + .00015, .00067, .00087, + .14716, .04174, .01576, .00106, .00026, + .00015, .00064, .00083, + .14117, .03992, .01448, .00102, .00025, + .00015, .00061, .00078, + .13580, .03828, .01339, .00096, .00024, + .00014, .00058, .00074, + .13066, .03671, .01239, .00090, .00023, + .00014, .00055, .00071, + .12576, .03523, .01151, .00086, .00022, + .00014, .00052, .00068, + .12130, .03390, .01074, .00082, .00022, + .00014, .00050, .00065, + .11723, .03268, .01007, .00079, .00021, + .00013, .00048, .00062 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11330, .03150, .00945, .00076, .00020, + .00013, .00046, .00059, + .10953, .03038, .00888, .00073, .00020, + .00013, .00044, .00056, + .10607, .02935, .00837, .00070, .00019, + .00012, .00042, .00054, + .10290, .02842, .00793, .00067, .00019, + .00012, .00041, .00052, + .09979, .02749, .00751, .00065, .00018, + .00012, .00039, .00050 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .43962, .13504, .22091, .00310, .00000, + .00000, .00146, .00237, + .41785, .12759, .19506, .00292, .00000, + .00000, .00144, .00224, + .38805, .11753, .16258, .00269, .00000, + .00000, .00137, .00207, + .36818, .11086, .14264, .00253, .00003, + .00000, .00130, .00197, + .34886, .10440, .12443, .00237, .00008, + .00000, .00125, .00186, + .33307, .09922, .11073, .00224, .00011, + .00000, .00121, .00177, + .31874, .09453, .09917, .00214, .00014, + .00000, .00117, .00168, + .30434, .08983, .08836, .00203, .00016, + .00000, .00112, .00159 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29245, .08597, .08001, .00192, .00018, + .00000, .00108, .00153, + .28147, .08244, .07278, .00184, .00019, + .00000, .00104, .00147, + .27311, .07977, .06756, .00179, .00020, + .00000, .00101, .00142, + .25640, .07443, .05776, .00165, .00021, + .00001, .00095, .00129, + .24302, .07020, .05056, .00154, .00022, + .00003, .00090, .00121, + .22901, .06578, .04369, .00143, .00022, + .00005, .00085, .00114, + .21540, .06153, .03765, .00132, .00022, + .00007, .00080, .00106, + .20384, .05795, .03301, .00124, .00022, + .00008, .00076, .00098 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19288, .05459, .02899, .00117, .00022, + .00009, .00071, .00091, + .18431, .05196, .02609, .00109, .00021, + .00009, .00067, .00087, + .17450, .04897, .02303, .00102, .00021, + .00010, .00063, .00082, + .16632, .04649, .02068, .00096, .00020, + .00010, .00060, .00077, + .15921, .04433, .01877, .00091, .00020, + .00010, .00057, .00073, + .15065, .04176, .01665, .00084, .00019, + .00010, .00053, .00068, + .14308, .03950, .01491, .00078, .00018, + .00010, .00050, .00064, + .13638, .03751, .01349, .00073, .00018, + .00010, .00047, .00060 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13003, .03563, .01223, .00070, .00017, + .00010, .00045, .00056, + .12413, .03390, .01114, .00066, .00016, + .00010, .00042, .00053, + .11881, .03235, .01021, .00062, .00016, + .00009, .00039, .00051, + .11403, .03095, .00943, .00059, .00015, + .00009, .00037, .00048, + .10945, .02963, .00872, .00056, .00015, + .00009, .00036, .00045, + .10512, .02838, .00808, .00054, .00014, + .00009, .00034, .00043, + .10120, .02725, .00753, .00052, .00014, + .00009, .00032, .00041, + .09764, .02621, .00706, .00049, .00013, + .00008, .00031, .00039 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09420, .02522, .00661, .00046, .00013, + .00008, .00030, .00037, + .09091, .02428, .00621, .00044, .00012, + .00008, .00029, .00035, + .08789, .02342, .00585, .00042, .00012, + .00008, .00028, .00034, + .08513, .02264, .00554, .00041, .00012, + .00008, .00027, .00032, + .08243, .02188, .00524, .00039, .00011, + .00008, .00026, .00031 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39472, .11676, .17586, .00226, .00000, + .00000, .00094, .00151, + .37389, .11000, .15384, .00214, .00000, + .00000, .00091, .00142, + .34562, .10087, .12665, .00198, .00000, + .00000, .00087, .00127, + .32685, .09484, .11015, .00185, .00002, + .00000, .00083, .00122, + .30864, .08904, .09534, .00173, .00005, + .00000, .00078, .00115, + .29384, .08439, .08428, .00165, .00007, + .00000, .00077, .00107, + .28046, .08020, .07501, .00157, .00009, + .00000, .00074, .00099, + .26708, .07601, .06641, .00148, .00011, + .00000, .00070, .00093 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25605, .07258, .05986, .00140, .00012, + .00000, .00066, .00090, + .24588, .06946, .05419, .00134, .00012, + .00000, .00063, .00087, + .23815, .06711, .05013, .00130, .00013, + .00000, .00061, .00084, + .22273, .06238, .04256, .00120, .00014, + .00001, .00058, .00078, + .21044, .05866, .03705, .00113, .00014, + .00002, .00055, .00073, + .19764, .05480, .03183, .00105, .00014, + .00003, .00051, .00066, + .18528, .05109, .02729, .00096, .00014, + .00004, .00047, .00062, + .17483, .04796, .02382, .00087, .00014, + .00005, .00044, .00059 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16496, .04504, .02084, .00081, .00014, + .00006, .00041, .00056, + .15724, .04278, .01869, .00078, .00013, + .00006, .00039, .00052, + .14841, .04020, .01644, .00073, .00013, + .00006, .00037, .00047, + .14109, .03808, .01472, .00069, .00013, + .00006, .00035, .00043, + .13474, .03625, .01333, .00064, .00012, + .00006, .00033, .00040, + .12711, .03404, .01179, .00061, .00012, + .00006, .00031, .00038, + .12040, .03211, .01055, .00057, .00011, + .00006, .00029, .00036, + .11449, .03043, .00952, .00053, .00011, + .00006, .00027, .00035 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10887, .02884, .00862, .00051, .00011, + .00006, .00025, .00032, + .10369, .02737, .00783, .00048, .00010, + .00006, .00023, .00029, + .09905, .02606, .00718, .00045, .00010, + .00006, .00022, .00028, + .09487, .02488, .00662, .00042, .00010, + .00006, .00021, .00026, + .09089, .02377, .00611, .00040, .00009, + .00006, .00021, .00025, + .08712, .02271, .00566, .00038, .00009, + .00006, .00019, .00024, + .08372, .02177, .00527, .00036, .00009, + .00006, .00018, .00023, + .08060, .02091, .00493, .00035, .00008, + .00005, .00017, .00021 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07760, .02009, .00462, .00034, .00008, + .00005, .00016, .00020, + .07476, .01931, .00434, .00033, .00008, + .00005, .00016, .00019, + .07216, .01859, .00408, .00032, .00007, + .00005, .00015, .00018, + .06979, .01794, .00386, .00030, .00007, + .00005, .00015, .00018, + .06747, .01731, .00365, .00029, .00007, + .00005, .00014, .00017 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .35011, .09948, .13601, .00149, .00000, + .00000, .00068, .00098, + .33055, .09339, .11795, .00140, .00000, + .00000, .00064, .00092, + .30412, .08525, .09593, .00127, .00000, + .00000, .00060, .00083, + .28666, .07989, .08276, .00118, .00001, + .00000, .00057, .00077, + .26972, .07477, .07106, .00111, .00003, + .00000, .00053, .00074, + .25606, .07064, .06243, .00106, .00005, + .00000, .00051, .00069, + .24374, .06695, .05525, .00099, .00006, + .00000, .00048, .00066, + .23144, .06329, .04863, .00092, .00007, + .00000, .00045, .00062 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22132, .06030, .04361, .00088, .00007, + .00000, .00043, .00059, + .21204, .05758, .03930, .00085, .00008, + .00000, .00041, .00055, + .20502, .05552, .03623, .00082, .00008, + .00000, .00040, .00052, + .19104, .05143, .03056, .00075, .00008, + .00000, .00038, .00049, + .17995, .04821, .02647, .00070, .00009, + .00001, .00036, .00045, + .16842, .04488, .02261, .00063, .00009, + .00002, .00033, .00043, + .15728, .04170, .01928, .00059, .00009, + .00003, .00030, .00040, + .14791, .03905, .01677, .00056, .00009, + .00003, .00028, .00036 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13912, .03656, .01462, .00052, .00008, + .00004, .00027, .00033, + .13227, .03463, .01307, .00049, .00008, + .00004, .00025, .00031, + .12447, .03245, .01147, .00046, .00008, + .00004, .00023, .00029, + .11801, .03064, .01024, .00043, .00008, + .00004, .00022, .00028, + .11242, .02909, .00926, .00041, .00008, + .00004, .00020, .00026, + .10578, .02724, .00817, .00036, .00007, + .00004, .00018, .00024, + .09992, .02563, .00729, .00033, .00007, + .00004, .00017, .00023, + .09475, .02423, .00657, .00032, .00007, + .00004, .00016, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08987, .02290, .00594, .00031, .00006, + .00004, .00015, .00019, + .08537, .02168, .00540, .00029, .00006, + .00004, .00015, .00018, + .08136, .02060, .00494, .00027, .00006, + .00004, .00014, .00018, + .07775, .01963, .00455, .00026, .00006, + .00004, .00013, .00016, + .07431, .01871, .00420, .00025, .00006, + .00004, .00012, .00014, + .07108, .01785, .00389, .00024, .00005, + .00003, .00011, .00014, + .06816, .01707, .00362, .00023, .00005, + .00003, .00011, .00013, + .06551, .01637, .00338, .00022, .00005, + .00003, .00011, .00013 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06297, .01569, .00316, .00022, .00005, + .00003, .00010, .00012, + .06055, .01506, .00297, .00020, .00005, + .00003, .00010, .00011, + .05835, .01447, .00279, .00019, .00004, + .00003, .00009, .00011, + .05634, .01395, .00264, .00018, .00004, + .00003, .00008, .00010, + .05439, .01343, .00250, .00017, .00004, + .00003, .00008, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30682, .08369, .10241, .00094, .00000, + .00000, .00046, .00062, + .28870, .07833, .08806, .00089, .00000, + .00000, .00044, .00059, + .26433, .07113, .07077, .00078, .00000, + .00000, .00040, .00053, + .24825, .06645, .06060, .00072, .00001, + .00000, .00039, .00050, + .23276, .06199, .05163, .00071, .00002, + .00000, .00037, .00045, + .22033, .05842, .04507, .00066, .00003, + .00000, .00034, .00042, + .20912, .05520, .03965, .00062, .00003, + .00000, .00032, .00040, + .19797, .05202, .03470, .00059, .00004, + .00000, .00030, .00038 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18890, .04944, .03097, .00053, .00004, + .00000, .00029, .00036, + .18056, .04709, .02780, .00050, .00005, + .00000, .00028, .00034, + .17426, .04533, .02555, .00049, .00005, + .00000, .00027, .00033, + .16170, .04183, .02141, .00046, .00005, + .00000, .00025, .00031, + .15182, .03909, .01847, .00043, .00005, + .00001, .00022, .00029, + .14161, .03627, .01571, .00038, .00005, + .00001, .00021, .00027, + .13179, .03357, .01334, .00034, .00005, + .00002, .00019, .00025, + .12352, .03133, .01155, .00033, .00005, + .00002, .00018, .00023 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11580, .02924, .01004, .00031, .00005, + .00002, .00017, .00021, + .10983, .02761, .00896, .00027, .00005, + .00002, .00016, .00020, + .10303, .02580, .00784, .00025, .00005, + .00002, .00015, .00018, + .09742, .02430, .00699, .00024, .00005, + .00002, .00014, .00016, + .09258, .02302, .00631, .00023, .00005, + .00002, .00013, .00015, + .08681, .02149, .00556, .00021, .00004, + .00002, .00012, .00014, + .08175, .02016, .00496, .00020, .00004, + .00002, .00011, .00014, + .07732, .01900, .00446, .00019, .00004, + .00002, .00011, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07314, .01791, .00403, .00018, .00004, + .00002, .00010, .00012, + .06931, .01692, .00366, .00017, .00004, + .00002, .00009, .00011, + .06590, .01604, .00334, .00016, .00004, + .00002, .00009, .00010, + .06284, .01524, .00308, .00014, .00003, + .00002, .00009, .00010, + .05994, .01449, .00284, .00013, .00003, + .00002, .00008, .00010, + .05720, .01380, .00263, .00013, .00003, + .00002, .00007, .00009, + .05473, .01318, .00244, .00014, .00003, + .00002, .00007, .00008, + .05250, .01261, .00228, .00013, .00003, + .00002, .00007, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05037, .01207, .00214, .00012, .00003, + .00002, .00006, .00007, + .04836, .01155, .00200, .00011, .00003, + .00002, .00006, .00007, + .04652, .01109, .00188, .00010, .00003, + .00002, .00006, .00007, + .04484, .01066, .00178, .00010, .00003, + .00002, .00005, .00007, + .04320, .01025, .00168, .00010, .00002, + .00002, .00005, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26553, .06958, .07505, .00067, .00000, + .00000, .00027, .00035, + .24902, .06489, .06401, .00059, .00000, + .00000, .00024, .00033, + .22683, .05864, .05089, .00054, .00000, + .00000, .00023, .00029, + .21228, .05461, .04326, .00051, .00000, + .00000, .00021, .00028, + .19837, .05075, .03659, .00048, .00001, + .00000, .00020, .00026, + .18724, .04768, .03177, .00043, .00002, + .00000, .00019, .00023, + .17725, .04494, .02782, .00039, .00002, + .00000, .00018, .00023, + .16731, .04223, .02423, .00037, .00002, + .00000, .00017, .00023 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15920, .04004, .02153, .00036, .00002, + .00000, .00016, .00020, + .15181, .03805, .01926, .00034, .00003, + .00000, .00016, .00019, + .14625, .03655, .01766, .00032, .00003, + .00000, .00016, .00018, + .13521, .03361, .01472, .00029, .00003, + .00000, .00013, .00017, + .12651, .03131, .01264, .00027, .00003, + .00000, .00011, .00016, + .11756, .02895, .01072, .00026, .00003, + .00001, .00011, .00014, + .10902, .02670, .00907, .00024, .00003, + .00001, .00011, .00013, + .10186, .02484, .00784, .00022, .00003, + .00001, .00009, .00012 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09519, .02311, .00680, .00021, .00003, + .00001, .00009, .00011, + .09004, .02178, .00606, .00019, .00003, + .00001, .00008, .00009, + .08419, .02027, .00529, .00018, .00003, + .00001, .00008, .00009, + .07938, .01904, .00471, .00017, .00003, + .00001, .00007, .00008, + .07525, .01800, .00425, .00016, .00003, + .00001, .00007, .00008, + .07034, .01675, .00374, .00014, .00003, + .00001, .00006, .00007, + .06605, .01567, .00333, .00013, .00002, + .00001, .00006, .00006, + .06230, .01474, .00300, .00013, .00002, + .00001, .00005, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05878, .01386, .00270, .00012, .00002, + .00001, .00005, .00005, + .05557, .01305, .00245, .00011, .00002, + .00001, .00004, .00005, + .05271, .01234, .00224, .00010, .00002, + .00001, .00005, .00005, + .05015, .01171, .00207, .00010, .00002, + .00001, .00004, .00005, + .04772, .01111, .00190, .00010, .00002, + .00001, .00004, .00005, + .04546, .01055, .00176, .00009, .00002, + .00001, .00004, .00004, + .04342, .01005, .00164, .00008, .00002, + .00001, .00004, .00004, + .04158, .00960, .00153, .00007, .00002, + .00001, .00003, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03981, .00917, .00143, .00007, .00002, + .00001, .00003, .00004, + .03814, .00877, .00134, .00007, .00002, + .00001, .00003, .00003, + .03662, .00840, .00126, .00007, .00002, + .00001, .00003, .00003, + .03523, .00806, .00119, .00007, .00001, + .00001, .00003, .00003, + .03388, .00774, .00113, .00007, .00001, + .00001, .00002, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22629, .05674, .05312, .00036, .00000, + .00000, .00020, .00026, + .21145, .05273, .04496, .00034, .00000, + .00000, .00018, .00021, + .19165, .04743, .03538, .00028, .00000, + .00000, .00016, .00019, + .17871, .04401, .02985, .00028, .00000, + .00000, .00015, .00017, + .16643, .04077, .02509, .00025, .00001, + .00000, .00014, .00016, + .15655, .03819, .02167, .00024, .00001, + .00000, .00013, .00015, + .14774, .03590, .01888, .00023, .00001, + .00000, .00012, .00014, + .13904, .03363, .01637, .00021, .00001, + .00000, .00012, .00012 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13197, .03179, .01450, .00019, .00001, + .00000, .00011, .00013, + .12553, .03014, .01292, .00017, .00001, + .00000, .00010, .00013, + .12070, .02891, .01181, .00016, .00002, + .00000, .00009, .00012, + .11114, .02646, .00981, .00015, .00002, + .00000, .00008, .00011, + .10364, .02457, .00840, .00014, .00002, + .00000, .00008, .00010, + .09595, .02263, .00709, .00013, .00002, + .00000, .00007, .00008, + .08862, .02080, .00599, .00012, .00002, + .00001, .00007, .00007, + .08253, .01928, .00516, .00011, .00002, + .00001, .00006, .00007 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07686, .01788, .00447, .00010, .00002, + .00001, .00006, .00007, + .07250, .01680, .00398, .00009, .00002, + .00001, .00005, .00006, + .06757, .01559, .00348, .00008, .00002, + .00001, .00005, .00006, + .06353, .01460, .00309, .00008, .00002, + .00001, .00005, .00005, + .06005, .01376, .00279, .00008, .00001, + .00001, .00004, .00005, + .05595, .01277, .00245, .00008, .00001, + .00001, .00004, .00005, + .05238, .01190, .00218, .00007, .00001, + .00001, .00004, .00004, + .04927, .01116, .00196, .00007, .00001, + .00001, .00003, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04637, .01047, .00177, .00006, .00001, + .00001, .00003, .00003, + .04372, .00984, .00161, .00005, .00001, + .00001, .00003, .00003, + .04137, .00927, .00147, .00004, .00001, + .00001, .00003, .00004, + .03926, .00878, .00135, .00004, .00001, + .00001, .00003, .00003, + .03727, .00831, .00125, .00004, .00001, + .00001, .00002, .00003, + .03542, .00788, .00115, .00004, .00001, + .00001, .00002, .00003, + .03376, .00749, .00107, .00003, .00001, + .00001, .00002, .00003, + .03226, .00714, .00100, .00003, .00001, + .00001, .00002, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03082, .00680, .00094, .00003, .00001, + .00001, .00002, .00003, + .02946, .00649, .00088, .00003, .00001, + .00001, .00002, .00003, + .02823, .00621, .00082, .00003, .00001, + .00001, .00002, .00002, + .02712, .00595, .00078, .00003, .00001, + .00001, .00001, .00002, + .02604, .00570, .00073, .00003, .00001, + .00001, .00001, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15682, .03598, .02406, .00015, .00000, + .00000, .00006, .00008, + .14545, .03320, .02007, .00012, .00000, + .00000, .00005, .00007, + .13037, .02954, .01549, .00012, .00000, + .00000, .00004, .00006, + .12068, .02719, .01291, .00012, .00000, + .00000, .00004, .00004, + .11152, .02500, .01073, .00009, .00000, + .00000, .00003, .00005, + .10426, .02326, .00919, .00006, .00000, + .00000, .00003, .00005, + .09779, .02173, .00795, .00006, .00000, + .00000, .00004, .00005, + .09142, .02024, .00684, .00007, .00000, + .00000, .00003, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08629, .01903, .00603, .00007, .00000, + .00000, .00003, .00004, + .08165, .01795, .00535, .00007, .00000, + .00000, .00003, .00003, + .07819, .01714, .00487, .00006, .00000, + .00000, .00002, .00003, + .07139, .01556, .00403, .00005, .00000, + .00000, .00003, .00003, + .06610, .01435, .00344, .00004, .00000, + .00000, .00003, .00002, + .06072, .01311, .00290, .00004, .00000, + .00000, .00002, .00002, + .05564, .01195, .00244, .00003, .00000, + .00000, .00002, .00002, + .05145, .01100, .00210, .00003, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04757, .01013, .00182, .00003, .00000, + .00000, .00002, .00002, + .04461, .00946, .00162, .00002, .00000, + .00000, .00002, .00002, + .04129, .00872, .00141, .00002, .00000, + .00000, .00001, .00002, + .03858, .00812, .00126, .00002, .00000, + .00000, .00001, .00001, + .03628, .00761, .00113, .00002, .00000, + .00000, .00002, .00002, + .03356, .00701, .00100, .00002, .00000, + .00000, .00001, .00002, + .03122, .00650, .00089, .00002, .00000, + .00000, .00001, .00002, + .02921, .00606, .00080, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02732, .00565, .00072, .00001, .00000, + .00000, .00001, .00001, + .02561, .00528, .00066, .00001, .00000, + .00000, .00001, .00001, + .02411, .00495, .00060, .00001, .00000, + .00000, .00001, .00001, + .02277, .00466, .00055, .00001, .00000, + .00000, .00001, .00001, + .02150, .00439, .00051, .00001, .00000, + .00000, .00001, .00001, + .02034, .00414, .00047, .00001, .00000, + .00000, .00001, .00001, + .01930, .00392, .00044, .00001, .00000, + .00000, .00001, .00001, + .01836, .00372, .00041, .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)/ + .01748, .00353, .00038, .00001, .00000, + .00000, .00001, .00001, + .01664, .00336, .00036, .00001, .00000, + .00000, .00001, .00001, + .01589, .00320, .00033, .00001, .00000, + .00000, .00001, .00001, + .01520, .00306, .00032, .00001, .00000, + .00000, .00001, .00001, + .01454, .00292, .00030, .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)/ + .10043, .02088, .00919, .00004, .00000, + .00000, .00001, .00001, + .09238, .01910, .00758, .00004, .00000, + .00000, .00001, .00001, + .08185, .01681, .00577, .00004, .00000, + .00000, .00000, .00001, + .07515, .01535, .00477, .00003, .00000, + .00000, .00001, .00001, + .06886, .01399, .00394, .00002, .00000, + .00000, .00001, .00002, + .06392, .01293, .00336, .00003, .00000, + .00000, .00001, .00001, + .05955, .01200, .00290, .00003, .00000, + .00000, .00001, .00001, + .05529, .01110, .00249, .00003, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05188, .01038, .00219, .00002, .00000, + .00000, .00000, .00001, + .04882, .00973, .00194, .00002, .00000, + .00000, .00000, .00001, + .04654, .00925, .00177, .00002, .00000, + .00000, .00000, .00000, + .04210, .00832, .00146, .00001, .00000, + .00000, .00001, .00001, + .03868, .00761, .00125, .00002, .00000, + .00000, .00001, .00000, + .03524, .00690, .00105, .00001, .00000, + .00000, .00001, .00000, + .03201, .00624, .00089, .00001, .00000, + .00000, .00000, .00000, + .02937, .00570, .00077, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02695, .00521, .00067, .00001, .00000, + .00000, .00000, .00000, + .02510, .00483, .00060, .00001, .00000, + .00000, .00000, .00000, + .02306, .00442, .00052, .00001, .00000, + .00000, .00000, .00000, + .02141, .00409, .00047, .00001, .00000, + .00000, .00000, .00000, + .02002, .00381, .00042, .00000, .00000, + .00000, .00000, .00000, + .01838, .00349, .00037, .00001, .00000, + .00000, .00000, .00000, + .01698, .00321, .00033, .00001, .00000, + .00000, .00000, .00000, + .01578, .00297, .00030, .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)/ + .01467, .00275, .00027, .00000, .00000, + .00000, .00000, .00000, + .01367, .00256, .00024, .00000, .00000, + .00000, .00000, .00000, + .01279, .00239, .00022, .00000, .00000, + .00000, .00000, .00000, + .01201, .00224, .00021, .00001, .00000, + .00000, .00000, .00000, + .01129, .00210, .00019, .00001, .00000, + .00000, .00000, .00000, + .01062, .00197, .00017, .00000, .00000, + .00000, .00000, .00000, + .01003, .00185, .00016, .00000, .00000, + .00000, .00000, .00000, + .00950, .00175, .00015, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00900, .00165, .00014, .00000, .00000, + .00000, .00000, .00000, + .00853, .00156, .00013, .00000, .00000, + .00000, .00000, .00000, + .00811, .00148, .00012, .00000, .00000, + .00000, .00000, .00000, + .00773, .00141, .00012, .00000, .00000, + .00000, .00000, .00000, + .00736, .00134, .00011, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .05793, .01078, .00282, .00002, .00000, + .00000, .00000, .00000, + .05281, .00977, .00232, .00001, .00000, + .00000, .00000, .00000, + .04618, .00848, .00176, .00002, .00000, + .00000, .00000, .00000, + .04201, .00768, .00145, .00001, .00000, + .00000, .00000, -.00001, + .03814, .00694, .00120, .00001, .00000, + .00000, .00000, .00000, + .03512, .00636, .00102, .00001, .00000, + .00000, .00000, .00000, + .03249, .00586, .00089, .00001, .00000, + .00000, .00000, .00000, + .02994, .00538, .00076, .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)/ + .02789, .00499, .00067, .00001, .00000, + .00000, .00000, .00000, + .02608, .00465, .00060, .00001, .00000, + .00000, .00000, .00000, + .02475, .00440, .00055, .00000, .00000, + .00000, .00000, .00000, + .02215, .00392, .00046, .00001, .00000, + .00000, .00000, .00000, + .02017, .00356, .00039, .00001, .00000, + .00000, .00000, .00000, + .01820, .00319, .00033, .00000, .00000, + .00000, .00000, .00000, + .01638, .00286, .00028, .00000, .00000, + .00000, .00000, .00000, + .01489, .00259, .00025, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01355, .00234, .00022, .00000, .00000, + .00000, .00000, .00000, + .01254, .00216, .00019, .00000, .00000, + .00000, .00000, .00000, + .01142, .00196, .00017, .00000, .00000, + .00000, .00000, .00000, + .01052, .00180, .00015, .00000, .00000, + .00000, .00000, .00000, + .00977, .00167, .00014, .00000, .00000, + .00000, .00000, .00000, + .00890, .00151, .00012, .00000, .00000, + .00000, .00000, .00000, + .00816, .00138, .00011, .00000, .00000, + .00000, .00000, .00000, + .00753, .00127, .00010, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00695, .00117, .00009, .00000, .00000, + .00000, .00000, .00000, + .00643, .00108, .00008, .00000, .00000, + .00000, .00000, .00000, + .00597, .00100, .00007, .00000, .00000, + .00000, .00000, .00000, + .00558, .00093, .00007, .00000, .00000, + .00000, .00000, .00000, + .00521, .00087, .00006, .00000, .00000, + .00000, .00000, .00000, + .00488, .00081, .00006, .00000, .00000, + .00000, .00000, .00000, + .00458, .00076, .00005, .00000, .00000, + .00000, .00000, .00000, + .00431, .00071, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00406, .00067, .00005, .00000, .00000, + .00000, .00000, .00000, + .00383, .00063, .00004, .00000, .00000, + .00000, .00000, .00000, + .00363, .00060, .00004, .00000, .00000, + .00000, .00000, .00000, + .00344, .00056, .00004, .00000, .00000, + .00000, .00000, .00000, + .00326, .00053, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02873, .00468, .00064, .00000, .00000, + .00000, .00000, .00000, + .02593, .00420, .00053, -.00001, .00000, + .00000, .00000, .00000, + .02233, .00359, .00041, .00000, .00000, + .00000, .00000, .00000, + .02010, .00322, .00034, .00000, .00000, + .00000, .00000, .00000, + .01805, .00288, .00029, .00000, .00000, + .00000, .00000, .00000, + .01647, .00261, .00025, .00000, .00000, + .00000, .00000, .00000, + .01510, .00239, .00022, .00000, .00000, + .00000, .00000, .00000, + .01379, .00217, .00019, .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)/ + .01275, .00200, .00017, .00000, .00000, + .00000, .00000, .00000, + .01183, .00185, .00015, .00000, .00000, + .00000, .00000, .00000, + .01116, .00174, .00014, .00000, .00000, + .00000, .00000, .00000, + .00987, .00153, .00012, .00000, .00000, + .00000, .00000, .00000, + .00890, .00138, .00010, .00000, .00000, + .00000, .00000, .00000, + .00794, .00122, .00009, .00000, .00000, + .00000, .00000, .00000, + .00706, .00108, .00008, .00000, .00000, + .00000, .00000, .00000, + .00636, .00097, .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)/ + .00572, .00087, .00006, .00000, .00000, + .00000, .00000, .00000, + .00525, .00080, .00005, .00000, .00000, + .00000, .00000, .00000, + .00474, .00071, .00005, .00000, .00000, + .00000, .00000, .00000, + .00433, .00065, .00004, .00000, .00000, + .00000, .00000, .00000, + .00399, .00060, .00004, .00000, .00000, + .00000, .00000, .00000, + .00360, .00054, .00003, .00000, .00000, + .00000, .00000, .00000, + .00327, .00049, .00003, .00000, .00000, + .00000, .00000, .00000, + .00299, .00044, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00274, .00040, .00002, .00000, .00000, + .00000, .00000, .00000, + .00251, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00232, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00215, .00031, .00002, .00000, .00000, + .00000, .00000, .00000, + .00199, .00029, .00002, .00000, .00000, + .00000, .00000, .00000, + .00185, .00027, .00002, .00000, .00000, + .00000, .00000, .00000, + .00173, .00025, .00001, .00000, .00000, + .00000, .00000, .00000, + .00162, .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)/ + .00151, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00142, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00133, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00126, .00018, .00001, .00000, .00000, + .00000, .00000, .00000, + .00119, .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)/ + .00295, .00033, .00001, .00000, .00000, + .00000, .00000, .00000, + .00258, .00029, .00001, .00000, .00000, + .00000, .00000, .00000, + .00213, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00186, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00162, .00018, .00001, .00000, .00000, + .00000, .00000, .00000, + .00144, .00016, .00001, .00000, .00000, + .00000, .00000, .00000, + .00129, .00014, .00001, .00000, .00000, + .00000, .00000, .00000, + .00114, .00012, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00103, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00094, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00087, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00074, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00065, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00056, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00048, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00004, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00037, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00033, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00002, .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, + .00013, .00001, .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 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor02.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