#include "pdf/pilot.h" subroutine sfmrs_99a10(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)/ + .00525, .00225, 1.12228, .89535, .00000, + .00000, .47745, .90766, + .00541, .00231, 2.40311, .93067, .00000, + .00000, .51822, .94304, + .00565, .00242, 4.93807, 1.00814, .00000, + .00000, .60340, 1.02058, + .00583, .00249, 7.38439, 1.08284, .00000, + .00000, .68349, 1.09532, + .00601, .00257, 10.39913, 1.18129, .02346, + .00000, .78739, 1.19382, + .00617, .00264, 13.34146, 1.28159, .14145, + .00000, .89221, 1.29413, + .00633, .00271, 16.63801, 1.39105, .27736, + .00000, 1.00591, 1.40362, + .00649, .00279, 20.70532, 1.52237, .42355, + .00000, 1.14161, 1.53495 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00664, .00286, 24.65690, 1.65043, .55883, + .00000, 1.27340, 1.66302, + .00678, .00292, 28.90014, 1.78644, .70347, + .00000, 1.41292, 1.79903, + .00689, .00297, 32.61700, 1.90285, .82992, + .00000, 1.53207, 1.91544, + .00713, .00309, 41.21872, 2.17968, 1.12298, + .02293, 1.81458, 2.19227, + .00733, .00318, 49.30855, 2.44747, 1.40347, + .35118, 2.08709, 2.46004, + .00757, .00330, 59.52070, 2.78254, 1.75486, + .75502, 2.42730, 2.79510, + .00781, .00342, 71.53603, 3.17173, 2.16203, + 1.17899, 2.82168, 3.18426, + .00804, .00353, 83.68587, 3.56207, 2.56968, + 1.60372, 3.21660, 3.57457 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00827, .00364, 97.21748, 3.99429, 3.02080, + 2.07185, 3.65332, 4.00676, + .00846, .00373, 109.39142, 4.38289, 3.42412, + 2.48593, 4.04557, 4.39534, + .00870, .00385, 125.31087, 4.89143, 3.94990, + 3.02384, 4.55843, 4.90383, + .00891, .00395, 140.55878, 5.37749, 4.45329, + 3.54107, 5.04822, 5.38985, + .00910, .00405, 155.52542, 5.85430, 4.94729, + 4.04895, 5.52839, 5.86663, + .00935, .00418, 175.65685, 6.50033, 5.61193, + 4.72622, 6.17858, 6.51260, + .00958, .00430, 195.97507, 7.15348, 6.28451, + 5.41334, 6.83555, 7.16570, + .00981, .00441, 216.32759, 7.80824, 6.96013, + 6.10577, 7.49380, 7.82042 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01003, .00453, 237.56422, 8.49924, 7.66784, + 6.82455, 8.18823, 8.51136, + .01025, .00464, 259.58493, 9.21725, 8.40484, + 7.57587, 8.90952, 9.22932, + .01047, .00475, 281.48926, 9.93490, 9.14117, + 8.32642, 9.63021, 9.94692, + .01067, .00485, 302.87012, 10.64187, 9.86407, + 9.06067, 10.34000, 10.65384, + .01087, .00496, 325.46841, 11.39003, 10.63113, + 9.84255, 11.09093, 11.40195, + .01107, .00507, 348.24216, 12.15321, 11.40980, + 10.63207, 11.85681, 12.16508, + .01127, .00517, 370.98849, 12.91572, 12.19038, + 11.42689, 12.62183, 12.92754, + .01145, .00526, 392.87900, 13.65874, 12.94753, + 12.19407, 13.36718, 13.67050 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01164, .00536, 415.90585, 14.44152, 13.74703, + 13.00650, 14.15229, 14.45324, + .01183, .00546, 439.12079, 15.23818, 14.55892, + 13.82971, 14.95122, 15.24985, + .01201, .00555, 461.94223, 16.02556, 15.36135, + 14.64348, 15.74072, 16.03719, + .01218, .00565, 484.27039, 16.79906, 16.15020, + 15.44438, 16.51622, 16.81065, + .01236, .00574, 507.09567, 17.59878, 16.96319, + 16.26715, 17.31792, 17.61032 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00708, .00307, 1.04676, .75836, .00000, + .00000, .40387, .76549, + .00731, .00317, 2.20061, .79119, .00000, + .00000, .44095, .79835, + .00764, .00332, 4.43490, .85978, .00000, + .00000, .51556, .86698, + .00789, .00343, 6.54747, .92421, .00000, + .00000, .58419, .93143, + .00815, .00355, 9.10738, 1.00755, .01993, + .00000, .67176, 1.01479, + .00837, .00366, 11.56874, 1.09135, .11828, + .00000, .75907, 1.09861, + .00859, .00376, 14.29358, 1.18201, .23096, + .00000, .85302, 1.18928, + .00881, .00387, 17.61647, 1.28988, .35077, + .00000, .96428, 1.29715 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00901, .00397, 20.80819, 1.39414, .46066, + .00000, 1.07143, 1.40142, + .00921, .00406, 24.20262, 1.50411, .57732, + .00000, 1.18412, 1.51139, + .00936, .00413, 27.15274, 1.59776, .67871, + .00000, 1.27989, 1.60505, + .00969, .00430, 33.89999, 1.81859, .91164, + .01872, 1.50510, 1.82587, + .00998, .00444, 40.15580, 2.03018, 1.13236, + .27660, 1.72034, 2.03746, + .01030, .00460, 47.95551, 2.29261, 1.40635, + .59191, 1.98673, 2.29988, + .01064, .00477, 57.01614, 2.59456, 1.72076, + .91910, 2.29268, 2.60182, + .01095, .00492, 66.06915, 2.89472, 2.03270, + 1.24385, 2.59638, 2.90197 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01126, .00508, 76.04121, 3.22437, 2.37505, + 1.59869, 2.92949, 3.23160, + .01152, .00522, 84.92364, 3.51851, 2.67877, + 1.91006, 3.22644, 3.52573, + .01184, .00538, 96.42598, 3.90056, 3.07173, + 2.31143, 3.61182, 3.90776, + .01213, .00553, 107.33889, 4.26306, 3.44524, + 2.69458, 3.97720, 4.27025, + .01239, .00567, 117.96153, 4.61639, 3.80947, + 3.06840, 4.33310, 4.62356, + .01273, .00584, 132.11644, 5.09161, 4.29587, + 3.56307, 4.81152, 5.09875, + .01305, .00601, 146.27019, 5.56855, 4.78456, + 4.06135, 5.29140, 5.57568, + .01335, .00617, 160.32941, 6.04352, 5.27231, + 4.56030, 5.76906, 6.05062 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01366, .00633, 174.86993, 6.54130, 5.77961, + 5.07441, 6.26947, 6.54838, + .01396, .00649, 189.83273, 7.05538, 6.30480, + 5.60872, 6.78607, 7.06243, + .01425, .00664, 204.60663, 7.56616, 6.82648, + 6.13940, 7.29920, 7.57319, + .01452, .00678, 218.92163, 8.06642, 7.33565, + 6.65543, 7.80163, 8.07343, + .01479, .00693, 233.95966, 8.59319, 7.87338, + 7.20246, 8.33054, 8.60018, + .01507, .00707, 249.00482, 9.12747, 8.41606, + 7.75149, 8.86689, 9.13444, + .01533, .00721, 263.95044, 9.65888, 8.95780, + 8.30201, 9.40023, 9.66582, + .01558, .00734, 278.23807, 10.17401, 9.48047, + 8.83043, 9.91716, 10.18093 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01583, .00748, 293.19366, 10.71448, 10.03024, + 9.38798, 10.45942, 10.72138, + .01608, .00761, 308.18170, 11.26193, 10.58589, + 9.95019, 11.00862, 11.26881, + .01632, .00774, 322.84000, 11.80074, 11.13283, + 10.50371, 11.54907, 11.80760, + .01655, .00787, 337.11465, 12.32802, 11.66853, + 11.04652, 12.07789, 12.33486, + .01679, .00799, 351.62543, 12.87079, 12.21815, + 11.60155, 12.62219, 12.87761 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00955, .00419, .97736, .64207, .00000, + .00000, .34173, .64559, + .00987, .00434, 2.01640, .67231, .00000, + .00000, .37528, .67584, + .01034, .00456, 3.98421, .73292, .00000, + .00000, .44057, .73647, + .01068, .00473, 5.80641, .78845, .00000, + .00000, .49937, .79201, + .01104, .00491, 7.97670, .85896, .01692, + .00000, .57315, .86252, + .01135, .00506, 10.03171, .92892, .09886, + .00000, .64583, .93249, + .01165, .00521, 12.27906, 1.00393, .19225, + .00000, .72338, 1.00750, + .01197, .00537, 14.98715, 1.09241, .29039, + .00000, .81448, 1.09599 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01224, .00551, 17.55810, 1.17715, .37960, + .00000, .90145, 1.18073, + .01251, .00564, 20.26553, 1.26589, .47361, + .00000, .99228, 1.26947, + .01273, .00575, 22.59988, 1.34107, .55485, + .00000, 1.06909, 1.34465, + .01318, .00599, 27.87453, 1.51676, .73977, + .01528, 1.24816, 1.52035, + .01357, .00619, 32.69355, 1.68348, .91325, + .21775, 1.41768, 1.68707, + .01402, .00642, 38.62614, 1.88836, 1.12657, + .46382, 1.62560, 1.89195, + .01448, .00666, 45.42850, 2.12183, 1.36896, + .71614, 1.86214, 2.12541, + .01490, .00688, 52.14231, 2.35181, 1.60722, + .96424, 2.09482, 2.35539 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01533, .00711, 59.45475, 2.60226, 1.86648, + 1.23295, 2.34792, 2.60583, + .01569, .00730, 65.90182, 2.82399, 2.09467, + 1.46680, 2.57180, 2.82756, + .01613, .00753, 74.16721, 3.10979, 2.38764, + 1.76589, 2.86014, 3.11336, + .01652, .00773, 81.93324, 3.37895, 2.66407, + 2.04931, 3.13150, 3.38252, + .01688, .00793, 89.42848, 3.63958, 2.93186, + 2.32400, 3.39409, 3.64314, + .01734, .00817, 99.31969, 3.98748, 3.28675, + 2.68462, 3.74444, 3.99105, + .01778, .00840, 109.11588, 4.33405, 3.64070, + 3.04524, 4.09325, 4.33761, + .01819, .00862, 118.76360, 4.67686, 3.99166, + 3.40399, 4.43811, 4.68041 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01860, .00885, 128.65027, 5.03356, 4.35400, + 3.77081, 4.79682, 5.03712, + .01900, .00906, 138.74493, 5.39967, 4.72688, + 4.14981, 5.16485, 5.40322, + .01939, .00927, 148.63646, 5.76123, 5.09506, + 4.52400, 5.52820, 5.76478, + .01976, .00947, 158.14757, 6.11323, 5.45224, + 4.88561, 5.88185, 6.11677, + .02013, .00967, 168.07722, 6.48201, 5.82766, + 5.26717, 6.25226, 6.48555, + .02050, .00987, 177.93613, 6.85384, 6.20423, + 5.64771, 6.62567, 6.85738, + .02085, .01006, 187.67624, 7.22200, 6.57856, + 6.02776, 6.99530, 7.22553, + .02118, .01025, 196.92212, 7.57695, 6.93768, + 6.39043, 7.35163, 7.58048 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02152, .01043, 206.55217, 7.94781, 7.31398, + 6.77167, 7.72386, 7.95134, + .02186, .01062, 216.14240, 8.32164, 7.69241, + 7.15415, 8.09902, 8.32517, + .02218, .01079, 225.47247, 8.68800, 8.06336, + 7.52917, 8.46663, 8.69153, + .02249, .01096, 234.51477, 9.04512, 8.42533, + 7.89559, 8.82493, 9.04865, + .02280, .01113, 243.65152, 9.41106, 8.79495, + 8.26842, 9.19203, 9.41458 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01139, .00503, .93976, .58238, .00000, + .00000, .30999, .58441, + .01177, .00522, 1.91686, .61110, .00000, + .00000, .34157, .61313, + .01234, .00550, 3.74307, .66741, .00000, + .00000, .40193, .66945, + .01276, .00571, 5.41321, .71829, .00000, + .00000, .45562, .72034, + .01320, .00593, 7.38202, .78220, .01537, + .00000, .52236, .78425, + .01357, .00612, 9.22923, .84512, .08900, + .00000, .58762, .84718, + .01393, .00631, 11.23462, .91222, .17264, + .00000, .65689, .91427, + .01431, .00651, 13.63402, .99095, .25994, + .00000, .73788, .99301 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01465, .00668, 15.89602, 1.06594, .33887, + .00000, .81478, 1.06800, + .01497, .00685, 18.26413, 1.14413, .42168, + .00000, .89476, 1.14619, + .01523, .00698, 20.29624, 1.21015, .49300, + .00000, .96219, 1.21222, + .01578, .00727, 24.85473, 1.36364, .65446, + .01356, 1.11857, 1.36572, + .01625, .00752, 28.98272, 1.50844, .80502, + .18925, 1.26576, 1.51051, + .01679, .00780, 34.02618, 1.68539, .98913, + .40199, 1.44532, 1.68747, + .01734, .00810, 39.76410, 1.88587, 1.19709, + .61863, 1.64842, 1.88796, + .01785, .00837, 45.38597, 2.08228, 1.40038, + .83045, 1.84714, 2.08437 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01837, .00865, 51.46790, 2.29508, 1.62046, + 1.05866, 2.06221, 2.29718, + .01880, .00888, 56.79725, 2.48261, 1.81326, + 1.25631, 2.25157, 2.48471, + .01933, .00916, 63.58873, 2.72321, 2.05964, + 1.50791, 2.49434, 2.72532, + .01979, .00941, 69.93290, 2.94881, 2.29108, + 1.74527, 2.72181, 2.95092, + .02023, .00965, 76.02460, 3.16638, 2.51442, + 1.97442, 2.94106, 3.16849, + .02077, .00994, 84.01689, 3.45551, 2.80904, + 2.27383, 3.23227, 3.45763, + .02129, .01023, 91.88715, 3.74225, 3.10160, + 2.57192, 3.52092, 3.74438, + .02178, .01049, 99.59846, 4.02474, 3.39054, + 2.86733, 3.80515, 4.02687 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02228, .01076, 107.45668, 4.31742, 3.68753, + 3.16798, 4.09954, 4.31956, + .02276, .01103, 115.44278, 4.61670, 3.99206, + 3.47752, 4.40046, 4.61884, + .02322, .01128, 123.23236, 4.91120, 4.29169, + 3.78205, 4.69648, 4.91335, + .02366, .01152, 130.68756, 5.19688, 4.58130, + 4.07524, 4.98356, 5.19903, + .02410, .01176, 138.44206, 5.49528, 4.88483, + 4.38375, 5.28336, 5.49744, + .02454, .01200, 146.10555, 5.79509, 5.18818, + 4.69026, 5.58451, 5.79725, + .02496, .01223, 153.65193, 6.09112, 5.48897, + 4.99566, 5.88180, 6.09330, + .02535, .01245, 160.78462, 6.37562, 5.77655, + 5.28604, 6.16747, 6.37780 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02575, .01267, 168.19147, 6.67214, 6.07719, + 5.59063, 6.46515, 6.67433, + .02615, .01289, 175.53937, 6.97014, 6.37864, + 5.89528, 6.76429, 6.97234, + .02654, .01311, 182.66512, 7.26145, 6.67339, + 6.19325, 7.05666, 7.26365, + .02690, .01331, 189.55107, 7.54475, 6.96035, + 6.48373, 7.34096, 7.54696, + .02727, .01351, 196.48325, 7.83425, 7.25254, + 6.77843, 7.63145, 7.83646 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01290, .00573, .91453, .54337, .00000, + .00000, .28933, .54459, + .01335, .00595, 1.84989, .57102, .00000, + .00000, .31955, .57224, + .01400, .00629, 3.58151, .62443, .00000, + .00000, .37661, .62566, + .01448, .00653, 5.15101, .67224, .00000, + .00000, .42696, .67348, + .01497, .00679, 6.98749, .73184, .01436, + .00000, .48909, .73307, + .01540, .00701, 8.69919, .79018, .08258, + .00000, .54954, .79142, + .01582, .00723, 10.54770, .85214, .15992, + .00000, .61346, .85339, + .01626, .00746, 12.74810, .92459, .24024, + .00000, .68794, .92584 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01664, .00766, 14.81205, .99331, .31258, + .00000, .75837, .99456, + .01701, .00786, 16.96367, 1.06474, .38825, + .00000, .83141, 1.06599, + .01730, .00801, 18.80372, 1.12491, .45324, + .00000, .89284, 1.12617, + .01793, .00835, 22.90975, 1.26427, .59984, + .01246, 1.03480, 1.26554, + .01847, .00864, 26.60425, 1.39517, .73593, + .17127, 1.16784, 1.39645, + .01908, .00896, 31.09339, 1.55451, .90169, + .36309, 1.32952, 1.55580, + .01971, .00931, 36.17203, 1.73428, 1.08812, + .55744, 1.51163, 1.73557, + .02029, .00962, 41.12167, 1.90970, 1.26965, + .74672, 1.68911, 1.91100 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02088, .00994, 46.45036, 2.09906, 1.46545, + .94988, 1.88051, 2.10038, + .02137, .01021, 51.09896, 2.26538, 1.63639, + 1.12520, 2.04846, 2.26670, + .02197, .01053, 56.99728, 2.47806, 1.85411, + 1.34763, 2.26308, 2.47939, + .02250, .01082, 62.48400, 2.67683, 2.05798, + 1.55682, 2.46353, 2.67818, + .02299, .01109, 67.73302, 2.86800, 2.25416, + 1.75819, 2.65619, 2.86935, + .02362, .01143, 74.59054, 3.12121, 2.51209, + 2.02041, 2.91126, 3.12257, + .02421, .01176, 81.31540, 3.37151, 2.76740, + 2.28065, 3.16327, 3.37289, + .02476, .01206, 87.88012, 3.61740, 3.01885, + 2.53782, 3.41072, 3.61879 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02532, .01237, 94.54267, 3.87136, 3.27647, + 2.79868, 3.66620, 3.87276, + .02587, .01267, 101.29082, 4.13036, 3.53995, + 3.06659, 3.92667, 4.13178, + .02639, .01296, 107.85107, 4.38456, 3.79852, + 3.32947, 4.18223, 4.38599, + .02689, .01324, 114.10844, 4.63050, 4.04778, + 3.58187, 4.42942, 4.63194, + .02739, .01351, 120.59962, 4.88685, 4.30850, + 3.84695, 4.68701, 4.88831, + .02788, .01379, 126.99264, 5.14374, 4.56835, + 4.10956, 4.94510, 5.14521, + .02835, .01405, 133.27339, 5.39691, 4.82555, + 4.37078, 5.19939, 5.39839, + .02880, .01430, 139.19069, 5.63963, 5.07085, + 4.61852, 5.44315, 5.64112 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02925, .01455, 145.32248, 5.89217, 5.32687, + 4.87796, 5.69673, 5.89367, + .02970, .01480, 151.38820, 6.14542, 5.58301, + 5.13688, 5.95100, 6.14694, + .03013, .01504, 157.25691, 6.39254, 5.83301, + 5.38966, 6.19907, 6.39407, + .03054, .01527, 162.91612, 6.63246, 6.07601, + 5.63571, 6.43988, 6.63400, + .03096, .01550, 168.59784, 6.87713, 6.32292, + 5.88478, 6.68544, 6.87869 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01421, .00634, .89586, .51491, .00000, + .00000, .27429, .51563, + .01471, .00659, 1.80006, .54172, .00000, + .00000, .30349, .54245, + .01544, .00697, 3.46150, .59298, .00000, + .00000, .35811, .59371, + .01597, .00725, 4.95680, .63853, .00000, + .00000, .40599, .63926, + .01652, .00754, 6.69629, .69496, .01361, + .00000, .46477, .69570, + .01700, .00779, 8.30917, .74997, .07792, + .00000, .52172, .75071, + .01745, .00804, 10.04378, .80821, .15068, + .00000, .58177, .80896, + .01794, .00830, 12.10030, .87611, .22596, + .00000, .65153, .87687 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01837, .00852, 14.02164, .94031, .29355, + .00000, .71731, .94107, + .01878, .00874, 16.01795, 1.00687, .36409, + .00000, .78536, 1.00764, + .01910, .00892, 17.72059, 1.06284, .42455, + .00000, .84249, 1.06362, + .01980, .00929, 21.50437, 1.19208, .56052, + .01166, .97411, 1.19287, + .02040, .00962, 24.89169, 1.31306, .68633, + .15847, 1.09707, 1.31386, + .02107, .00998, 28.98990, 1.45987, .83906, + .33545, 1.24602, 1.46068, + .02178, .01037, 33.60579, 1.62495, 1.01028, + .51407, 1.41325, 1.62577, + .02242, .01072, 38.08572, 1.78554, 1.17647, + .68747, 1.57574, 1.78638 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02307, .01107, 42.89031, 1.95840, 1.35521, + .87304, 1.75046, 1.95925, + .02361, .01137, 47.06711, 2.10981, 1.51084, + 1.03275, 1.90338, 2.11068, + .02427, .01174, 52.34855, 2.30293, 1.70854, + 1.23484, 2.09828, 2.30381, + .02486, .01206, 57.24530, 2.48297, 1.89321, + 1.42441, 2.27985, 2.48386, + .02540, .01236, 61.91633, 2.65573, 2.07051, + 1.60650, 2.45399, 2.65664, + .02609, .01274, 67.99828, 2.88397, 2.30301, + 1.84297, 2.68393, 2.88490, + .02674, .01310, 73.94312, 3.10903, 2.53258, + 2.07708, 2.91056, 3.10998, + .02735, .01344, 79.72946, 3.32961, 2.75817, + 2.30792, 3.13257, 3.33058 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02797, .01378, 85.58313, 3.55689, 2.98871, + 2.54145, 3.36124, 3.55787, + .02857, .01412, 91.49623, 3.78818, 3.22402, + 2.78081, 3.59387, 3.78918, + .02915, .01444, 97.22963, 4.01473, 3.45448, + 3.01520, 3.82167, 4.01575, + .02969, .01474, 102.68355, 4.23346, 3.67618, + 3.23977, 4.04155, 4.23450, + .03024, .01505, 108.32943, 4.46107, 3.90769, + 3.47525, 4.27029, 4.46213, + .03078, .01535, 113.87471, 4.68869, 4.13795, + 3.70803, 4.49901, 4.68976, + .03130, .01564, 119.31264, 4.91268, 4.36554, + 3.93927, 4.72403, 4.91377, + .03179, .01592, 124.42277, 5.12702, 4.58216, + 4.15812, 4.93933, 5.12813 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03229, .01620, 129.70924, 5.34972, 4.80796, + 4.38703, 5.16298, 5.35085, + .03278, .01647, 134.92703, 5.57268, 5.03348, + 4.61507, 5.38687, 5.57383, + .03326, .01674, 139.96600, 5.78992, 5.25329, + 4.83739, 5.60498, 5.79109, + .03371, .01699, 144.81709, 6.00056, 5.46666, + 5.05352, 5.81644, 6.00174, + .03417, .01725, 149.67650, 6.21503, 5.68311, + 5.27193, 6.03172, 6.21622 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01923, .00871, .84367, .43567, .00000, + .00000, .23264, .43550, + .01992, .00909, 1.65750, .45994, .00000, + .00000, .25879, .45979, + .02093, .00964, 3.11732, .50492, .00000, + .00000, .30642, .50479, + .02166, .01005, 4.40189, .54403, .00000, + .00000, .34737, .54391, + .02243, .01047, 5.86864, .59161, .01153, + .00000, .39679, .59151, + .02309, .01084, 7.20615, .63735, .06496, + .00000, .44404, .63727, + .02373, .01119, 8.62575, .68531, .12509, + .00000, .49342, .68524, + .02440, .01156, 10.28732, .74069, .18653, + .00000, .55026, .74064 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02499, .01189, 11.82007, .79252, .24119, + .00000, .60333, .79249, + .02555, .01221, 13.39576, .84583, .29779, + .00000, .65780, .84582, + .02600, .01246, 14.72825, .89041, .34601, + .00000, .70328, .89041, + .02696, .01299, 17.65043, .99232, .45341, + .00949, .80705, .99236, + .02778, .01346, 20.22408, 1.08670, .55171, + .12429, .90296, 1.08676, + .02871, .01398, 23.29516, 1.20008, .66987, + .26184, 1.01801, 1.20017, + .02967, .01452, 26.70554, 1.32622, .80092, + .39895, 1.14583, 1.32635, + .03055, .01502, 29.97158, 1.44771, .92687, + .53075, 1.26880, 1.44788 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03144, .01552, 33.43157, 1.57730, 1.06109, + .67048, 1.39983, 1.57750, + .03218, .01594, 36.40583, 1.68984, 1.17695, + .78969, 1.51354, 1.69008, + .03308, .01645, 40.12552, 1.83220, 1.32291, + .93927, 1.65727, 1.83247, + .03388, .01690, 43.53792, 1.96384, 1.45816, + 1.07848, 1.79011, 1.96415, + .03461, .01732, 46.76278, 2.08927, 1.58711, + 1.21125, 1.91660, 2.08961, + .03555, .01785, 50.91646, 2.25363, 1.75479, + 1.38218, 2.08228, 2.25401, + .03643, .01835, 54.93406, 2.41439, 1.91903, + 1.55008, 2.24425, 2.41481, + .03726, .01882, 58.80806, 2.57082, 2.07930, + 1.71448, 2.40179, 2.57128 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03809, .01929, 62.68601, 2.73072, 2.24174, + 1.87938, 2.56277, 2.73122, + .03890, .01975, 66.56994, 2.89238, 2.40648, + 2.04734, 2.72546, 2.89291, + .03967, .02020, 70.30402, 3.04969, 2.56677, + 2.21074, 2.88374, 3.05026, + .04040, .02061, 73.82474, 3.20057, 2.71993, + 2.36622, 3.03551, 3.20118, + .04114, .02103, 77.44503, 3.35674, 2.87907, + 2.52846, 3.19256, 3.35738, + .04187, .02145, 80.96884, 3.51189, 3.03625, + 2.68769, 3.34856, 3.51257, + .04256, .02184, 84.40439, 3.66384, 3.19093, + 2.84520, 3.50131, 3.66456, + .04322, .02222, 87.60541, 3.80836, 3.33721, + 2.99328, 3.64657, 3.80911 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04389, .02260, 90.89925, 3.95787, 3.48907, + 3.14757, 3.79681, 3.95865, + .04454, .02297, 94.12605, 4.10674, 3.63990, + 3.30040, 3.94640, 4.10756, + .04517, .02333, 97.22351, 4.25113, 3.78624, + 3.44872, 4.09146, 4.25197, + .04577, .02367, 100.18954, 4.39053, 3.92772, + 3.59234, 4.23150, 4.39141, + .04638, .02402, 103.13859, 4.53174, 4.07045, + 3.73664, 4.37334, 4.53265 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02608, .01207, .80311, .36902, .00000, + .00000, .19789, .36881, + .02704, .01262, 1.53565, .39083, .00000, + .00000, .22121, .39066, + .02845, .01343, 2.81595, .43011, .00000, + .00000, .26262, .43000, + .02947, .01402, 3.91590, .46356, .00000, + .00000, .29755, .46349, + .03054, .01463, 5.14732, .50353, .00974, + .00000, .33899, .50350, + .03145, .01516, 6.25057, .54140, .05397, + .00000, .37808, .54142, + .03233, .01567, 7.40527, .58071, .10348, + .00000, .41853, .58077, + .03326, .01621, 8.73857, .62566, .15345, + .00000, .46465, .62577 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03407, .01668, 9.95205, .66728, .19745, + .00000, .50725, .66742, + .03485, .01713, 11.18557, .70972, .24266, + .00000, .55063, .70990, + .03547, .01749, 12.21937, .74500, .28093, + .00000, .58663, .74521, + .03679, .01825, 14.45469, .82481, .36532, + .00769, .66793, .82508, + .03792, .01891, 16.38918, .89787, .44169, + .09702, .74223, .89820, + .03918, .01965, 18.66395, .98472, .53253, + .20339, .83041, .98512, + .04050, .02041, 21.15230, 1.08026, .63217, + .30807, .92730, 1.08074, + .04170, .02111, 23.50172, 1.17133, .72694, + .40766, 1.01955, 1.17187 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04291, .02182, 25.95836, 1.26752, .82696, + .51222, 1.11690, 1.26812, + .04392, .02240, 28.04485, 1.35031, .91253, + .60061, 1.20063, 1.35097, + .04514, .02311, 30.62366, 1.45411, 1.01937, + .71054, 1.30553, 1.45484, + .04623, .02374, 32.96280, 1.54928, 1.11755, + .81201, 1.40167, 1.55008, + .04722, .02432, 35.15145, 1.63929, 1.21046, + .90806, 1.49254, 1.64015, + .04848, .02505, 37.93750, 1.75621, 1.33019, + 1.03061, 1.61051, 1.75713, + .04967, .02574, 40.60201, 1.86960, 1.44650, + 1.14998, 1.72488, 1.87059, + .05079, .02639, 43.14568, 1.97910, 1.55915, + 1.26601, 1.83527, 1.98016 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05190, .02704, 45.66245, 2.09009, 1.67233, + 1.38134, 1.94713, 2.09121, + .05300, .02768, 48.16002, 2.20151, 1.78633, + 1.49804, 2.05939, 2.20270, + .05403, .02828, 50.53921, 2.30919, 1.89650, + 1.61079, 2.16785, 2.31045, + .05501, .02885, 52.76058, 2.41174, 2.00101, + 1.71729, 2.27112, 2.41306, + .05600, .02942, 55.02855, 2.51731, 2.10901, + 1.82784, 2.37739, 2.51868, + .05697, .02998, 57.21357, 2.62143, 2.21490, + 1.93551, 2.48220, 2.62287, + .05789, .03052, 59.33088, 2.72291, 2.31863, + 2.04157, 2.58433, 2.72441, + .05876, .03102, 61.28451, 2.81879, 2.41605, + 2.14055, 2.68080, 2.82034 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05965, .03153, 63.28346, 2.91753, 2.51675, + 2.24326, 2.78015, 2.91914, + .06052, .03204, 65.22508, 3.01527, 2.61616, + 2.34438, 2.87847, 3.01693, + .06136, .03252, 67.07655, 3.10960, 2.71215, + 2.44204, 2.97335, 3.11132, + .06215, .03298, 68.83904, 3.20028, 2.80456, + 2.53621, 3.06455, 3.20205, + .06295, .03345, 70.57619, 3.29161, 2.89723, + 2.63025, 3.15639, 3.29343 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03125, .01471, .78728, .33541, .00000, + .00000, .18046, .33548, + .03241, .01539, 1.47607, .35581, .00000, + .00000, .20221, .35594, + .03412, .01640, 2.66008, .39199, .00000, + .00000, .24028, .39222, + .03536, .01714, 3.66217, .42243, .00000, + .00000, .27204, .42272, + .03665, .01790, 4.77032, .45841, .00880, + .00000, .30933, .45877, + .03776, .01855, 5.75224, .49222, .04829, + .00000, .34423, .49264, + .03882, .01918, 6.77103, .52709, .09236, + .00000, .38012, .52758, + .03994, .01984, 7.93750, .56673, .13648, + .00000, .42080, .56727 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04092, .02042, 8.99029, .60318, .17511, + .00000, .45813, .60378, + .04186, .02098, 10.05298, .64016, .21461, + .00000, .49595, .64082, + .04261, .02142, 10.93865, .67078, .24791, + .00000, .52722, .67149, + .04419, .02235, 12.83681, .73962, .32089, + .00677, .59740, .74042, + .04555, .02316, 14.46139, .80219, .38649, + .08360, .66107, .80307, + .04707, .02405, 16.35427, .87608, .46401, + .17474, .73616, .87706, + .04866, .02499, 18.40549, .95681, .54847, + .26374, .81810, .95788, + .05009, .02584, 20.32501, 1.03325, .62828, + .34787, .89561, 1.03441 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05155, .02669, 22.31572, 1.11351, .71201, + .43567, .97691, 1.11476, + .05275, .02740, 23.99372, 1.18220, .78324, + .50948, 1.04645, 1.18353, + .05421, .02826, 26.05224, 1.26785, .87170, + .60078, 1.13309, 1.26928, + .05550, .02902, 27.90619, 1.34598, .95257, + .68462, 1.21208, 1.34749, + .05668, .02972, 29.62998, 1.41952, 1.02875, + .76362, 1.28640, 1.42111, + .05818, .03060, 31.80782, 1.51452, 1.12637, + .86385, 1.38236, 1.51621, + .05960, .03143, 33.87578, 1.60618, 1.22072, + .96098, 1.47490, 1.60796, + .06092, .03221, 35.83751, 1.69428, 1.31167, + 1.05497, 1.56381, 1.69614 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06224, .03299, 37.76382, 1.78309, 1.40255, + 1.14786, 1.65341, 1.78505, + .06354, .03375, 39.66434, 1.87187, 1.49370, + 1.24147, 1.74295, 1.87392, + .06477, .03446, 41.46411, 1.95731, 1.58142, + 1.33153, 1.82910, 1.95943, + .06592, .03514, 43.13371, 2.03831, 1.66425, + 1.41620, 1.91075, 2.04051, + .06709, .03582, 44.83072, 2.12141, 1.74957, + 1.50382, 1.99450, 2.12369, + .06823, .03649, 46.45452, 2.20300, 1.83283, + 1.58875, 2.07671, 2.20536, + .06932, .03713, 48.02207, 2.28228, 1.91416, + 1.67217, 2.15659, 2.28472, + .07035, .03772, 49.45889, 2.35687, 1.99021, + 1.74968, 2.23172, 2.35937 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07139, .03833, 50.92385, 2.43347, 2.06861, + 1.82991, 2.30887, 2.43605, + .07241, .03893, 52.33867, 2.50901, 2.14572, + 1.90858, 2.38494, 2.51166, + .07339, .03950, 53.68195, 2.58170, 2.21994, + 1.98434, 2.45813, 2.58442, + .07433, .04004, 54.95578, 2.65139, 2.29121, + 2.05721, 2.52829, 2.65417, + .07527, .04059, 56.20375, 2.72131, 2.36240, + 2.12968, 2.59868, 2.72415 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03557, .01701, .78110, .31390, .00000, + .00000, .16931, .31426, + .03691, .01781, 1.44034, .33332, .00000, + .00000, .18998, .33376, + .03887, .01898, 2.55929, .36739, .00000, + .00000, .22580, .36794, + .04030, .01984, 3.49571, .39580, .00000, + .00000, .25543, .39645, + .04178, .02072, 4.52177, .42913, .00817, + .00000, .28998, .42986, + .04304, .02148, 5.42346, .46025, .04454, + .00000, .32211, .46107, + .04426, .02221, 6.35293, .49221, .08503, + .00000, .35501, .49310, + .04555, .02298, 7.41043, .52836, .12533, + .00000, .39214, .52934 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04666, .02365, 8.35890, .56146, .16047, + .00000, .42605, .56250, + .04774, .02429, 9.31130, .59490, .19626, + .00000, .46028, .59602, + .04859, .02480, 10.10174, .62252, .22636, + .00000, .48850, .62369, + .05040, .02588, 11.78455, .68430, .29201, + .00618, .55153, .68559, + .05194, .02680, 13.21281, .74017, .35072, + .07502, .60842, .74156, + .05368, .02784, 14.86551, .80582, .41978, + .15646, .67520, .80733, + .05548, .02891, 16.64384, .87717, .49463, + .23552, .74768, .87880, + .05711, .02988, 18.29688, .94441, .56502, + .30991, .81592, .94615 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05876, .03086, 20.00068, 1.01469, .63856, + .38722, .88718, 1.01654, + .06012, .03167, 21.42863, 1.07459, .70085, + .45193, .94788, 1.07654, + .06177, .03265, 23.17052, 1.14898, .77790, + .53164, 1.02320, 1.15104, + .06323, .03352, 24.73088, 1.21657, .84806, + .60458, 1.09160, 1.21873, + .06457, .03431, 26.17481, 1.27997, .91393, + .67307, 1.15573, 1.28222, + .06627, .03531, 27.98859, 1.36153, .99800, + .75960, 1.23820, 1.36391, + .06786, .03625, 29.70154, 1.43992, 1.07893, + .84314, 1.31742, 1.44241, + .06935, .03714, 31.31868, 1.51500, 1.15668, + .92370, 1.39326, 1.51759 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07084, .03801, 32.89736, 1.59039, 1.23405, + 1.00299, 1.46940, 1.59309, + .07230, .03887, 34.44798, 1.66550, 1.31141, + 1.08265, 1.54523, 1.66831, + .07368, .03968, 35.90975, 1.73756, 1.38562, + 1.15904, 1.61796, 1.74046, + .07498, .04045, 37.25903, 1.80564, 1.45545, + 1.23062, 1.68666, 1.80864, + .07629, .04121, 38.62578, 1.87531, 1.52722, + 1.30452, 1.75695, 1.87840, + .07757, .04196, 39.92655, 1.94348, 1.59699, + 1.37588, 1.82571, 1.94667, + .07879, .04268, 41.17870, 2.00958, 1.66502, + 1.44585, 1.89237, 2.01285, + .07994, .04335, 42.32035, 2.07156, 1.72840, + 1.51062, 1.95487, 2.07492 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08110, .04403, 43.48128, 2.13509, 1.79363, + 1.57756, 2.01892, 2.13853, + .08225, .04470, 44.59736, 2.19756, 1.85759, + 1.64300, 2.08190, 2.20108, + .08335, .04534, 45.65340, 2.25753, 1.91903, + 1.70588, 2.14235, 2.26113, + .08439, .04595, 46.65189, 2.31491, 1.97790, + 1.76623, 2.20017, 2.31858, + .08543, .04655, 47.62526, 2.37232, 2.03653, + 1.82609, 2.25803, 2.37607 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03941, .01919, .78296, .29917, .00000, + .00000, .16148, .29957, + .04091, .02009, 1.41963, .31783, .00000, + .00000, .18130, .31833, + .04310, .02142, 2.48903, .35028, .00000, + .00000, .21537, .35091, + .04468, .02238, 3.37566, .37714, .00000, + .00000, .24338, .37788, + .04633, .02337, 4.33970, .40846, .00770, + .00000, .27583, .40931, + .04774, .02422, 5.18106, .43756, .04172, + .00000, .30587, .43851, + .04909, .02504, 6.04357, .46732, .07952, + .00000, .33651, .46836, + .05052, .02590, 7.01971, .50088, .11697, + .00000, .37098, .50202 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05176, .02665, 7.89069, .53148, .14951, + .00000, .40234, .53270, + .05295, .02737, 8.76142, .56230, .18255, + .00000, .43389, .56361, + .05390, .02794, 9.48153, .58769, .21027, + .00000, .45984, .58906, + .05590, .02914, 11.00616, .64429, .27052, + .00574, .51760, .64580, + .05761, .03017, 12.29099, .69525, .32417, + .06870, .56952, .69688, + .05953, .03131, 13.76914, .75489, .38704, + .14303, .63021, .75666, + .06152, .03250, 15.35035, .81944, .45489, + .21484, .69582, .82135, + .06332, .03358, 16.81192, .88002, .51845, + .28215, .75734, .88206 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06513, .03466, 18.31051, .94311, .58461, + .35184, .82135, .94528, + .06663, .03556, 19.56041, .99670, .64047, + .40997, .87568, .99898, + .06845, .03664, 21.07775, 1.06302, .70931, + .48136, .94288, 1.06543, + .07005, .03759, 22.43083, 1.12309, .77182, + .54646, 1.00371, 1.12561, + .07153, .03847, 23.67800, 1.17928, .83033, + .60743, 1.06058, 1.18191, + .07339, .03957, 25.23697, 1.25131, .90475, + .68419, 1.13347, 1.25409, + .07513, .04060, 26.70254, 1.32032, .97616, + .75806, 1.20326, 1.32322, + .07677, .04157, 28.08057, 1.38622, 1.04458, + .82911, 1.26988, 1.38924 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07840, .04253, 29.41881, 1.45217, 1.11242, + .89878, 1.33653, 1.45531, + .07999, .04347, 30.72837, 1.51770, 1.18009, + .96861, 1.40275, 1.52096, + .08150, .04435, 31.95821, 1.58040, 1.24483, + 1.03540, 1.46608, 1.58377, + .08291, .04518, 33.08833, 1.63947, 1.30557, + 1.09780, 1.52574, 1.64295, + .08434, .04602, 34.22974, 1.69979, 1.36788, + 1.16210, 1.58664, 1.70338, + .08573, .04684, 35.31110, 1.75865, 1.42827, + 1.22401, 1.64606, 1.76234, + .08707, .04762, 36.34955, 1.81561, 1.48705, + 1.28460, 1.70355, 1.81940, + .08832, .04835, 37.29206, 1.86888, 1.54167, + 1.34055, 1.75731, 1.87276 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08958, .04908, 38.24831, 1.92339, 1.59779, + 1.39826, 1.81232, 1.92737, + .09083, .04981, 39.16380, 1.97686, 1.65269, + 1.45456, 1.86627, 1.98093, + .09202, .05050, 40.02744, 2.02810, 1.70531, + 1.50854, 1.91796, 2.03225, + .09315, .05116, 40.84192, 2.07702, 1.75566, + 1.56028, 1.96732, 2.08126, + .09428, .05182, 41.63239, 2.12586, 1.80568, + 1.61146, 2.01657, 2.13018 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05456, .02827, .80937, .25901, .00000, + .00000, .14033, .26003, + .05666, .02958, 1.37925, .27539, .00000, + .00000, .15767, .27657, + .05974, .03149, 2.30233, .30305, .00000, + .00000, .18669, .30447, + .06197, .03287, 3.04403, .32545, .00000, + .00000, .21003, .32704, + .06427, .03429, 3.83014, .35103, .00635, + .00000, .23655, .35280, + .06622, .03549, 4.50051, .37442, .03379, + .00000, .26073, .37634, + .06809, .03664, 5.17521, .39805, .06408, + .00000, .28510, .40012, + .07008, .03785, 5.92540, .42437, .09365, + .00000, .31219, .42660 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07178, .03889, 6.58322, .44806, .11904, + .00000, .33653, .45043, + .07342, .03989, 7.23123, .47169, .14457, + .00000, .36076, .47418, + .07472, .04068, 7.76093, .49100, .16582, + .00000, .38055, .49360, + .07747, .04235, 8.86133, .53351, .21145, + .00451, .42405, .53632, + .07980, .04376, 9.76637, .57123, .25153, + .05173, .46259, .57423, + .08240, .04533, 10.78734, .61481, .29788, + .10706, .50706, .61801, + .08509, .04695, 11.85777, .66130, .34723, + .15968, .55447, .66472, + .08752, .04840, 12.82840, .70436, .39286, + .20838, .59833, .70797 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .08995, .04986, 13.80609, .74865, .43978, + .25820, .64342, .75246, + .09196, .05106, 14.60804, .78584, .47895, + .29929, .68125, .78981, + .09439, .05250, 15.56565, .83134, .52669, + .34919, .72752, .83551, + .09652, .05376, 16.40630, .87211, .56957, + .39424, .76895, .87645, + .09847, .05492, 17.17041, .90988, .60934, + .43603, .80732, .91438, + .10093, .05637, 18.10909, .95775, .65935, + .48805, .85594, .96245, + .10323, .05772, 18.97738, 1.00310, .70682, + .53759, .90198, 1.00798, + .10538, .05898, 19.78228, 1.04600, .75189, + .58480, .94551, 1.05105 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10751, .06023, 20.54962, 1.08843, .79605, + .63056, .98857, 1.09365, + .10959, .06144, 21.29057, 1.13022, .83972, + .67604, 1.03096, 1.13561, + .11155, .06258, 21.97678, 1.16984, .88113, + .71916, 1.07114, 1.17539, + .11338, .06364, 22.59724, 1.20681, .91961, + .75906, 1.10863, 1.21250, + .11522, .06471, 23.21758, 1.24429, .95883, + .79992, 1.14664, 1.25014, + .11702, .06575, 23.79474, 1.28050, .99645, + .83885, 1.18335, 1.28649, + .11873, .06674, 24.34449, 1.31533, 1.03287, + .87676, 1.21866, 1.32146, + .12033, .06766, 24.83438, 1.34759, 1.06637, + .91141, 1.25136, 1.35384 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12195, .06859, 25.32753, 1.38042, 1.10062, + .94698, 1.28464, 1.38680, + .12353, .06950, 25.79220, 1.41235, 1.13385, + .98140, 1.31700, 1.41886, + .12504, .07036, 26.22563, 1.44274, 1.16549, + 1.01419, 1.34781, 1.44937, + .12647, .07118, 26.63048, 1.47160, 1.19560, + 1.04545, 1.37706, 1.47834, + .12791, .07200, 27.01632, 1.50015, 1.22526, + 1.07611, 1.40600, 1.50701 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07683, .04284, .89165, .22802, .00000, + .00000, .12386, .23021, + .07981, .04470, 1.39515, .24219, .00000, + .00000, .13886, .24465, + .08415, .04738, 2.17596, .26534, .00000, + .00000, .16318, .26818, + .08726, .04931, 2.78138, .28363, .00000, + .00000, .18230, .28674, + .09046, .05127, 3.40509, .30405, .00516, + .00000, .20356, .30745, + .09317, .05292, 3.92287, .32240, .02690, + .00000, .22260, .32604, + .09575, .05449, 4.43303, .34068, .05071, + .00000, .24153, .34455, + .09847, .05615, 4.98884, .36077, .07357, + .00000, .26230, .36487 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10081, .05756, 5.46652, .37859, .09293, + .00000, .28070, .38290, + .10304, .05890, 5.92908, .39615, .11220, + .00000, .29881, .40066, + .10481, .05997, 6.30208, .41038, .12809, + .00000, .31347, .41504, + .10852, .06219, 7.05958, .44124, .16175, + .00347, .34523, .44623, + .11166, .06406, 7.66416, .46819, .19084, + .03796, .37293, .47346, + .11514, .06612, 8.33031, .49885, .22400, + .07805, .40440, .50442, + .11872, .06823, 9.01198, .53102, .25874, + .11550, .43741, .53691, + .12194, .07011, 9.61570, .56036, .29040, + .14966, .46748, .56652 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12515, .07199, 10.21072, .59010, .32250, + .18413, .49796, .59654, + .12778, .07353, 10.68889, .61474, .34895, + .21219, .52321, .62141, + .13095, .07536, 11.24799, .64449, .38077, + .24585, .55366, .65143, + .13372, .07696, 11.72915, .67080, .40901, + .27589, .58060, .67798, + .13624, .07841, 12.15880, .69490, .43492, + .30346, .60527, .70230, + .13941, .08022, 12.67449, .72502, .46706, + .33731, .63610, .73270, + .14235, .08190, 13.14147, .75319, .49720, + .36918, .66492, .76112, + .14509, .08346, 13.56634, .77953, .52550, + .39923, .69187, .78770 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14779, .08498, 13.96089, .80522, .55284, + .42796, .71815, .81361, + .15041, .08646, 14.33510, .83025, .57962, + .45624, .74376, .83886, + .15287, .08785, 14.67500, .85372, .60475, + .48278, .76777, .86254, + .15517, .08913, 14.97512, .87536, .62783, + .50707, .78991, .88438, + .15746, .09041, 15.27119, .89712, .65118, + .53176, .81219, .90634, + .15969, .09165, 15.53860, .91787, .67329, + .55499, .83341, .92726, + .16180, .09282, 15.79061, .93768, .69457, + .57749, .85370, .94726, + .16378, .09391, 16.00841, .95581, .71391, + .59781, .87225, .96555 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16576, .09500, 16.22535, .97414, .73356, + .61855, .89102, .98404, + .16770, .09607, 16.42417, .99176, .75242, + .63842, .90907, 1.00183, + .16954, .09707, 16.60621, 1.00840, .77026, + .65721, .92611, 1.01861, + .17128, .09802, 16.77372, 1.02408, .78712, + .67502, .94218, 1.03445, + .17301, .09897, 16.92801, 1.03944, .80354, + .69229, .95791, 1.04994 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09485, .05516, .97419, .21325, .00000, + .00000, .11609, .21668, + .09849, .05740, 1.43445, .22610, .00000, + .00000, .12974, .22988, + .10376, .06063, 2.13097, .24668, .00000, + .00000, .15146, .25095, + .10753, .06292, 2.65865, .26267, .00000, + .00000, .16826, .26731, + .11140, .06525, 3.19242, .28029, .00453, + .00000, .18670, .28529, + .11465, .06720, 3.62775, .29594, .02328, + .00000, .20302, .30124, + .11774, .06904, 4.05063, .31138, .04373, + .00000, .21911, .31696, + .12099, .07098, 4.50518, .32819, .06315, + .00000, .23659, .33408 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12377, .07262, 4.89073, .34296, .07944, + .00000, .25194, .34911, + .12643, .07419, 5.25980, .35741, .09554, + .00000, .26693, .36380, + .12852, .07542, 5.55473, .36905, .10875, + .00000, .27899, .37563, + .13290, .07798, 6.14416, .39405, .13646, + .00294, .30489, .40104, + .13659, .08012, 6.60446, .41565, .16016, + .03120, .32723, .42297, + .14067, .08248, 7.10331, .43995, .18692, + .06386, .35235, .44764, + .14484, .08487, 7.60527, .46518, .21466, + .09402, .37842, .47325, + .14857, .08700, 8.04250, .48794, .23969, + .12127, .40193, .49635 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15229, .08911, 8.46667, .51080, .26484, + .14852, .42553, .51954, + .15532, .09083, 8.80225, .52955, .28538, + .17053, .44489, .53856, + .15895, .09287, 9.18841, .55199, .30988, + .19670, .46805, .56132, + .16213, .09465, 9.51575, .57166, .33145, + .21987, .48836, .58127, + .16501, .09625, 9.80406, .58954, .35110, + .24099, .50681, .59940, + .16859, .09824, 10.14396, .61166, .37524, + .26671, .52965, .62184, + .17193, .10007, 10.44646, .63216, .39770, + .29072, .55082, .64263, + .17502, .10177, 10.71752, .65118, .41863, + .31320, .57046, .66192 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17804, .10342, 10.96373, .66954, .43867, + .33450, .58943, .68054, + .18098, .10501, 11.19376, .68729, .45815, + .35534, .60777, .69854, + .18373, .10650, 11.39914, .70381, .47631, + .37476, .62484, .71529, + .18627, .10787, 11.57618, .71889, .49286, + .39240, .64044, .73059, + .18882, .10923, 11.74877, .73398, .50951, + .41024, .65605, .74590, + .19128, .11054, 11.90024, .74821, .52514, + .42689, .67079, .76034, + .19360, .11178, 12.04179, .76176, .54012, + .44295, .68481, .77408, + .19577, .11293, 12.15999, .77402, .55361, + .45734, .69751, .78652 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19794, .11408, 12.27660, .78635, .56727, + .47197, .71029, .79904, + .20005, .11519, 12.38010, .79812, .58028, + .48588, .72250, .81098, + .20205, .11623, 12.47294, .80916, .59252, + .49898, .73396, .82219, + .20394, .11722, 12.55687, .81952, .60404, + .51134, .74471, .83270, + .20582, .11819, 12.63059, .82955, .61516, + .52323, .75513, .84288 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11079, .06624, 1.05102, .20408, .00000, + .00000, .11132, .20881, + .11498, .06877, 1.47766, .21596, .00000, + .00000, .12401, .22111, + .12101, .07239, 2.11233, .23470, .00000, + .00000, .14390, .24044, + .12531, .07495, 2.58482, .24910, .00000, + .00000, .15911, .25525, + .12971, .07754, 3.05610, .26478, .00410, + .00000, .17562, .27136, + .13339, .07970, 3.43513, .27858, .02087, + .00000, .19011, .28551, + .13688, .08174, 3.79930, .29211, .03910, + .00000, .20429, .29937, + .14054, .08387, 4.18670, .30673, .05625, + .00000, .21960, .31434 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14367, .08568, 4.51192, .31948, .07055, + .00000, .23294, .32739, + .14664, .08739, 4.82043, .33188, .08459, + .00000, .24589, .34007, + .14899, .08874, 5.06520, .34182, .09606, + .00000, .25627, .35023, + .15388, .09152, 5.54804, .36301, .11996, + .00259, .27838, .37188, + .15798, .09384, 5.91822, .38116, .14024, + .02689, .29729, .39041, + .16249, .09638, 6.31395, .40142, .16296, + .05485, .31839, .41109, + .16710, .09895, 6.70658, .42226, .18633, + .08045, .34010, .43235, + .17120, .10123, 7.04377, .44090, .20725, + .10341, .35951, .45137 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17528, .10347, 7.36649, .45948, .22812, + .12622, .37886, .47031, + .17859, .10529, 7.61839, .47460, .24505, + .14450, .39461, .48574, + .18255, .10744, 7.90420, .49257, .26510, + .16612, .41332, .50405, + .18599, .10931, 8.14325, .50820, .28265, + .18514, .42961, .51999, + .18911, .11099, 8.35123, .52232, .29854, + .20239, .44433, .53439, + .19298, .11306, 8.59209, .53965, .31793, + .22325, .46240, .55206, + .19656, .11497, 8.80300, .55559, .33585, + .24260, .47903, .56830, + .19988, .11672, 8.98930, .57028, .35246, + .26063, .49436, .58328 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20311, .11842, 9.15452, .58433, .36823, + .27758, .50904, .59760, + .20624, .12005, 9.30653, .59783, .38349, + .29409, .52315, .61137, + .20915, .12157, 9.43980, .61031, .39763, + .30939, .53621, .62410, + .21185, .12296, 9.55172, .62161, .41042, + .32320, .54805, .63563, + .21454, .12435, 9.65948, .63287, .42325, + .33712, .55984, .64711, + .21712, .12567, 9.75064, .64339, .43520, + .35003, .57089, .65785, + .21957, .12692, 9.83505, .65337, .44662, + .36243, .58136, .66803, + .22183, .12807, 9.90233, .66231, .45683, + .37347, .59076, .67716 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22410, .12922, 9.96795, .67128, .46713, + .38467, .60019, .68631, + .22630, .13032, 10.02354, .67977, .47689, + .39526, .60913, .69498, + .22837, .13137, 10.07186, .68769, .48602, + .40518, .61748, .70306, + .23033, .13234, 10.11441, .69508, .49458, + .41452, .62528, .71061, + .23227, .13330, 10.14875, .70217, .50280, + .42344, .63278, .71786 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12544, .07644, 1.11978, .19749, .00000, + .00000, .10797, .20356, + .13009, .07920, 1.51877, .20859, .00000, + .00000, .11989, .21513, + .13676, .08312, 2.10383, .22588, .00000, + .00000, .13837, .23308, + .14151, .08589, 2.53325, .23903, .00000, + .00000, .15236, .24670, + .14634, .08867, 2.95663, .25323, .00378, + .00000, .16741, .26138, + .15037, .09099, 3.29309, .26564, .01908, + .00000, .18053, .27418, + .15418, .09317, 3.61345, .27772, .03566, + .00000, .19329, .28663, + .15818, .09544, 3.95131, .29071, .05115, + .00000, .20699, .30000 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16158, .09735, 4.23243, .30196, .06399, + .00000, .21885, .31159, + .16482, .09917, 4.49706, .31285, .07655, + .00000, .23031, .32278, + .16737, .10059, 4.70575, .32154, .08676, + .00000, .23946, .33171, + .17265, .10353, 5.11278, .33996, .10792, + .00234, .25883, .35063, + .17707, .10596, 5.41959, .35562, .12576, + .02381, .27528, .36670, + .18191, .10861, 5.74361, .37298, .14561, + .04844, .29351, .38451, + .18685, .11129, 6.06104, .39070, .16590, + .07081, .31213, .40268, + .19123, .11365, 6.33015, .40643, .18394, + .09076, .32866, .41882 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19557, .11596, 6.58452, .42200, .20184, + .11046, .34503, .43478, + .19909, .11784, 6.78042, .43460, .21627, + .12618, .35828, .44769, + .20327, .12004, 6.99979, .44946, .23327, + .14465, .37391, .46292, + .20691, .12195, 7.18097, .46231, .24807, + .16083, .38745, .47609, + .21019, .12366, 7.33673, .47386, .26141, + .17544, .39962, .48792, + .21425, .12576, 7.51375, .48792, .27758, + .19300, .41444, .50233, + .21800, .12768, 7.66619, .50076, .29244, + .20921, .42800, .51550, + .22145, .12945, 7.79886, .51253, .30615, + .22425, .44045, .52757 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22481, .13115, 7.91326, .52369, .31908, + .23830, .45226, .53901, + .22805, .13278, 8.01657, .53436, .33153, + .25192, .46356, .54995, + .23107, .13429, 8.10505, .54416, .34302, + .26450, .47396, .56000, + .23385, .13567, 8.17711, .55297, .35336, + .27579, .48333, .56904, + .23661, .13704, 8.24553, .56171, .36368, + .28713, .49262, .57800, + .23926, .13834, 8.30040, .56980, .37324, + .29759, .50125, .58631, + .24176, .13957, 8.35060, .57745, .38235, + .30762, .50941, .59415, + .24406, .14068, 8.38767, .58424, .39043, + .31649, .51668, .60113 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24637, .14180, 8.42319, .59104, .39858, + .32546, .52395, .60811, + .24861, .14287, 8.45078, .59741, .40624, + .33391, .53079, .61465, + .25071, .14388, 8.47329, .60332, .41339, + .34180, .53714, .62072, + .25269, .14482, 8.49199, .60881, .42007, + .34919, .54306, .62637, + .25464, .14574, 8.50393, .61402, .42644, + .35623, .54869, .63173 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15226, .09499, 1.23678, .18807, .00000, + .00000, .10334, .19687, + .15765, .09806, 1.59034, .19791, .00000, + .00000, .11407, .20727, + .16536, .10239, 2.09716, .21294, .00000, + .00000, .13038, .22309, + .17080, .10543, 2.46073, .22419, .00000, + .00000, .14254, .23488, + .17631, .10847, 2.81240, .23617, .00331, + .00000, .15543, .24740, + .18088, .11098, 3.08632, .24651, .01649, + .00000, .16654, .25819, + .18520, .11332, 3.34317, .25647, .03070, + .00000, .17724, .26857, + .18970, .11575, 3.61018, .26708, .04383, + .00000, .18861, .27961 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19351, .11780, 3.82916, .27618, .05460, + .00000, .19837, .28907, + .19712, .11973, 4.03258, .28490, .06507, + .00000, .20771, .29814, + .19996, .12123, 4.19136, .29182, .07353, + .00000, .21512, .30534, + .20581, .12432, 4.49450, .30634, .09089, + .00198, .23065, .32039, + .21068, .12685, 4.71605, .31852, .10536, + .01955, .24369, .33302, + .21599, .12960, 4.94472, .33187, .12131, + .03960, .25798, .34685, + .22136, .13235, 5.16345, .34531, .13742, + .05761, .27239, .36078, + .22610, .13476, 5.34439, .35710, .15160, + .07350, .28504, .37299 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23077, .13711, 5.51126, .36862, .16553, + .08906, .29742, .38492, + .23454, .13899, 5.63640, .37784, .17666, + .10135, .30733, .39446, + .23899, .14119, 5.77270, .38857, .18964, + .11568, .31890, .40558, + .24285, .14308, 5.88215, .39776, .20084, + .12813, .32881, .41509, + .24631, .14476, 5.97364, .40592, .21086, + .13929, .33764, .42354, + .25056, .14682, 6.07299, .41573, .22288, + .15258, .34827, .43370, + .25446, .14868, 6.15519, .42458, .23383, + .16475, .35789, .44287, + .25805, .15038, 6.22412, .43260, .24384, + .17595, .36663, .45118 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26151, .15200, 6.27874, .44009, .25318, + .18631, .37481, .45894, + .26483, .15355, 6.32566, .44716, .26211, + .19629, .38256, .46627, + .26790, .15497, 6.36319, .45358, .27027, + .20544, .38961, .47293, + .27071, .15626, 6.38996, .45926, .27755, + .21357, .39588, .47883, + .27351, .15753, 6.41384, .46486, .28477, + .22171, .40207, .48463, + .27616, .15872, 6.42837, .46994, .29138, + .22913, .40771, .48991, + .27867, .15984, 6.44083, .47471, .29765, + .23622, .41302, .49486, + .28095, .16085, 6.44508, .47886, .30315, + .24243, .41768, .49918 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28324, .16186, 6.44811, .48298, .30867, + .24869, .42230, .50346, + .28544, .16281, 6.44590, .48678, .31381, + .25453, .42660, .50742, + .28750, .16371, 6.44122, .49027, .31856, + .25995, .43055, .51105, + .28943, .16454, 6.43501, .49348, .32298, + .26501, .43420, .51439, + .29132, .16534, 6.42393, .49645, .32714, + .26977, .43761, .51748 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18867, .11955, 1.37062, .17811, .00000, + .00000, .09871, .19108, + .19488, .12286, 1.67020, .18647, .00000, + .00000, .10807, .20007, + .20367, .12749, 2.08876, .19898, .00000, + .00000, .12200, .21346, + .20983, .13071, 2.38117, .20816, .00000, + .00000, .13219, .22324, + .21604, .13390, 2.65745, .21776, .00283, + .00000, .14283, .23345, + .22115, .13651, 2.86707, .22594, .01387, + .00000, .15186, .24210, + .22594, .13893, 3.06003, .23372, .02570, + .00000, .16045, .25034, + .23091, .14143, 3.25713, .24191, .03648, + .00000, .16949, .25899 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23510, .14351, 3.41569, .24884, .04524, + .00000, .17714, .26631, + .23905, .14546, 3.56049, .25542, .05367, + .00000, .18440, .27324, + .24213, .14698, 3.67204, .26059, .06044, + .00000, .19012, .27869, + .24848, .15006, 3.87871, .27130, .07417, + .00163, .20195, .28996, + .25369, .15256, 4.02238, .28015, .08548, + .01552, .21174, .29926, + .25934, .15524, 4.16578, .28969, .09778, + .03128, .22231, .30927, + .26501, .15789, 4.29808, .29913, .11005, + .04524, .23281, .31919, + .26998, .16019, 4.40306, .30727, .12072, + .05741, .24189, .32774 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27482, .16242, 4.49580, .31510, .13108, + .06921, .25064, .33595, + .27872, .16417, 4.56216, .32126, .13925, + .07843, .25755, .34241, + .28328, .16620, 4.63015, .32831, .14869, + .08908, .26551, .34981, + .28719, .16793, 4.68164, .33424, .15675, + .09824, .27223, .35605, + .29069, .16946, 4.72220, .33944, .16388, + .10638, .27814, .36151, + .29494, .17129, 4.76098, .34556, .17233, + .11597, .28514, .36793, + .29881, .17293, 4.78920, .35097, .17994, + .12466, .29137, .37361, + .30234, .17442, 4.80984, .35579, .18683, + .13259, .29695, .37868 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30571, .17580, 4.82041, .36017, .19316, + .13983, .30207, .38328, + .30892, .17711, 4.82617, .36423, .19916, + .14675, .30686, .38756, + .31188, .17831, 4.82686, .36785, .20458, + .15304, .31114, .39136, + .31456, .17936, 4.82176, .37096, .20935, + .15857, .31488, .39464, + .31720, .18040, 4.81478, .37398, .21406, + .16407, .31852, .39783, + .31968, .18135, 4.80186, .37663, .21829, + .16903, .32176, .40062, + .32202, .18224, 4.78889, .37908, .22229, + .17374, .32479, .40321, + .32412, .18303, 4.77185, .38112, .22573, + .17781, .32735, .40537 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32621, .18381, 4.75409, .38313, .22917, + .18189, .32988, .40749, + .32820, .18454, 4.73326, .38490, .23232, + .18566, .33217, .40936, + .33006, .18520, 4.71187, .38648, .23522, + .18913, .33423, .41104, + .33179, .18582, 4.69062, .38790, .23788, + .19234, .33611, .41255, + .33346, .18640, 4.66615, .38914, .24034, + .19533, .33780, .41386 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24335, .15453, 1.51187, .16544, .00000, + .00000, .09321, .18530, + .25035, .15789, 1.74288, .17193, .00000, + .00000, .10085, .19244, + .26016, .16250, 2.05510, .18136, .00000, + .00000, .11191, .20276, + .26697, .16566, 2.26579, .18810, .00000, + .00000, .11981, .21010, + .27373, .16875, 2.45808, .19501, .00229, + .00000, .12789, .21759, + .27924, .17123, 2.59811, .20077, .01100, + .00000, .13462, .22381, + .28437, .17352, 2.72358, .20617, .02027, + .00000, .14094, .22963, + .28965, .17584, 2.84847, .21175, .02859, + .00000, .14747, .23563 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29406, .17776, 2.94590, .21639, .03524, + .00000, .15291, .24061, + .29818, .17953, 3.03244, .22072, .04158, + .00000, .15800, .24525, + .30139, .18089, 3.09776, .22409, .04663, + .00000, .16198, .24886, + .30790, .18362, 3.21191, .23092, .05672, + .00126, .17005, .25617, + .31317, .18579, 3.28312, .23643, .06489, + .01149, .17659, .26205, + .31882, .18807, 3.34904, .24222, .07365, + .02301, .18351, .26822, + .32442, .19028, 3.40453, .24779, .08225, + .03304, .19023, .27414, + .32925, .19214, 3.44373, .25245, .08959, + .04167, .19591, .27911 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33392, .19390, 3.47390, .25680, .09662, + .04991, .20127, .28374, + .33761, .19527, 3.49144, .26013, .10208, + .05627, .20540, .28728, + .34187, .19681, 3.50432, .26381, .10829, + .06352, .21005, .29119, + .34548, .19809, 3.50991, .26681, .11352, + .06968, .21389, .29437, + .34867, .19920, 3.51064, .26937, .11809, + .07510, .21719, .29708, + .35248, .20047, 3.50379, .27223, .12340, + .08138, .22099, .30012, + .35590, .20158, 3.49231, .27465, .12811, + .08701, .22427, .30269, + .35899, .20256, 3.47816, .27672, .13232, + .09209, .22713, .30488 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36185, .20343, 3.45808, .27847, .13610, + .09665, .22965, .30673, + .36455, .20422, 3.43599, .28001, .13964, + .10096, .23194, .30835, + .36701, .20492, 3.41251, .28130, .14279, + .10482, .23392, .30971, + .36918, .20550, 3.38720, .28230, .14549, + .10817, .23556, .31077, + .37130, .20606, 3.36106, .28323, .14814, + .11148, .23713, .31175, + .37324, .20654, 3.33211, .28392, .15046, + .11440, .23843, .31247, + .37506, .20699, 3.30459, .28454, .15264, + .11716, .23962, .31311, + .37665, .20733, 3.27596, .28492, .15446, + .11950, .24054, .31351 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37822, .20767, 3.24710, .28528, .15625, + .12183, .24142, .31389, + .37968, .20795, 3.21704, .28549, .15786, + .12395, .24215, .31410, + .38102, .20820, 3.18783, .28562, .15931, + .12588, .24277, .31423, + .38224, .20842, 3.15986, .28570, .16063, + .12765, .24330, .31429, + .38339, .20859, 3.13010, .28563, .16180, + .12925, .24369, .31421 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29308, .18412, 1.58144, .15445, .00000, + .00000, .08865, .18084, + .30037, .18725, 1.76041, .15949, .00000, + .00000, .09494, .18644, + .31050, .19146, 1.99539, .16664, .00000, + .00000, .10387, .19435, + .31745, .19430, 2.14925, .17165, .00000, + .00000, .11012, .19985, + .32430, .19702, 2.28496, .17667, .00192, + .00000, .11641, .20535, + .32981, .19917, 2.37939, .18080, .00904, + .00000, .12157, .20983, + .33489, .20112, 2.46164, .18460, .01659, + .00000, .12635, .21396, + .34008, .20308, 2.54130, .18847, .02329, + .00000, .13122, .21815 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34438, .20467, 2.60128, .19162, .02858, + .00000, .13523, .22155, + .34836, .20611, 2.65277, .19452, .03358, + .00000, .13893, .22466, + .35144, .20721, 2.69068, .19675, .03754, + .00000, .14179, .22705, + .35761, .20935, 2.75129, .20118, .04536, + .00102, .14752, .23178, + .36255, .21100, 2.78197, .20465, .05162, + .00898, .15207, .23547, + .36776, .21270, 2.80552, .20820, .05824, + .01790, .15679, .23924, + .37284, .21428, 2.82038, .21150, .06465, + .02556, .16126, .24272, + .37716, .21557, 2.82582, .21415, .07006, + .03207, .16496, .24551 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38126, .21674, 2.82457, .21654, .07517, + .03823, .16837, .24801, + .38445, .21761, 2.81834, .21828, .07909, + .04293, .17093, .24981, + .38807, .21855, 2.80511, .22010, .08350, + .04824, .17373, .25170, + .39110, .21928, 2.78965, .22151, .08716, + .05271, .17598, .25315, + .39373, .21987, 2.77272, .22265, .09032, + .05660, .17787, .25431, + .39679, .22051, 2.74624, .22378, .09395, + .06107, .17994, .25544, + .39948, .22101, 2.71835, .22464, .09712, + .06503, .18166, .25629, + .40186, .22142, 2.69034, .22531, .09991, + .06856, .18311, .25693 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40400, .22172, 2.65878, .22573, .10238, + .07169, .18429, .25730, + .40598, .22196, 2.62677, .22602, .10465, + .07462, .18531, .25754, + .40773, .22213, 2.59522, .22617, .10664, + .07723, .18614, .25763, + .40923, .22221, 2.56371, .22616, .10832, + .07946, .18675, .25754, + .41067, .22227, 2.53197, .22609, .10994, + .08164, .18730, .25740, + .41193, .22225, 2.49896, .22585, .11133, + .08353, .18766, .25708, + .41310, .22222, 2.46795, .22560, .11261, + .08532, .18797, .25675, + .41404, .22213, 2.43721, .22524, .11366, + .08680, .18811, .25629 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41497, .22203, 2.40655, .22485, .11468, + .08827, .18823, .25580, + .41578, .22188, 2.37555, .22436, .11556, + .08958, .18824, .25521, + .41649, .22171, 2.34592, .22385, .11634, + .09076, .18820, .25459, + .41713, .22153, 2.31789, .22334, .11704, + .09184, .18812, .25397, + .41768, .22131, 2.28883, .22272, .11763, + .09279, .18794, .25325 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38163, .23154, 1.59060, .13435, .00000, + .00000, .08028, .17178, + .38858, .23372, 1.69617, .13730, .00000, + .00000, .08456, .17495, + .39795, .23651, 1.82702, .14131, .00000, + .00000, .09042, .17919, + .40424, .23829, 1.90746, .14399, .00000, + .00000, .09439, .18200, + .41026, .23989, 1.97220, .14659, .00141, + .00000, .09827, .18467, + .41499, .24107, 2.01125, .14863, .00644, + .00000, .10136, .18674, + .41926, .24208, 2.04248, .15045, .01175, + .00000, .10416, .18857, + .42354, .24303, 2.07012, .15223, .01637, + .00000, .10696, .19033 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42698, .24374, 2.08789, .15361, .01996, + .00000, .10918, .19166, + .43010, .24432, 2.10070, .15481, .02332, + .00000, .11118, .19281, + .43248, .24474, 2.10891, .15571, .02594, + .00000, .11271, .19366, + .43709, .24544, 2.11326, .15738, .03105, + .00072, .11565, .19519, + .44061, .24586, 2.10317, .15858, .03505, + .00595, .11789, .19621, + .44418, .24616, 2.08588, .15967, .03921, + .01178, .12011, .19710, + .44748, .24630, 2.06292, .16052, .04314, + .01668, .12208, .19771, + .45014, .24629, 2.03810, .16106, .04640, + .02078, .12360, .19801 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45252, .24615, 2.00994, .16141, .04940, + .02459, .12491, .19809, + .45425, .24593, 1.98419, .16154, .05166, + .02746, .12580, .19799, + .45608, .24556, 1.95062, .16152, .05415, + .03064, .12669, .19768, + .45748, .24515, 1.91962, .16137, .05617, + .03328, .12732, .19725, + .45860, .24472, 1.89031, .16114, .05789, + .03555, .12778, .19676, + .45974, .24404, 1.85122, .16067, .05979, + .03810, .12815, .19593, + .46060, .24332, 1.81379, .16011, .06142, + .04032, .12836, .19504, + .46125, .24260, 1.77855, .15951, .06282, + .04227, .12846, .19412 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46165, .24178, 1.74216, .15876, .06400, + .04396, .12839, .19303, + .46193, .24093, 1.70671, .15796, .06506, + .04552, .12824, .19191, + .46206, .24008, 1.67316, .15715, .06596, + .04687, .12802, .19079, + .46201, .23921, 1.64122, .15630, .06668, + .04801, .12772, .18963, + .46190, .23834, 1.60967, .15543, .06737, + .04911, .12738, .18845, + .46163, .23741, 1.57824, .15448, .06791, + .05003, .12695, .18719, + .46134, .23652, 1.54905, .15357, .06841, + .05088, .12653, .18600, + .46092, .23562, 1.52112, .15264, .06877, + .05157, .12604, .18478 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46047, .23471, 1.49355, .15170, .06912, + .05225, .12554, .18356, + .45991, .23377, 1.46636, .15073, .06938, + .05283, .12499, .18230, + .45933, .23286, 1.44077, .14978, .06960, + .05334, .12444, .18109, + .45875, .23198, 1.41685, .14887, .06978, + .05379, .12390, .17993, + .45804, .23105, 1.39260, .14790, .06989, + .05418, .12329, .17870 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45813, .26692, 1.50687, .11608, .00000, + .00000, .07227, .16118, + .46381, .26784, 1.56554, .11766, .00000, + .00000, .07513, .16254, + .47116, .26882, 1.63267, .11971, .00000, + .00000, .07890, .16415, + .47594, .26927, 1.67006, .12099, .00000, + .00000, .08139, .16510, + .48031, .26951, 1.69473, .12215, .00107, + .00000, .08376, .16587, + .48358, .26954, 1.70388, .12302, .00478, + .00000, .08559, .16636, + .48644, .26945, 1.70831, .12373, .00867, + .00000, .08720, .16671, + .48921, .26924, 1.70932, .12436, .01202, + .00000, .08875, .16696 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49131, .26896, 1.70620, .12477, .01459, + .00000, .08995, .16703, + .49311, .26860, 1.70043, .12509, .01696, + .00000, .09098, .16700, + .49443, .26829, 1.69470, .12531, .01880, + .00000, .09175, .16694, + .49680, .26744, 1.67390, .12558, .02235, + .00054, .09316, .16660, + .49837, .26655, 1.64707, .12565, .02508, + .00419, .09415, .16612, + .49974, .26543, 1.61392, .12556, .02787, + .00824, .09505, .16541, + .50073, .26411, 1.57733, .12527, .03047, + .01161, .09576, .16446, + .50131, .26280, 1.54253, .12485, .03258, + .01438, .09619, .16344 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50160, .26137, 1.50635, .12430, .03450, + .01693, .09648, .16229, + .50159, .26010, 1.47552, .12374, .03591, + .01881, .09659, .16124, + .50130, .25848, 1.43748, .12296, .03744, + .02089, .09657, .15983, + .50084, .25700, 1.40376, .12219, .03865, + .02258, .09647, .15852, + .50027, .25560, 1.37290, .12144, .03967, + .02402, .09630, .15726, + .49926, .25371, 1.33337, .12036, .04076, + .02562, .09594, .15557, + .49813, .25189, 1.29660, .11929, .04167, + .02699, .09552, .15390, + .49693, .25017, 1.26274, .11825, .04243, + .02817, .09507, .15231 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49549, .24834, 1.22880, .11712, .04304, + .02917, .09451, .15063, + .49397, .24655, 1.19629, .11600, .04358, + .03009, .09392, .14897, + .49242, .24483, 1.16606, .11490, .04401, + .03087, .09332, .14738, + .49081, .24316, 1.13782, .11383, .04434, + .03150, .09269, .14583, + .48916, .24148, 1.11019, .11275, .04464, + .03211, .09206, .14427, + .48737, .23977, 1.08318, .11163, .04484, + .03261, .09136, .14270, + .48566, .23817, 1.05828, .11058, .04502, + .03307, .09071, .14123, + .48390, .23660, 1.03484, .10955, .04512, + .03341, .09004, .13979 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48212, .23503, 1.01185, .10852, .04522, + .03375, .08937, .13835, + .48027, .23345, .98945, .10748, .04526, + .03403, .08867, .13690, + .47845, .23195, .96853, .10648, .04528, + .03427, .08799, .13553, + .47670, .23052, .94911, .10553, .04528, + .03447, .08734, .13423, + .47483, .22904, .92965, .10455, .04524, + .03463, .08665, .13289 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52365, .29286, 1.38353, .09977, .00000, + .00000, .06454, .14903, + .52744, .29241, 1.41207, .10050, .00000, + .00000, .06638, .14904, + .53202, .29140, 1.43947, .10131, .00000, + .00000, .06873, .14876, + .53474, .29047, 1.45099, .10173, .00000, + .00000, .07021, .14840, + .53695, .28931, 1.45250, .10205, .00083, + .00000, .07156, .14788, + .53840, .28815, 1.44501, .10222, .00363, + .00000, .07257, .14732, + .53950, .28694, 1.43502, .10228, .00656, + .00000, .07342, .14672, + .54039, .28559, 1.42216, .10227, .00906, + .00000, .07419, .14599 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54086, .28433, 1.40843, .10217, .01096, + .00000, .07475, .14525, + .54111, .28305, 1.39354, .10200, .01269, + .00000, .07521, .14448, + .54122, .28200, 1.38114, .10185, .01404, + .00000, .07553, .14384, + .54097, .27967, 1.34914, .10140, .01658, + .00041, .07604, .14238, + .54036, .27753, 1.31585, .10089, .01852, + .00306, .07631, .14103, + .53931, .27505, 1.27734, .10021, .02048, + .00599, .07647, .13941, + .53783, .27238, 1.23688, .09937, .02227, + .00839, .07646, .13760, + .53616, .26987, 1.19995, .09852, .02370, + .01034, .07632, .13589 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53422, .26729, 1.16277, .09758, .02498, + .01213, .07606, .13410, + .53240, .26509, 1.13198, .09674, .02591, + .01343, .07578, .13254, + .52993, .26237, 1.09490, .09565, .02690, + .01485, .07533, .13061, + .52758, .25994, 1.06268, .09465, .02766, + .01599, .07488, .12888, + .52531, .25769, 1.03368, .09370, .02829, + .01695, .07441, .12727, + .52219, .25475, .99726, .09243, .02895, + .01800, .07373, .12519, + .51909, .25200, .96393, .09121, .02947, + .01889, .07304, .12321, + .51607, .24943, .93362, .09006, .02991, + .01965, .07236, .12136 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51286, .24679, .90374, .08886, .03023, + .02028, .07162, .11947, + .50964, .24422, .87543, .08768, .03050, + .02084, .07088, .11763, + .50651, .24179, .84938, .08656, .03070, + .02132, .07014, .11589, + .50345, .23946, .82532, .08547, .03084, + .02170, .06942, .11424, + .50037, .23713, .80194, .08438, .03095, + .02205, .06869, .11261, + .49718, .23482, .77933, .08329, .03101, + .02233, .06794, .11097, + .49417, .23265, .75858, .08227, .03106, + .02258, .06724, .10945, + .49120, .23056, .73927, .08128, .03105, + .02277, .06655, .10799 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48821, .22848, .72040, .08031, .03104, + .02294, .06585, .10654, + .48519, .22642, .70217, .07933, .03099, + .02308, .06515, .10510, + .48228, .22446, .68523, .07841, .03093, + .02319, .06447, .10374, + .47952, .22261, .66958, .07754, .03087, + .02328, .06384, .10246, + .47664, .22071, .65402, .07664, .03077, + .02333, .06317, .10116 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59107, .31451, 1.21478, .08232, .00000, + .00000, .05543, .13229, + .59201, .31232, 1.22037, .08238, .00000, + .00000, .05639, .13116, + .59239, .30888, 1.21854, .08228, .00000, + .00000, .05754, .12931, + .59211, .30625, 1.21169, .08211, .00000, + .00000, .05819, .12789, + .59126, .30336, 1.19745, .08183, .00062, + .00000, .05874, .12636, + .59012, .30080, 1.17935, .08152, .00264, + .00000, .05910, .12500, + .58878, .29829, 1.16048, .08116, .00475, + .00000, .05937, .12365, + .58711, .29559, 1.13941, .08073, .00653, + .00000, .05957, .12219 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58540, .29319, 1.11978, .08029, .00786, + .00000, .05965, .12089, + .58357, .29084, 1.10009, .07982, .00908, + .00000, .05967, .11961, + .58205, .28897, 1.08433, .07944, .01001, + .00000, .05966, .11859, + .57843, .28493, 1.04759, .07855, .01175, + .00030, .05953, .11636, + .57498, .28142, 1.01277, .07772, .01306, + .00213, .05931, .11444, + .57082, .27747, .97388, .07673, .01436, + .00415, .05896, .11226, + .56618, .27334, .93421, .07563, .01553, + .00579, .05851, .10994, + .56175, .26956, .89895, .07458, .01645, + .00710, .05802, .10782 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55709, .26574, .86423, .07347, .01725, + .00828, .05745, .10569, + .55307, .26256, .83602, .07253, .01782, + .00914, .05692, .10391, + .54800, .25870, .80267, .07135, .01841, + .01005, .05623, .10174, + .54341, .25530, .77412, .07030, .01886, + .01079, .05559, .09984, + .53914, .25220, .74874, .06931, .01922, + .01139, .05498, .09812, + .53354, .24824, .71739, .06805, .01957, + .01205, .05417, .09592, + .52819, .24455, .68906, .06684, .01984, + .01259, .05338, .09388, + .52315, .24112, .66358, .06571, .02006, + .01304, .05262, .09201 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51794, .23769, .63879, .06457, .02020, + .01341, .05184, .09012, + .51283, .23436, .61553, .06347, .02030, + .01373, .05106, .08830, + .50797, .23124, .59432, .06243, .02037, + .01400, .05033, .08661, + .50330, .22829, .57493, .06144, .02039, + .01420, .04962, .08502, + .49865, .22538, .55621, .06046, .02041, + .01439, .04892, .08345, + .49396, .22251, .53827, .05949, .02038, + .01452, .04820, .08191, + .48956, .21984, .52188, .05858, .02035, + .01465, .04754, .08049, + .48529, .21729, .50677, .05772, .02029, + .01473, .04689, .07914 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48104, .21476, .49207, .05688, .02023, + .01481, .04625, .07780, + .47681, .21225, .47798, .05602, .02014, + .01485, .04562, .07650, + .47280, .20988, .46496, .05521, .02006, + .01489, .04501, .07528, + .46900, .20766, .45298, .05446, .01997, + .01491, .04444, .07414, + .46508, .20541, .44114, .05370, .01986, + .01491, .04385, .07299 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64332, .32634, 1.05341, .06793, .00000, + .00000, .04704, .11483, + .64103, .32255, 1.04591, .06764, .00000, + .00000, .04745, .11297, + .63689, .31679, 1.02809, .06703, .00000, + .00000, .04784, .11024, + .63343, .31257, 1.01163, .06651, .00000, + .00000, .04802, .10825, + .62935, .30813, .98972, .06594, .00047, + .00000, .04808, .10618, + .62551, .30430, .96700, .06539, .00195, + .00000, .04807, .10441, + .62166, .30063, .94455, .06482, .00351, + .00000, .04800, .10272, + .61740, .29674, .92044, .06418, .00480, + .00000, .04786, .10094 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61348, .29335, .89895, .06361, .00576, + .00000, .04769, .09936, + .60957, .29008, .87799, .06302, .00663, + .00000, .04748, .09785, + .60643, .28751, .86150, .06254, .00729, + .00000, .04729, .09666, + .59946, .28207, .82472, .06150, .00851, + .00023, .04683, .09415, + .59327, .27740, .79141, .06057, .00941, + .00152, .04638, .09201, + .58617, .27222, .75499, .05948, .01030, + .00295, .04581, .08966, + .57860, .26687, .71847, .05830, .01109, + .00409, .04515, .08723, + .57159, .26207, .68654, .05722, .01169, + .00500, .04450, .08506 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56442, .25729, .65555, .05613, .01220, + .00581, .04382, .08289, + .55838, .25335, .63070, .05520, .01256, + .00638, .04323, .08112, + .55099, .24859, .60167, .05406, .01292, + .00699, .04248, .07898, + .54442, .24445, .57709, .05305, .01319, + .00748, .04180, .07713, + .53836, .24073, .55545, .05214, .01339, + .00787, .04118, .07546, + .53059, .23602, .52896, .05096, .01358, + .00829, .04036, .07338, + .52330, .23164, .50529, .04986, .01372, + .00862, .03958, .07147, + .51652, .22762, .48418, .04885, .01381, + .00891, .03885, .06973 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50963, .22362, .46386, .04783, .01386, + .00912, .03811, .06799, + .50294, .21978, .44490, .04686, .01389, + .00931, .03740, .06634, + .49662, .21619, .42773, .04594, .01389, + .00946, .03672, .06480, + .49064, .21285, .41216, .04508, .01387, + .00957, .03608, .06338, + .48471, .20955, .39720, .04424, .01384, + .00967, .03544, .06198, + .47881, .20631, .38300, .04340, .01378, + .00974, .03481, .06063, + .47331, .20329, .37009, .04263, .01372, + .00980, .03423, .05939, + .46807, .20043, .35825, .04189, .01365, + .00983, .03367, .05821 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46286, .19761, .34678, .04115, .01357, + .00985, .03312, .05705, + .45768, .19485, .33583, .04044, .01349, + .00986, .03257, .05593, + .45277, .19224, .32575, .03978, .01340, + .00986, .03204, .05488, + .44815, .18981, .31651, .03916, .01331, + .00986, .03155, .05390, + .44344, .18736, .30744, .03854, .01321, + .00984, .03107, .05292 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .68130, .33021, .90952, .05625, .00000, + .00000, .03948, .09749, + .67575, .32494, .89460, .05576, .00000, + .00000, .03953, .09529, + .66694, .31718, .86815, .05491, .00000, + .00000, .03944, .09216, + .66022, .31164, .84684, .05426, .00000, + .00000, .03931, .08990, + .65294, .30586, .82150, .05353, .00036, + .00000, .03909, .08761, + .64648, .30096, .79718, .05288, .00147, + .00000, .03887, .08568, + .64017, .29633, .77376, .05223, .00262, + .00000, .03861, .08387, + .63338, .29147, .74913, .05152, .00358, + .00000, .03830, .08199 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62738, .28725, .72765, .05088, .00428, + .00000, .03798, .08038, + .62150, .28323, .70704, .05026, .00491, + .00000, .03765, .07884, + .61683, .28011, .69101, .04976, .00538, + .00000, .03739, .07763, + .60681, .27348, .65615, .04867, .00626, + .00017, .03678, .07512, + .59810, .26792, .62555, .04773, .00689, + .00110, .03622, .07302, + .58831, .26180, .59252, .04666, .00750, + .00213, .03556, .07073, + .57807, .25555, .55981, .04554, .00804, + .00294, .03484, .06839, + .56878, .24999, .53157, .04451, .00844, + .00358, .03417, .06633 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55944, .24447, .50447, .04346, .00878, + .00414, .03348, .06430, + .55168, .23998, .48294, .04261, .00901, + .00454, .03289, .06264, + .54226, .23460, .45805, .04157, .00923, + .00495, .03216, .06070, + .53401, .22995, .43716, .04064, .00939, + .00528, .03152, .05903, + .52652, .22575, .41890, .03981, .00950, + .00554, .03093, .05753, + .51693, .22054, .39676, .03878, .00960, + .00581, .03017, .05566, + .50804, .21573, .37711, .03782, .00966, + .00603, .02947, .05396, + .49984, .21132, .35970, .03693, .00970, + .00620, .02882, .05242 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49163, .20696, .34310, .03603, .00970, + .00634, .02816, .05093, + .48368, .20280, .32769, .03518, .00969, + .00645, .02752, .04950, + .47622, .19896, .31382, .03441, .00966, + .00653, .02693, .04818, + .46923, .19536, .30133, .03368, .00962, + .00659, .02638, .04696, + .46234, .19183, .28939, .03295, .00958, + .00665, .02583, .04578, + .45555, .18839, .27811, .03224, .00951, + .00667, .02530, .04463, + .44923, .18520, .26789, .03159, .00945, + .00669, .02480, .04358, + .44322, .18220, .25859, .03098, .00938, + .00670, .02433, .04259 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43727, .17925, .24960, .03038, .00931, + .00670, .02387, .04163, + .43142, .17635, .24106, .02979, .00922, + .00669, .02341, .04070, + .42590, .17362, .23323, .02923, .00914, + .00668, .02299, .03984, + .42073, .17109, .22608, .02871, .00907, + .00667, .02259, .03904, + .41550, .16854, .21908, .02818, .00898, + .00664, .02219, .03823 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70607, .32762, .78522, .04681, .00000, + .00000, .03275, .08098, + .69732, .32107, .76606, .04616, .00000, + .00000, .03259, .07877, + .68400, .31163, .73502, .04520, .00000, + .00000, .03225, .07555, + .67425, .30490, .71139, .04445, .00000, + .00000, .03194, .07332, + .66393, .29802, .68480, .04366, .00028, + .00000, .03159, .07103, + .65498, .29228, .66041, .04298, .00111, + .00000, .03126, .06915, + .64640, .28686, .63731, .04231, .00198, + .00000, .03092, .06738, + .63732, .28120, .61332, .04158, .00269, + .00000, .03053, .06555 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62941, .27634, .59272, .04093, .00320, + .00000, .03016, .06403, + .62175, .27174, .57318, .04031, .00366, + .00000, .02978, .06257, + .61573, .26818, .55809, .03983, .00401, + .00000, .02948, .06143, + .60293, .26071, .52595, .03877, .00464, + .00013, .02884, .05907, + .59201, .25446, .49828, .03786, .00509, + .00081, .02826, .05716, + .57991, .24764, .46879, .03684, .00552, + .00156, .02761, .05506, + .56743, .24073, .43995, .03578, .00588, + .00214, .02691, .05295, + .55621, .23463, .41529, .03484, .00615, + .00259, .02626, .05112 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54501, .22864, .39182, .03390, .00637, + .00299, .02560, .04932, + .53581, .22377, .37336, .03312, .00652, + .00326, .02506, .04788, + .52477, .21800, .35216, .03218, .00665, + .00355, .02440, .04617, + .51515, .21303, .33449, .03137, .00674, + .00376, .02381, .04473, + .50647, .20857, .31916, .03063, .00680, + .00394, .02328, .04345, + .49550, .20305, .30072, .02972, .00685, + .00412, .02261, .04184, + .48538, .19798, .28448, .02889, .00687, + .00426, .02200, .04040, + .47609, .19336, .27019, .02812, .00688, + .00437, .02144, .03910 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46684, .18883, .25664, .02736, .00686, + .00445, .02088, .03783, + .45798, .18451, .24415, .02664, .00683, + .00451, .02035, .03664, + .44974, .18052, .23296, .02596, .00679, + .00456, .01985, .03554, + .44204, .17682, .22296, .02534, .00674, + .00459, .01939, .03454, + .43447, .17319, .21344, .02472, .00669, + .00461, .01893, .03358, + .42703, .16969, .20448, .02414, .00663, + .00462, .01848, .03264, + .42012, .16646, .19639, .02360, .00658, + .00463, .01806, .03178, + .41360, .16342, .18905, .02309, .00651, + .00462, .01768, .03098 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40717, .16042, .18199, .02259, .00645, + .00461, .01731, .03020, + .40087, .15750, .17532, .02210, .00638, + .00460, .01694, .02946, + .39496, .15477, .16923, .02164, .00631, + .00458, .01659, .02876, + .38944, .15223, .16368, .02122, .00625, + .00456, .01627, .02812, + .38386, .14970, .15827, .02080, .00617, + .00454, .01595, .02748 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .71878, .31979, .67911, .03907, .00000, + .00000, .02690, .06594, + .70696, .31222, .65749, .03839, .00000, + .00000, .02663, .06379, + .68949, .30136, .62412, .03734, .00000, + .00000, .02615, .06077, + .67691, .29374, .59961, .03656, .00000, + .00000, .02576, .05867, + .66383, .28600, .57296, .03575, .00022, + .00000, .02536, .05655, + .65268, .27956, .54923, .03505, .00084, + .00000, .02497, .05483, + .64209, .27354, .52705, .03438, .00150, + .00000, .02459, .05323, + .63096, .26732, .50426, .03367, .00203, + .00000, .02417, .05158 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62135, .26201, .48492, .03305, .00241, + .00000, .02380, .05019, + .61215, .25698, .46678, .03245, .00275, + .00000, .02343, .04888, + .60496, .25309, .45288, .03199, .00300, + .00000, .02314, .04786, + .58984, .24500, .42363, .03097, .00345, + .00010, .02250, .04581, + .57706, .23831, .39892, .03013, .00377, + .00059, .02195, .04411, + .56301, .23106, .37286, .02920, .00407, + .00114, .02134, .04228, + .54866, .22374, .34761, .02823, .00432, + .00156, .02069, .04046, + .53590, .21731, .32622, .02738, .00450, + .00188, .02011, .03888 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52327, .21103, .30605, .02654, .00465, + .00216, .01953, .03734, + .51295, .20596, .29031, .02584, .00474, + .00235, .01905, .03612, + .50064, .19999, .27235, .02501, .00482, + .00255, .01846, .03470, + .48999, .19487, .25751, .02430, .00487, + .00270, .01796, .03349, + .48040, .19030, .24470, .02367, .00490, + .00282, .01750, .03241, + .46842, .18462, .22943, .02288, .00491, + .00293, .01694, .03110, + .45742, .17947, .21606, .02216, .00491, + .00302, .01641, .02992, + .44735, .17480, .20436, .02151, .00490, + .00309, .01594, .02885 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43744, .17022, .19336, .02085, .00487, + .00314, .01548, .02783, + .42797, .16587, .18326, .02023, .00484, + .00318, .01503, .02686, + .41920, .16187, .17424, .01966, .00480, + .00320, .01461, .02599, + .41101, .15819, .16621, .01915, .00475, + .00322, .01423, .02518, + .40298, .15460, .15859, .01865, .00470, + .00323, .01387, .02439, + .39515, .15113, .15150, .01817, .00465, + .00322, .01351, .02365, + .38790, .14793, .14512, .01772, .00460, + .00322, .01317, .02297, + .38114, .14492, .13936, .01729, .00455, + .00321, .01286, .02234 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37448, .14197, .13382, .01686, .00449, + .00320, .01256, .02173, + .36795, .13912, .12861, .01646, .00444, + .00318, .01226, .02113, + .36181, .13647, .12386, .01609, .00438, + .00316, .01198, .02059, + .35610, .13401, .11955, .01575, .00433, + .00314, .01173, .02008, + .35036, .13154, .11537, .01542, .00427, + .00312, .01147, .01957 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .72055, .30780, .58849, .03267, .00000, + .00000, .02187, .05263, + .70596, .29943, .56552, .03197, .00000, + .00000, .02153, .05068, + .68471, .28756, .53122, .03094, .00000, + .00000, .02100, .04792, + .66961, .27927, .50659, .03017, .00000, + .00000, .02059, .04606, + .65410, .27093, .48058, .02938, .00017, + .00000, .02012, .04420, + .64102, .26404, .45794, .02870, .00064, + .00000, .01974, .04268, + .62871, .25760, .43697, .02805, .00113, + .00000, .01937, .04129, + .61588, .25096, .41564, .02737, .00153, + .00000, .01896, .03986 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60483, .24536, .39777, .02679, .00181, + .00000, .01861, .03865, + .59436, .24007, .38114, .02623, .00206, + .00000, .01826, .03752, + .58622, .23597, .36847, .02579, .00224, + .00000, .01798, .03666, + .56915, .22757, .34214, .02486, .00257, + .00008, .01741, .03490, + .55493, .22060, .32028, .02408, .00280, + .00044, .01691, .03347, + .53937, .21310, .29744, .02325, .00301, + .00084, .01636, .03192, + .52357, .20561, .27550, .02238, .00318, + .00114, .01578, .03041, + .50961, .19906, .25709, .02162, .00330, + .00137, .01528, .02911 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49591, .19268, .23987, .02087, .00339, + .00157, .01479, .02784, + .48482, .18752, .22651, .02026, .00345, + .00170, .01437, .02685, + .47163, .18149, .21143, .01954, .00349, + .00184, .01387, .02569, + .46026, .17634, .19901, .01892, .00352, + .00194, .01344, .02471, + .45011, .17177, .18832, .01837, .00353, + .00202, .01307, .02385, + .43744, .16615, .17571, .01769, .00353, + .00210, .01259, .02279, + .42588, .16105, .16476, .01708, .00352, + .00216, .01216, .02184, + .41539, .15643, .15523, .01651, .00350, + .00220, .01178, .02099 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40506, .15193, .14631, .01598, .00347, + .00223, .01139, .02018, + .39523, .14767, .13817, .01546, .00344, + .00225, .01103, .01943, + .38616, .14377, .13094, .01498, .00340, + .00226, .01069, .01875, + .37775, .14018, .12454, .01455, .00336, + .00226, .01039, .01811, + .36953, .13670, .11849, .01415, .00332, + .00226, .01011, .01748, + .36157, .13334, .11287, .01374, .00327, + .00226, .00982, .01691, + .35422, .13024, .10783, .01336, .00323, + .00225, .00956, .01638, + .34733, .12737, .10330, .01301, .00319, + .00224, .00932, .01589 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34056, .12455, .09897, .01268, .00314, + .00223, .00908, .01541, + .33397, .12182, .09489, .01235, .00310, + .00221, .00884, .01496, + .32781, .11928, .09119, .01205, .00305, + .00219, .00862, .01455, + .32208, .11692, .08784, .01177, .00301, + .00218, .00841, .01417, + .31636, .11457, .08462, .01149, .00297, + .00216, .00821, .01379 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71226, .29290, .51066, .02759, .00000, + .00000, .01739, .04101, + .69530, .28394, .48695, .02686, .00000, + .00000, .01706, .03932, + .67084, .27132, .45246, .02580, .00000, + .00000, .01655, .03697, + .65365, .26257, .42832, .02503, .00000, + .00000, .01616, .03539, + .63615, .25381, .40330, .02424, .00013, + .00000, .01573, .03384, + .62153, .24660, .38197, .02358, .00049, + .00000, .01538, .03258, + .60781, .23993, .36245, .02296, .00086, + .00000, .01504, .03139, + .59357, .23309, .34278, .02233, .00115, + .00000, .01469, .03018 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58149, .22728, .32642, .02177, .00136, + .00000, .01436, .02920, + .57004, .22185, .31131, .02123, .00154, + .00000, .01405, .02828, + .56115, .21766, .29987, .02081, .00168, + .00000, .01382, .02758, + .54262, .20912, .27641, .02000, .00191, + .00006, .01330, .02611, + .52726, .20208, .25722, .01930, .00208, + .00032, .01289, .02493, + .51059, .19454, .23732, .01854, .00222, + .00062, .01242, .02368, + .49382, .18701, .21839, .01777, .00234, + .00084, .01193, .02247, + .47911, .18045, .20265, .01708, .00242, + .00100, .01149, .02144 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46473, .17410, .18804, .01641, .00248, + .00114, .01106, .02044, + .45309, .16902, .17681, .01588, .00251, + .00124, .01072, .01966, + .43933, .16310, .16417, .01527, .00254, + .00133, .01033, .01872, + .42754, .15807, .15386, .01474, .00255, + .00140, .00998, .01795, + .41704, .15359, .14509, .01427, .00255, + .00145, .00967, .01729, + .40408, .14809, .13475, .01370, .00254, + .00150, .00928, .01645, + .39228, .14313, .12581, .01318, .00252, + .00154, .00894, .01570, + .38157, .13868, .11807, .01271, .00250, + .00157, .00863, .01504 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37110, .13434, .11087, .01226, .00247, + .00158, .00833, .01443, + .36118, .13025, .10434, .01181, .00244, + .00159, .00804, .01385, + .35208, .12652, .09857, .01139, .00241, + .00160, .00777, .01333, + .34363, .12309, .09349, .01104, .00238, + .00159, .00753, .01284, + .33538, .11977, .08870, .01072, .00234, + .00159, .00730, .01238, + .32745, .11658, .08427, .01038, .00231, + .00158, .00707, .01194, + .32015, .11364, .08030, .01007, .00227, + .00158, .00686, .01154, + .31331, .11093, .07676, .00980, .00223, + .00157, .00667, .01117 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30660, .10828, .07338, .00954, .00220, + .00155, .00649, .01081, + .30011, .10572, .07022, .00928, .00216, + .00154, .00631, .01047, + .29406, .10334, .06735, .00903, .00213, + .00153, .00614, .01017, + .28845, .10113, .06476, .00880, .00210, + .00151, .00599, .00988, + .28285, .09894, .06226, .00858, .00206, + .00150, .00583, .00960 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69586, .27517, .44233, .02289, .00000, + .00000, .01386, .03151, + .67680, .26590, .41853, .02220, .00000, + .00000, .01354, .03007, + .64967, .25286, .38463, .02119, .00000, + .00000, .01303, .02813, + .63075, .24387, .36129, .02046, .00000, + .00000, .01267, .02682, + .61159, .23495, .33762, .01975, .00010, + .00000, .01229, .02551, + .59568, .22765, .31783, .01915, .00036, + .00000, .01197, .02446, + .58087, .22089, .29986, .01858, .00064, + .00000, .01165, .02351, + .56561, .21398, .28190, .01800, .00086, + .00000, .01132, .02255 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55267, .20818, .26714, .01750, .00101, + .00000, .01104, .02174, + .54047, .20273, .25359, .01702, .00115, + .00000, .01078, .02100, + .53105, .19853, .24337, .01665, .00124, + .00000, .01057, .02043, + .51151, .19003, .22267, .01592, .00141, + .00005, .01013, .01927, + .49544, .18305, .20596, .01529, .00152, + .00024, .00976, .01834, + .47809, .17561, .18883, .01462, .00163, + .00045, .00936, .01736, + .46068, .16824, .17265, .01395, .00170, + .00061, .00896, .01640, + .44548, .16185, .15931, .01337, .00176, + .00072, .00860, .01558 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43071, .15568, .14704, .01280, .00179, + .00082, .00825, .01479, + .41883, .15075, .13766, .01234, .00181, + .00089, .00797, .01419, + .40488, .14502, .12719, .01181, .00182, + .00095, .00765, .01346, + .39296, .14017, .11870, .01137, .00183, + .00100, .00738, .01286, + .38237, .13590, .11149, .01099, .00182, + .00103, .00712, .01233, + .36934, .13064, .10307, .01051, .00181, + .00107, .00681, .01171, + .35752, .12592, .09584, .01008, .00179, + .00109, .00654, .01116, + .34683, .12168, .08962, .00970, .00177, + .00111, .00628, .01066 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33645, .11758, .08386, .00932, .00175, + .00111, .00605, .01019, + .32664, .11373, .07866, .00896, .00172, + .00112, .00582, .00975, + .31764, .11023, .07409, .00864, .00170, + .00112, .00561, .00935, + .30938, .10702, .07008, .00834, .00167, + .00112, .00543, .00899, + .30134, .10390, .06632, .00805, .00164, + .00111, .00525, .00865, + .29356, .10094, .06285, .00780, .00161, + .00110, .00508, .00833, + .28640, .09822, .05974, .00757, .00159, + .00110, .00492, .00803, + .27978, .09569, .05699, .00734, .00156, + .00109, .00477, .00776 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27331, .09322, .05436, .00711, .00153, + .00108, .00463, .00750, + .26704, .09085, .05191, .00690, .00150, + .00107, .00449, .00725, + .26121, .08865, .04971, .00671, .00148, + .00106, .00436, .00701, + .25581, .08662, .04772, .00654, .00145, + .00104, .00425, .00679, + .25042, .08462, .04581, .00636, .00143, + .00103, .00413, .00659 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67193, .25595, .38198, .01898, .00000, + .00000, .01085, .02366, + .65124, .24652, .35853, .01834, .00000, + .00000, .01055, .02250, + .62205, .23331, .32580, .01737, .00000, + .00000, .01011, .02094, + .60185, .22424, .30367, .01666, .00000, + .00000, .00978, .01993, + .58146, .21536, .28155, .01603, .00008, + .00000, .00945, .01885, + .56470, .20806, .26338, .01548, .00027, + .00000, .00916, .01804, + .54915, .20134, .24707, .01496, .00048, + .00000, .00890, .01728, + .53317, .19451, .23091, .01444, .00064, + .00000, .00863, .01651 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51968, .18880, .21769, .01399, .00075, + .00000, .00840, .01586, + .50704, .18345, .20566, .01356, .00084, + .00000, .00817, .01528, + .49730, .17936, .19666, .01322, .00091, + .00000, .00799, .01484, + .47718, .17101, .17864, .01258, .00103, + .00004, .00762, .01396, + .46072, .16423, .16426, .01204, .00111, + .00017, .00731, .01325, + .44302, .15704, .14961, .01146, .00118, + .00033, .00698, .01250, + .42539, .14992, .13593, .01089, .00124, + .00044, .00666, .01175, + .41007, .14378, .12476, .01040, .00127, + .00052, .00638, .01111 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39524, .13790, .11454, .00992, .00129, + .00059, .00609, .01051, + .38335, .13322, .10677, .00954, .00130, + .00064, .00587, .01004, + .36943, .12778, .09818, .00910, .00131, + .00068, .00560, .00953, + .35761, .12319, .09125, .00872, .00130, + .00071, .00537, .00909, + .34717, .11915, .08541, .00838, .00130, + .00073, .00518, .00868, + .33432, .11421, .07862, .00799, .00128, + .00076, .00494, .00822, + .32271, .10979, .07280, .00765, .00127, + .00077, .00473, .00780, + .31226, .10584, .06782, .00734, .00125, + .00078, .00454, .00741 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30211, .10203, .06326, .00704, .00123, + .00078, .00434, .00707, + .29257, .09846, .05916, .00676, .00121, + .00078, .00417, .00675, + .28387, .09520, .05558, .00649, .00119, + .00078, .00401, .00647, + .27590, .09224, .05243, .00624, .00117, + .00078, .00387, .00621, + .26818, .08937, .04948, .00601, .00115, + .00078, .00374, .00595, + .26073, .08664, .04678, .00581, .00112, + .00077, .00360, .00572, + .25389, .08415, .04437, .00562, .00110, + .00076, .00348, .00550, + .24757, .08184, .04225, .00544, .00108, + .00075, .00337, .00530 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24139, .07960, .04023, .00526, .00106, + .00075, .00327, .00511, + .23544, .07744, .03834, .00509, .00104, + .00074, .00317, .00492, + .22991, .07544, .03664, .00494, .00102, + .00073, .00307, .00476, + .22479, .07360, .03512, .00480, .00100, + .00072, .00298, .00461, + .21970, .07178, .03366, .00467, .00098, + .00071, .00289, .00446 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64184, .23562, .32795, .01552, .00000, + .00000, .00841, .01746, + .62004, .22613, .30530, .01489, .00000, + .00000, .00815, .01658, + .58936, .21304, .27420, .01401, .00000, + .00000, .00776, .01535, + .56820, .20415, .25357, .01342, .00000, + .00000, .00748, .01451, + .54710, .19536, .23330, .01283, .00006, + .00000, .00721, .01370, + .52978, .18822, .21688, .01234, .00020, + .00000, .00696, .01307, + .51376, .18169, .20225, .01190, .00035, + .00000, .00673, .01248, + .49739, .17506, .18787, .01144, .00047, + .00000, .00651, .01189 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48365, .16950, .17624, .01104, .00055, + .00000, .00630, .01142, + .47079, .16434, .16574, .01067, .00062, + .00000, .00612, .01097, + .46091, .16040, .15793, .01040, .00067, + .00000, .00598, .01062, + .44064, .15240, .14238, .00983, .00075, + .00003, .00567, .00994, + .42409, .14594, .13014, .00937, .00080, + .00012, .00542, .00940, + .40641, .13908, .11779, .00888, .00085, + .00023, .00516, .00883, + .38886, .13233, .10635, .00840, .00089, + .00031, .00489, .00829, + .37367, .12653, .09708, .00797, .00091, + .00037, .00466, .00783 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35903, .12099, .08868, .00758, .00092, + .00042, .00445, .00739, + .34736, .11658, .08234, .00728, .00092, + .00045, .00426, .00704, + .33375, .11152, .07536, .00692, .00092, + .00048, .00406, .00664, + .32224, .10724, .06975, .00660, .00092, + .00050, .00389, .00630, + .31211, .10347, .06505, .00633, .00091, + .00052, .00374, .00602, + .29964, .09891, .05964, .00603, .00090, + .00053, .00355, .00567, + .28844, .09484, .05503, .00575, .00089, + .00054, .00338, .00537, + .27841, .09119, .05109, .00550, .00088, + .00054, .00324, .00510 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26871, .08771, .04751, .00526, .00086, + .00055, .00310, .00484, + .25960, .08444, .04429, .00503, .00084, + .00055, .00297, .00461, + .25129, .08146, .04149, .00482, .00083, + .00054, .00285, .00441, + .24372, .07876, .03904, .00463, .00081, + .00054, .00274, .00423, + .23639, .07616, .03676, .00444, .00079, + .00054, .00262, .00405, + .22935, .07369, .03468, .00428, .00078, + .00053, .00253, .00387, + .22291, .07143, .03284, .00413, .00076, + .00052, .00245, .00371, + .21698, .06934, .03120, .00399, .00074, + .00052, .00236, .00358 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21121, .06731, .02965, .00384, .00073, + .00051, .00228, .00345, + .20563, .06538, .02821, .00372, .00071, + .00051, .00220, .00333, + .20045, .06360, .02692, .00361, .00070, + .00050, .00213, .00321, + .19567, .06196, .02576, .00350, .00068, + .00049, .00206, .00310, + .19096, .06033, .02465, .00339, .00067, + .00048, .00200, .00300 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60678, .21464, .27927, .01249, .00000, + .00000, .00648, .01266, + .58418, .20538, .25777, .01191, .00000, + .00000, .00626, .01198, + .55261, .19259, .22891, .01114, .00000, + .00000, .00591, .01105, + .53100, .18395, .20997, .01062, .00000, + .00000, .00568, .01041, + .50952, .17549, .19168, .01010, .00004, + .00000, .00541, .00981, + .49197, .16863, .17706, .00969, .00015, + .00000, .00523, .00930, + .47583, .16235, .16415, .00929, .00025, + .00000, .00505, .00887, + .45940, .15599, .15158, .00888, .00034, + .00000, .00485, .00845 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44561, .15071, .14150, .00857, .00039, + .00000, .00468, .00807, + .43275, .14581, .13244, .00828, .00044, + .00000, .00453, .00773, + .42290, .14207, .12572, .00804, .00048, + .00000, .00442, .00748, + .40282, .13450, .11251, .00756, .00054, + .00002, .00417, .00698, + .38652, .12839, .10224, .00716, .00057, + .00009, .00398, .00660, + .36913, .12197, .09197, .00675, .00060, + .00017, .00376, .00618, + .35198, .11566, .08253, .00636, .00063, + .00022, .00356, .00577, + .33721, .11027, .07495, .00603, .00064, + .00026, .00339, .00542 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32300, .10513, .06813, .00571, .00065, + .00030, .00322, .00509, + .31174, .10107, .06301, .00545, .00065, + .00032, .00308, .00484, + .29862, .09638, .05741, .00517, .00065, + .00034, .00292, .00457, + .28755, .09245, .05294, .00492, .00064, + .00035, .00279, .00433, + .27783, .08901, .04920, .00471, .00064, + .00036, .00268, .00410, + .26599, .08484, .04492, .00446, .00063, + .00037, .00253, .00386, + .25536, .08113, .04130, .00423, .00062, + .00037, .00240, .00365, + .24585, .07782, .03822, .00404, .00061, + .00038, .00229, .00346 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23669, .07467, .03544, .00386, .00059, + .00038, .00219, .00327, + .22812, .07172, .03295, .00369, .00058, + .00038, .00209, .00310, + .22036, .06904, .03079, .00351, .00057, + .00037, .00200, .00296, + .21325, .06661, .02890, .00337, .00055, + .00037, .00192, .00284, + .20638, .06428, .02715, .00324, .00054, + .00037, .00185, .00273, + .19984, .06207, .02556, .00312, .00053, + .00036, .00178, .00260, + .19386, .06005, .02415, .00301, .00052, + .00036, .00171, .00247, + .18837, .05820, .02290, .00289, .00051, + .00035, .00165, .00238 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18303, .05641, .02173, .00277, .00049, + .00035, .00158, .00229, + .17789, .05469, .02064, .00267, .00048, + .00034, .00153, .00220, + .17314, .05311, .01968, .00257, .00047, + .00034, .00148, .00212, + .16876, .05166, .01881, .00249, .00046, + .00033, .00144, .00204, + .16442, .05023, .01797, .00242, .00045, + .00033, .00139, .00197 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56773, .19374, .23557, .00999, .00000, + .00000, .00487, .00895, + .54476, .18481, .21560, .00951, .00000, + .00000, .00465, .00845, + .51287, .17255, .18922, .00882, .00000, + .00000, .00437, .00775, + .49116, .16429, .17220, .00836, .00000, + .00000, .00417, .00730, + .46974, .15617, .15597, .00792, .00003, + .00000, .00400, .00683, + .45230, .14965, .14316, .00754, .00010, + .00000, .00383, .00650, + .43630, .14372, .13196, .00721, .00018, + .00000, .00368, .00619, + .42005, .13773, .12113, .00688, .00024, + .00000, .00353, .00586 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40648, .13277, .11250, .00661, .00028, + .00000, .00340, .00559, + .39389, .12817, .10481, .00635, .00031, + .00000, .00328, .00533, + .38426, .12467, .09915, .00615, .00034, + .00000, .00320, .00514, + .36464, .11763, .08814, .00578, .00038, + .00002, .00301, .00478, + .34881, .11196, .07962, .00545, .00040, + .00006, .00286, .00450, + .33201, .10601, .07120, .00513, .00042, + .00012, .00271, .00418, + .31551, .10019, .06353, .00480, .00044, + .00016, .00255, .00390, + .30135, .09523, .05740, .00452, .00045, + .00018, .00241, .00367 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28776, .09054, .05191, .00427, .00045, + .00021, .00228, .00344, + .27705, .08683, .04784, .00407, .00045, + .00022, .00216, .00327, + .26463, .08257, .04340, .00383, .00045, + .00023, .00205, .00307, + .25418, .07900, .03988, .00364, .00044, + .00024, .00195, .00290, + .24502, .07588, .03695, .00348, .00044, + .00025, .00186, .00276, + .23383, .07213, .03361, .00330, .00043, + .00025, .00177, .00257, + .22389, .06880, .03080, .00312, .00042, + .00026, .00167, .00242, + .21506, .06584, .02841, .00295, .00041, + .00026, .00159, .00230 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20656, .06300, .02626, .00280, .00040, + .00026, .00151, .00218, + .19860, .06037, .02436, .00266, .00040, + .00026, .00144, .00207, + .19137, .05799, .02271, .00256, .00039, + .00025, .00138, .00196, + .18484, .05585, .02128, .00244, .00038, + .00025, .00132, .00186, + .17855, .05380, .01995, .00233, .00037, + .00025, .00127, .00177, + .17253, .05185, .01874, .00224, .00036, + .00025, .00121, .00169, + .16704, .05008, .01768, .00215, .00035, + .00024, .00116, .00161, + .16201, .04846, .01674, .00207, .00034, + .00024, .00112, .00155 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15713, .04688, .01586, .00199, .00033, + .00024, .00109, .00148, + .15245, .04537, .01505, .00192, .00033, + .00023, .00105, .00143, + .14812, .04399, .01432, .00185, .00032, + .00023, .00100, .00138, + .14415, .04271, .01367, .00178, .00031, + .00022, .00096, .00133, + .14022, .04147, .01304, .00173, .00030, + .00022, .00093, .00129 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52582, .17310, .19621, .00781, .00000, + .00000, .00361, .00623, + .50287, .16462, .17814, .00742, .00000, + .00000, .00341, .00586, + .47125, .15298, .15458, .00683, .00000, + .00000, .00320, .00537, + .44977, .14523, .13956, .00647, .00000, + .00000, .00303, .00500, + .42870, .13763, .12543, .00607, .00002, + .00000, .00289, .00470, + .41161, .13154, .11446, .00579, .00007, + .00000, .00275, .00444, + .39601, .12600, .10489, .00552, .00013, + .00000, .00264, .00421, + .38024, .12041, .09569, .00524, .00017, + .00000, .00253, .00398 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36709, .11584, .08846, .00503, .00020, + .00000, .00243, .00376, + .35491, .11161, .08206, .00483, .00022, + .00000, .00234, .00357, + .34562, .10839, .07736, .00467, .00024, + .00000, .00226, .00344, + .32683, .10188, .06828, .00434, .00026, + .00001, .00211, .00321, + .31167, .09670, .06136, .00410, .00028, + .00004, .00200, .00300, + .29565, .09127, .05457, .00385, .00029, + .00008, .00189, .00278, + .28002, .08598, .04842, .00359, .00030, + .00011, .00177, .00257, + .26667, .08149, .04354, .00336, .00031, + .00013, .00166, .00241 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25392, .07723, .03920, .00316, .00031, + .00014, .00156, .00227, + .24382, .07389, .03599, .00301, .00031, + .00015, .00148, .00215, + .23217, .07008, .03252, .00285, .00031, + .00016, .00140, .00200, + .22242, .06689, .02978, .00270, .00030, + .00017, .00133, .00189, + .21391, .06412, .02751, .00257, .00030, + .00017, .00126, .00179, + .20361, .06076, .02494, .00241, .00029, + .00017, .00118, .00167, + .19443, .05780, .02279, .00227, .00029, + .00017, .00112, .00157, + .18626, .05518, .02097, .00216, .00028, + .00018, .00108, .00147 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17847, .05269, .01934, .00204, .00027, + .00017, .00102, .00139, + .17121, .05037, .01789, .00193, .00027, + .00017, .00096, .00132, + .16462, .04828, .01664, .00184, .00026, + .00017, .00092, .00126, + .15866, .04640, .01556, .00176, .00025, + .00017, .00088, .00120, + .15293, .04460, .01456, .00168, .00025, + .00017, .00085, .00113, + .14750, .04290, .01366, .00161, .00024, + .00017, .00081, .00108, + .14256, .04135, .01287, .00154, .00023, + .00016, .00078, .00103, + .13803, .03994, .01217, .00148, .00023, + .00016, .00074, .00099 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13363, .03858, .01151, .00142, .00022, + .00016, .00071, .00095, + .12942, .03728, .01090, .00137, .00022, + .00016, .00068, .00091, + .12553, .03608, .01036, .00132, .00021, + .00015, .00065, .00088, + .12197, .03499, .00988, .00128, .00021, + .00015, .00063, .00084, + .11847, .03391, .00942, .00122, .00020, + .00015, .00060, .00082 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48199, .15301, .16105, .00594, .00000, + .00000, .00265, .00428, + .45944, .14504, .14501, .00561, .00000, + .00000, .00251, .00401, + .42850, .13419, .12439, .00514, .00000, + .00000, .00235, .00363, + .40763, .12697, .11142, .00483, .00000, + .00000, .00220, .00339, + .38723, .11993, .09937, .00453, .00002, + .00000, .00209, .00316, + .37076, .11431, .09010, .00429, .00005, + .00000, .00199, .00299, + .35576, .10921, .08210, .00408, .00009, + .00000, .00190, .00283, + .34064, .10410, .07448, .00386, .00012, + .00000, .00181, .00267 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32808, .09990, .06853, .00368, .00013, + .00000, .00173, .00255, + .31648, .09603, .06329, .00352, .00015, + .00000, .00166, .00243, + .30765, .09309, .05947, .00340, .00016, + .00000, .00161, .00234, + .28987, .08721, .05214, .00314, .00018, + .00001, .00150, .00215, + .27557, .08253, .04660, .00296, .00019, + .00003, .00142, .00199, + .26053, .07762, .04119, .00276, .00020, + .00006, .00133, .00185, + .24588, .07288, .03635, .00258, .00020, + .00007, .00123, .00172, + .23341, .06886, .03254, .00241, .00021, + .00009, .00116, .00161 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22158, .06507, .02917, .00224, .00021, + .00010, .00110, .00150, + .21225, .06213, .02670, .00214, .00021, + .00010, .00105, .00139, + .20155, .05873, .02402, .00199, .00021, + .00011, .00098, .00130, + .19260, .05591, .02193, .00187, .00020, + .00011, .00093, .00123, + .18479, .05348, .02021, .00178, .00020, + .00011, .00088, .00116, + .17535, .05053, .01826, .00168, .00020, + .00012, .00082, .00108, + .16700, .04794, .01663, .00157, .00019, + .00012, .00078, .00102, + .15960, .04566, .01527, .00148, .00019, + .00012, .00074, .00097 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15253, .04348, .01404, .00140, .00018, + .00012, .00070, .00092, + .14595, .04148, .01296, .00132, .00018, + .00012, .00067, .00086, + .14002, .03968, .01204, .00126, .00017, + .00011, .00064, .00081, + .13468, .03805, .01124, .00120, .00017, + .00011, .00061, .00076, + .12957, .03649, .01050, .00113, .00016, + .00011, .00057, .00073, + .12470, .03503, .00983, .00109, .00016, + .00011, .00055, .00069, + .12027, .03371, .00924, .00105, .00015, + .00011, .00053, .00066, + .11624, .03250, .00873, .00100, .00015, + .00011, .00050, .00063 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11235, .03133, .00825, .00094, .00015, + .00010, .00048, .00061, + .10861, .03023, .00780, .00090, .00014, + .00010, .00046, .00058, + .10516, .02921, .00740, .00088, .00014, + .00010, .00045, .00056, + .10201, .02828, .00705, .00086, .00013, + .00010, .00043, .00054, + .09893, .02737, .00672, .00082, .00013, + .00010, .00041, .00051 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .43719, .13385, .13012, .00445, .00000, + .00000, .00192, .00288, + .41537, .12647, .11617, .00418, .00000, + .00000, .00181, .00269, + .38558, .11645, .09850, .00377, .00000, + .00000, .00168, .00243, + .36555, .10980, .08754, .00352, .00000, + .00000, .00158, .00229, + .34609, .10337, .07748, .00326, .00001, + .00000, .00149, .00212, + .33042, .09827, .06983, .00309, .00003, + .00000, .00142, .00199, + .31622, .09364, .06328, .00293, .00006, + .00000, .00135, .00188, + .30194, .08901, .05708, .00275, .00008, + .00000, .00128, .00177 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29009, .08521, .05228, .00263, .00009, + .00000, .00123, .00168, + .27920, .08173, .04807, .00250, .00010, + .00000, .00118, .00160, + .27095, .07909, .04502, .00240, .00011, + .00000, .00114, .00155, + .25433, .07382, .03921, .00219, .00012, + .00001, .00107, .00142, + .24103, .06963, .03487, .00206, .00013, + .00002, .00100, .00132, + .22713, .06527, .03067, .00189, .00013, + .00004, .00093, .00123, + .21362, .06108, .02692, .00176, .00014, + .00005, .00087, .00114, + .20214, .05754, .02399, .00164, .00014, + .00006, .00082, .00106 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19129, .05421, .02142, .00152, .00014, + .00006, .00077, .00099, + .18278, .05161, .01954, .00143, .00014, + .00007, .00072, .00093, + .17303, .04867, .01753, .00135, .00014, + .00007, .00068, .00085, + .16490, .04621, .01596, .00127, .00013, + .00007, .00065, .00080, + .15785, .04408, .01466, .00119, .00013, + .00008, .00061, .00077, + .14936, .04154, .01321, .00110, .00013, + .00008, .00057, .00071, + .14185, .03930, .01201, .00104, .00012, + .00008, .00054, .00067, + .13520, .03733, .01100, .00099, .00012, + .00008, .00051, .00064 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12890, .03547, .01009, .00092, .00012, + .00008, .00049, .00060, + .12305, .03375, .00929, .00087, .00011, + .00008, .00046, .00056, + .11778, .03222, .00861, .00082, .00011, + .00008, .00043, .00053, + .11304, .03083, .00803, .00078, .00011, + .00007, .00041, .00050, + .10852, .02951, .00749, .00074, .00010, + .00007, .00039, .00048, + .10423, .02827, .00700, .00071, .00010, + .00007, .00037, .00045, + .10033, .02716, .00658, .00068, .00010, + .00007, .00036, .00042, + .09678, .02614, .00620, .00065, .00010, + .00007, .00034, .00040 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09335, .02515, .00585, .00062, .00009, + .00007, .00033, .00038, + .09010, .02422, .00553, .00059, .00009, + .00007, .00031, .00037, + .08711, .02337, .00524, .00057, .00009, + .00007, .00030, .00035, + .08438, .02259, .00499, .00055, .00009, + .00006, .00029, .00034, + .08171, .02182, .00475, .00052, .00008, + .00006, .00028, .00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39235, .11596, .10345, .00335, .00000, + .00000, .00129, .00185, + .37155, .10921, .09166, .00313, .00000, + .00000, .00121, .00173, + .34327, .10014, .07687, .00283, .00000, + .00000, .00111, .00155, + .32436, .09412, .06782, .00266, .00000, + .00000, .00104, .00144, + .30605, .08832, .05962, .00245, .00001, + .00000, .00098, .00134, + .29137, .08374, .05343, .00232, .00002, + .00000, .00094, .00123, + .27812, .07959, .04818, .00219, .00004, + .00000, .00089, .00116, + .26485, .07545, .04325, .00203, .00005, + .00000, .00082, .00111 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25390, .07207, .03943, .00192, .00006, + .00000, .00079, .00106, + .24382, .06897, .03612, .00183, .00007, + .00000, .00075, .00099, + .23618, .06664, .03373, .00177, .00007, + .00000, .00073, .00094, + .22088, .06199, .02921, .00161, .00008, + .00000, .00067, .00087, + .20870, .05830, .02585, .00149, .00008, + .00001, .00063, .00081, + .19598, .05448, .02264, .00139, .00009, + .00002, .00058, .00075, + .18366, .05082, .01979, .00130, .00009, + .00003, .00054, .00068, + .17327, .04774, .01757, .00122, .00009, + .00004, .00050, .00063 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16349, .04485, .01564, .00112, .00009, + .00004, .00047, .00059, + .15585, .04261, .01422, .00105, .00009, + .00005, .00045, .00055, + .14710, .04004, .01272, .00098, .00009, + .00005, .00041, .00051, + .13984, .03793, .01155, .00092, .00009, + .00005, .00039, .00049, + .13356, .03610, .01059, .00087, .00009, + .00005, .00038, .00046, + .12604, .03393, .00952, .00078, .00008, + .00005, .00034, .00043, + .11937, .03202, .00863, .00074, .00008, + .00005, .00032, .00040, + .11346, .03034, .00789, .00072, .00008, + .00005, .00031, .00038 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10791, .02876, .00723, .00067, .00008, + .00005, .00029, .00035, + .10279, .02730, .00665, .00062, .00007, + .00005, .00027, .00033, + .09818, .02600, .00615, .00059, .00007, + .00005, .00025, .00032, + .09403, .02483, .00572, .00056, .00007, + .00005, .00024, .00030, + .09005, .02373, .00533, .00053, .00007, + .00005, .00022, .00028, + .08632, .02269, .00498, .00051, .00007, + .00005, .00021, .00026, + .08294, .02175, .00467, .00050, .00006, + .00005, .00020, .00024, + .07987, .02090, .00440, .00047, .00006, + .00004, .00019, .00023 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07691, .02008, .00415, .00045, .00006, + .00004, .00019, .00022, + .07410, .01930, .00392, .00043, .00006, + .00004, .00018, .00021, + .07153, .01858, .00371, .00040, .00006, + .00004, .00017, .00020, + .06918, .01794, .00353, .00039, .00006, + .00004, .00016, .00020, + .06688, .01730, .00335, .00037, .00005, + .00004, .00016, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34796, .09898, .08039, .00229, .00000, + .00000, .00094, .00124, + .32838, .09294, .07070, .00215, .00000, + .00000, .00087, .00114, + .30187, .08483, .05866, .00195, .00000, + .00000, .00080, .00099, + .28435, .07946, .05138, .00179, .00000, + .00000, .00074, .00093, + .26733, .07432, .04486, .00166, .00001, + .00000, .00069, .00088, + .25381, .07026, .03997, .00154, .00001, + .00000, .00065, .00082, + .24159, .06661, .03586, .00145, .00003, + .00000, .00061, .00076, + .22937, .06299, .03203, .00138, .00003, + .00000, .00058, .00070 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .21934, .06002, .02909, .00131, .00004, + .00000, .00055, .00066, + .21015, .05731, .02654, .00124, .00004, + .00000, .00053, .00063, + .20321, .05527, .02471, .00118, .00005, + .00000, .00051, .00062, + .18932, .05124, .02129, .00109, .00005, + .00000, .00046, .00055, + .17832, .04804, .01876, .00101, .00005, + .00001, .00042, .00052, + .16688, .04474, .01635, .00094, .00006, + .00002, .00040, .00047, + .15586, .04159, .01423, .00086, .00006, + .00002, .00037, .00042, + .14659, .03895, .01259, .00079, .00006, + .00002, .00034, .00040 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13788, .03648, .01117, .00073, .00006, + .00003, .00031, .00038, + .13107, .03457, .01014, .00071, .00006, + .00003, .00029, .00035, + .12335, .03240, .00904, .00065, .00006, + .00003, .00027, .00032, + .11694, .03061, .00819, .00060, .00005, + .00003, .00025, .00030, + .11140, .02906, .00750, .00058, .00005, + .00003, .00024, .00028, + .10480, .02723, .00672, .00053, .00005, + .00003, .00022, .00026, + .09899, .02563, .00608, .00049, .00005, + .00003, .00021, .00024, + .09388, .02423, .00554, .00045, .00005, + .00003, .00019, .00023 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08905, .02290, .00507, .00043, .00005, + .00003, .00018, .00021, + .08460, .02169, .00466, .00041, .00005, + .00003, .00017, .00020, + .08061, .02061, .00430, .00039, .00004, + .00003, .00016, .00019, + .07704, .01964, .00400, .00037, .00004, + .00003, .00015, .00018, + .07363, .01873, .00372, .00035, .00004, + .00003, .00015, .00017, + .07043, .01787, .00347, .00033, .00004, + .00003, .00014, .00016, + .06756, .01710, .00325, .00031, .00004, + .00003, .00013, .00015, + .06493, .01640, .00306, .00030, .00004, + .00003, .00012, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06240, .01572, .00288, .00029, .00004, + .00003, .00012, .00013, + .06002, .01509, .00272, .00027, .00004, + .00003, .00011, .00013, + .05784, .01450, .00257, .00025, .00004, + .00003, .00010, .00013, + .05585, .01397, .00244, .00023, .00003, + .00003, .00010, .00012, + .05390, .01346, .00232, .00023, .00003, + .00003, .00010, .00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30481, .08349, .06118, .00157, .00000, + .00000, .00066, .00078, + .28671, .07813, .05336, .00144, .00000, + .00000, .00062, .00073, + .26233, .07095, .04381, .00128, .00000, + .00000, .00055, .00065, + .24616, .06626, .03812, .00121, .00000, + .00000, .00052, .00058, + .23066, .06176, .03305, .00110, .00000, + .00000, .00047, .00055, + .21832, .05820, .02930, .00103, .00001, + .00000, .00044, .00053, + .20723, .05504, .02615, .00096, .00002, + .00000, .00042, .00050, + .19619, .05191, .02324, .00090, .00002, + .00000, .00038, .00045 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18716, .04933, .02102, .00085, .00002, + .00000, .00037, .00043, + .17889, .04700, .01912, .00080, .00003, + .00000, .00035, .00040, + .17266, .04525, .01776, .00076, .00003, + .00000, .00034, .00037, + .16024, .04178, .01521, .00070, .00003, + .00000, .00032, .00035, + .15046, .03905, .01336, .00063, .00003, + .00001, .00029, .00032, + .14031, .03624, .01159, .00058, .00003, + .00001, .00026, .00030, + .13056, .03357, .01005, .00053, .00003, + .00001, .00024, .00027, + .12239, .03134, .00886, .00050, .00004, + .00002, .00022, .00025 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11475, .02926, .00784, .00046, .00004, + .00002, .00021, .00023, + .10883, .02764, .00710, .00042, .00003, + .00002, .00019, .00022, + .10210, .02583, .00631, .00038, .00003, + .00002, .00018, .00021, + .09653, .02433, .00571, .00036, .00003, + .00002, .00017, .00019, + .09171, .02305, .00522, .00035, .00003, + .00002, .00016, .00018, + .08602, .02154, .00467, .00032, .00003, + .00002, .00015, .00016, + .08101, .02022, .00422, .00029, .00003, + .00002, .00014, .00015, + .07660, .01906, .00384, .00028, .00003, + .00002, .00013, .00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07247, .01797, .00351, .00027, .00003, + .00002, .00012, .00013, + .06868, .01697, .00322, .00025, .00003, + .00002, .00011, .00012, + .06529, .01609, .00297, .00023, .00003, + .00002, .00010, .00012, + .06225, .01530, .00276, .00021, .00003, + .00002, .00010, .00011, + .05937, .01456, .00256, .00020, .00003, + .00002, .00009, .00010, + .05667, .01386, .00239, .00019, .00002, + .00002, .00008, .00010, + .05424, .01323, .00223, .00018, .00002, + .00002, .00008, .00010, + .05204, .01267, .00210, .00017, .00002, + .00002, .00008, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04993, .01212, .00197, .00016, .00002, + .00002, .00007, .00009, + .04791, .01161, .00186, .00016, .00002, + .00002, .00007, .00008, + .04607, .01115, .00176, .00016, .00002, + .00002, .00007, .00007, + .04440, .01073, .00167, .00016, .00002, + .00002, .00006, .00007, + .04279, .01032, .00158, .00015, .00002, + .00002, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26373, .06960, .04554, .00110, .00000, + .00000, .00040, .00049, + .24723, .06490, .03944, .00101, .00000, + .00000, .00038, .00045, + .22504, .05868, .03209, .00091, .00000, + .00000, .00033, .00038, + .21048, .05461, .02771, .00084, .00000, + .00000, .00031, .00035, + .19652, .05072, .02388, .00075, .00000, + .00000, .00027, .00033, + .18547, .04767, .02107, .00071, .00001, + .00000, .00026, .00030, + .17557, .04495, .01873, .00066, .00001, + .00000, .00025, .00028, + .16575, .04227, .01658, .00060, .00001, + .00000, .00023, .00026 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15770, .04008, .01494, .00057, .00001, + .00000, .00022, .00025, + .15037, .03809, .01354, .00054, .00002, + .00000, .00021, .00023, + .14486, .03660, .01255, .00052, .00002, + .00000, .00020, .00022, + .13389, .03367, .01070, .00050, .00002, + .00000, .00018, .00019, + .12532, .03138, .00936, .00045, .00002, + .00000, .00017, .00018, + .11647, .02902, .00810, .00040, .00002, + .00001, .00016, .00017, + .10800, .02678, .00700, .00036, .00002, + .00001, .00014, .00016, + .10091, .02492, .00616, .00034, .00002, + .00001, .00012, .00014 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09430, .02320, .00544, .00031, .00002, + .00001, .00012, .00012, + .08918, .02186, .00491, .00029, .00002, + .00001, .00011, .00012, + .08339, .02036, .00436, .00028, .00002, + .00001, .00010, .00011, + .07863, .01914, .00394, .00026, .00002, + .00001, .00009, .00010, + .07455, .01809, .00359, .00023, .00002, + .00001, .00008, .00010, + .06970, .01684, .00321, .00021, .00002, + .00001, .00007, .00009, + .06545, .01576, .00290, .00020, .00002, + .00001, .00007, .00008, + .06172, .01482, .00264, .00020, .00002, + .00001, .00007, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05824, .01394, .00240, .00018, .00002, + .00001, .00006, .00006, + .05505, .01314, .00220, .00017, .00002, + .00001, .00006, .00006, + .05221, .01242, .00203, .00016, .00002, + .00001, .00006, .00006, + .04967, .01179, .00188, .00015, .00002, + .00001, .00005, .00006, + .04727, .01119, .00175, .00014, .00002, + .00001, .00005, .00006, + .04502, .01063, .00163, .00014, .00002, + .00001, .00005, .00005, + .04300, .01013, .00152, .00013, .00001, + .00001, .00005, .00005, + .04119, .00968, .00143, .00012, .00001, + .00001, .00005, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03945, .00925, .00134, .00011, .00001, + .00001, .00004, .00004, + .03779, .00884, .00126, .00010, .00001, + .00001, .00004, .00004, + .03628, .00847, .00119, .00010, .00001, + .00001, .00004, .00004, + .03491, .00814, .00113, .00010, .00001, + .00001, .00003, .00004, + .03357, .00781, .00107, .00010, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22477, .05697, .03290, .00066, .00000, + .00000, .00029, .00031, + .20994, .05296, .02828, .00061, .00000, + .00000, .00026, .00030, + .19012, .04763, .02279, .00054, .00000, + .00000, .00024, .00025, + .17720, .04417, .01956, .00048, .00000, + .00000, .00022, .00023, + .16481, .04089, .01676, .00043, .00000, + .00000, .00019, .00020, + .15504, .03831, .01472, .00042, .00000, + .00000, .00018, .00020, + .14633, .03601, .01303, .00040, .00001, + .00000, .00017, .00019, + .13773, .03375, .01148, .00036, .00001, + .00000, .00016, .00017 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13073, .03193, .01032, .00033, .00001, + .00000, .00015, .00016, + .12436, .03027, .00933, .00030, .00001, + .00000, .00013, .00015, + .11957, .02903, .00862, .00029, .00001, + .00000, .00012, .00015, + .11007, .02660, .00732, .00027, .00001, + .00000, .00011, .00013, + .10265, .02471, .00639, .00025, .00001, + .00000, .00011, .00012, + .09504, .02276, .00551, .00022, .00001, + .00000, .00010, .00011, + .08779, .02093, .00475, .00020, .00001, + .00001, .00009, .00010, + .08176, .01941, .00417, .00019, .00001, + .00001, .00008, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07615, .01800, .00367, .00017, .00001, + .00001, .00007, .00009, + .07181, .01693, .00331, .00016, .00001, + .00001, .00007, .00007, + .06693, .01572, .00294, .00015, .00001, + .00001, .00007, .00007, + .06293, .01473, .00265, .00013, .00001, + .00001, .00006, .00006, + .05951, .01388, .00241, .00012, .00001, + .00001, .00006, .00006, + .05544, .01288, .00215, .00012, .00001, + .00001, .00005, .00005, + .05191, .01202, .00194, .00011, .00001, + .00001, .00005, .00005, + .04884, .01127, .00176, .00009, .00001, + .00001, .00004, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04594, .01057, .00161, .00009, .00001, + .00001, .00004, .00004, + .04330, .00994, .00147, .00009, .00001, + .00001, .00004, .00004, + .04096, .00937, .00135, .00009, .00001, + .00001, .00004, .00004, + .03889, .00887, .00125, .00008, .00001, + .00001, .00004, .00003, + .03693, .00840, .00116, .00007, .00001, + .00001, .00003, .00003, + .03508, .00797, .00108, .00007, .00001, + .00001, .00003, .00003, + .03343, .00758, .00101, .00007, .00001, + .00001, .00003, .00003, + .03195, .00722, .00095, .00006, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03053, .00689, .00089, .00006, .00001, + .00001, .00003, .00003, + .02919, .00657, .00084, .00005, .00001, + .00001, .00003, .00003, + .02798, .00628, .00079, .00005, .00001, + .00001, .00003, .00003, + .02687, .00602, .00075, .00005, .00001, + .00001, .00002, .00002, + .02580, .00577, .00071, .00005, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15581, .03641, .01573, .00028, .00000, + .00000, .00009, .00009, + .14444, .03358, .01335, .00024, .00000, + .00000, .00008, .00010, + .12942, .02988, .01057, .00020, .00000, + .00000, .00008, .00008, + .11966, .02750, .00898, .00019, .00000, + .00000, .00006, .00007, + .11040, .02527, .00761, .00019, .00000, + .00000, .00006, .00006, + .10322, .02352, .00663, .00016, .00000, + .00000, .00005, .00007, + .09684, .02198, .00583, .00014, .00000, + .00000, .00005, .00007, + .09057, .02047, .00511, .00012, .00000, + .00000, .00005, .00006 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08549, .01926, .00457, .00012, .00000, + .00000, .00005, .00005, + .08089, .01817, .00411, .00011, .00000, + .00000, .00005, .00005, + .07745, .01736, .00379, .00011, .00000, + .00000, .00004, .00005, + .07072, .01577, .00320, .00009, .00000, + .00000, .00004, .00005, + .06548, .01454, .00278, .00009, .00000, + .00000, .00003, .00004, + .06015, .01329, .00239, .00008, .00000, + .00000, .00003, .00003, + .05513, .01213, .00205, .00007, .00000, + .00000, .00003, .00003, + .05097, .01117, .00180, .00006, .00000, + .00000, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04713, .01029, .00158, .00006, .00000, + .00000, .00003, .00002, + .04419, .00962, .00142, .00006, .00000, + .00000, .00003, .00002, + .04091, .00887, .00126, .00004, .00000, + .00000, .00002, .00002, + .03824, .00826, .00113, .00004, .00000, + .00000, .00002, .00002, + .03596, .00774, .00103, .00004, .00000, + .00000, .00002, .00002, + .03327, .00714, .00092, .00004, .00000, + .00000, .00002, .00002, + .03095, .00662, .00082, .00003, .00000, + .00000, .00002, .00001, + .02895, .00617, .00075, .00003, .00000, + .00000, .00002, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02707, .00575, .00068, .00003, .00000, + .00000, .00001, .00001, + .02538, .00538, .00062, .00003, .00000, + .00000, .00001, .00001, + .02389, .00505, .00057, .00002, .00000, + .00000, .00001, .00001, + .02257, .00476, .00053, .00002, .00000, + .00000, .00001, .00001, + .02132, .00448, .00049, .00002, .00000, + .00000, .00001, .00001, + .02017, .00423, .00045, .00002, .00000, + .00000, .00001, .00001, + .01913, .00400, .00042, .00002, .00000, + .00000, .00001, .00001, + .01820, .00380, .00040, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01731, .00361, .00037, .00002, .00000, + .00000, .00001, .00001, + .01649, .00343, .00035, .00002, .00000, + .00000, .00001, .00001, + .01574, .00327, .00033, .00001, .00000, + .00000, .00001, .00001, + .01507, .00312, .00031, .00001, .00000, + .00000, .00001, .00001, + .01442, .00298, .00029, .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)/ + .09983, .02134, .00647, .00010, .00000, + .00000, .00003, .00002, + .09180, .01952, .00543, .00008, .00000, + .00000, .00001, .00003, + .08128, .01717, .00425, .00008, .00000, + .00000, .00002, .00002, + .07454, .01568, .00358, .00007, .00000, + .00000, .00002, .00001, + .06822, .01428, .00301, .00006, .00000, + .00000, .00001, .00001, + .06333, .01320, .00262, .00005, .00000, + .00000, .00002, .00002, + .05901, .01226, .00229, .00005, .00000, + .00000, .00001, .00002, + .05481, .01134, .00200, .00004, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05144, .01061, .00179, .00003, .00000, + .00000, .00001, .00001, + .04840, .00995, .00161, .00003, .00000, + .00000, .00001, .00001, + .04614, .00947, .00148, .00003, .00000, + .00000, .00001, .00001, + .04174, .00852, .00124, .00003, .00000, + .00000, .00001, .00001, + .03836, .00780, .00108, .00002, .00000, + .00000, .00001, .00001, + .03493, .00707, .00093, .00002, .00000, + .00000, .00001, .00001, + .03173, .00639, .00080, .00002, .00000, + .00000, .00001, .00001, + .02911, .00584, .00070, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02672, .00534, .00061, .00002, .00000, + .00000, .00001, .00001, + .02490, .00496, .00055, .00002, .00000, + .00000, .00000, .00000, + .02287, .00454, .00049, .00001, .00000, + .00000, .00001, .00001, + .02124, .00420, .00044, .00001, .00000, + .00000, .00001, .00001, + .01985, .00392, .00040, .00001, .00000, + .00000, .00000, .00000, + .01823, .00359, .00035, .00001, .00000, + .00000, .00000, .00000, + .01685, .00330, .00032, .00001, .00000, + .00000, .00000, .00000, + .01566, .00306, .00029, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01455, .00284, .00026, .00001, .00000, + .00000, .00000, .00000, + .01356, .00263, .00024, .00001, .00000, + .00000, .00000, .00000, + .01269, .00246, .00022, .00001, .00000, + .00000, .00000, .00000, + .01192, .00230, .00020, .00001, .00000, + .00000, .00000, .00000, + .01120, .00216, .00019, .00001, .00000, + .00000, .00000, .00000, + .01054, .00203, .00017, .00001, .00000, + .00000, .00000, .00000, + .00995, .00191, .00016, .00000, .00000, + .00000, .00000, .00000, + .00943, .00180, .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)/ + .00893, .00171, .00014, .00000, .00000, + .00000, .00000, .00000, + .00846, .00161, .00013, .00001, .00000, + .00000, .00000, .00000, + .00804, .00153, .00012, .00001, .00000, + .00000, .00000, .00000, + .00766, .00146, .00012, .00001, .00000, + .00000, .00000, .00000, + .00730, .00139, .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)/ + .05768, .01115, .00218, .00003, .00000, + .00000, .00000, .00000, + .05255, .01011, .00182, .00002, .00000, + .00000, .00000, .00000, + .04591, .00878, .00142, .00003, .00000, + .00000, .00000, .00000, + .04173, .00795, .00119, .00002, .00000, + .00000, .00000, .00000, + .03784, .00717, .00100, .00001, .00000, + .00000, .00000, .00001, + .03485, .00658, .00087, .00001, .00000, + .00000, .00000, .00000, + .03223, .00606, .00077, .00001, .00000, + .00000, .00000, .00000, + .02970, .00557, .00067, .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)/ + .02768, .00517, .00060, .00001, .00000, + .00000, .00000, .00000, + .02588, .00482, .00054, .00001, .00000, + .00000, .00000, .00000, + .02455, .00456, .00050, .00001, .00000, + .00000, .00000, .00000, + .02198, .00407, .00042, .00001, .00000, + .00000, .00000, .00000, + .02003, .00369, .00036, .00001, .00000, + .00000, .00000, .00000, + .01807, .00331, .00031, .00000, .00000, + .00000, .00000, .00000, + .01626, .00297, .00027, .00000, .00000, + .00000, .00000, .00000, + .01478, .00269, .00024, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01345, .00244, .00021, .00001, .00000, + .00000, .00000, .00000, + .01244, .00225, .00019, .00000, .00000, + .00000, .00000, .00000, + .01134, .00204, .00017, .00001, .00000, + .00000, .00000, .00000, + .01045, .00187, .00015, .00000, .00000, + .00000, .00000, .00000, + .00970, .00174, .00013, .00000, .00000, + .00000, .00000, .00000, + .00884, .00158, .00012, .00000, .00000, + .00000, .00000, .00000, + .00810, .00144, .00011, .00000, .00000, + .00000, .00000, .00000, + .00747, .00132, .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)/ + .00690, .00122, .00009, .00000, .00000, + .00000, .00000, .00000, + .00638, .00113, .00008, .00000, .00000, + .00000, .00000, .00000, + .00593, .00104, .00007, .00000, .00000, + .00000, .00000, .00000, + .00554, .00097, .00007, .00000, .00000, + .00000, .00000, .00000, + .00518, .00091, .00006, .00000, .00000, + .00000, .00000, .00000, + .00484, .00085, .00006, .00000, .00000, + .00000, .00000, .00000, + .00455, .00079, .00005, .00000, .00000, + .00000, .00000, .00000, + .00429, .00074, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00404, .00070, .00005, .00000, .00000, + .00000, .00000, .00000, + .00381, .00066, .00004, .00000, .00000, + .00000, .00000, .00000, + .00360, .00062, .00004, .00000, .00000, + .00000, .00000, .00000, + .00342, .00059, .00004, .00000, .00000, + .00000, .00000, .00000, + .00324, .00056, .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)/ + .02866, .00492, .00056, .00000, .00000, + .00000, .00000, .00000, + .02584, .00442, .00047, .00000, .00000, + .00000, .00000, .00000, + .02225, .00378, .00037, .00000, .00000, + .00000, .00000, .00000, + .02000, .00338, .00031, .00000, .00000, + .00000, .00000, .00000, + .01793, .00302, .00027, .00000, .00000, + .00000, .00000, .00000, + .01637, .00275, .00023, .00000, .00000, + .00000, .00000, .00000, + .01501, .00251, .00021, .00000, .00000, + .00000, .00000, .00000, + .01370, .00228, .00018, .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)/ + .01268, .00211, .00016, .00000, .00000, + .00000, .00000, .00000, + .01176, .00195, .00015, .00000, .00000, + .00000, .00000, .00000, + .01110, .00183, .00014, .00000, .00000, + .00000, .00000, .00000, + .00981, .00162, .00012, .00000, .00000, + .00000, .00000, .00000, + .00885, .00145, .00010, .00000, .00000, + .00000, .00000, .00000, + .00790, .00129, .00009, .00000, .00000, + .00000, .00000, .00000, + .00703, .00114, .00008, .00000, .00000, + .00000, .00000, .00000, + .00632, .00102, .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)/ + .00569, .00092, .00006, .00000, .00000, + .00000, .00000, .00000, + .00522, .00084, .00005, .00000, .00000, + .00000, .00000, .00000, + .00471, .00076, .00005, .00000, .00000, + .00000, .00000, .00000, + .00431, .00069, .00004, .00000, .00000, + .00000, .00000, .00000, + .00397, .00063, .00004, .00000, .00000, + .00000, .00000, .00000, + .00358, .00057, .00003, .00000, .00000, + .00000, .00000, .00000, + .00325, .00052, .00003, .00000, .00000, + .00000, .00000, .00000, + .00298, .00047, .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)/ + .00272, .00043, .00002, .00000, .00000, + .00000, .00000, .00000, + .00250, .00039, .00002, .00000, .00000, + .00000, .00000, .00000, + .00231, .00036, .00002, .00000, .00000, + .00000, .00000, .00000, + .00214, .00033, .00002, .00000, .00000, + .00000, .00000, .00000, + .00198, .00031, .00002, .00000, .00000, + .00000, .00000, .00000, + .00184, .00029, .00002, .00000, .00000, + .00000, .00000, .00000, + .00172, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00161, .00025, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00151, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00141, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00133, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00126, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00118, .00018, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00298, .00036, .00001, .00000, .00000, + .00000, .00000, .00000, + .00260, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00214, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00187, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00162, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00144, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00129, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00115, .00014, .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)/ + .00104, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00094, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00087, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00075, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00065, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00056, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00049, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00005, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00037, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00033, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / 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='cor10.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