* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:29:44 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:35 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFDISS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW B0-TYPE FIT "S0'" WITH UBAR = DBAR (230 MEV) C IN THE ** DIS ** SCHEME C #include "pdf/impdp.inc" PARAMETER(NX=47) PARAMETER(NTENTH=21) DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ + 0.01733, 0.00079, 4.29007, 0.46317, 0.06785, + 0.00000, 0.26832, 0.46689, + 0.01777, 0.00090, 10.96969, 0.64698, 0.25154, + 0.00000, 0.45214, 0.65044, + 0.01819, 0.00100, 19.87027, 0.88114, 0.48562, + 0.00000, 0.68633, 0.88438, + 0.01858, 0.00109, 30.53786, 1.16076, 0.76516, + 0.00000, 0.96597, 1.16378, + 0.01894, 0.00119, 42.94975, 1.48412, 1.08844, + 0.07130, 1.28936, 1.48695, + 0.01930, 0.00129, 56.89287, 1.84855, 1.45281, + 0.40611, 1.65382, 1.85121, + 0.01963, 0.00138, 72.20888, 2.25266, 1.85687, + 0.83810, 2.05797, 2.25515 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.01995, 0.00148, 88.74004, 2.69380, 2.29795, + 1.30203, 2.49913, 2.69614, + 0.02026, 0.00156, 106.35173, 3.16932, 2.77343, + 1.80186, 2.97468, 3.17151, + 0.02056, 0.00165, 124.94041, 3.67720, 3.28127, + 2.33410, 3.48260, 3.67926, + 0.02084, 0.00174, 144.43050, 4.21585, 3.81988, + 2.89732, 4.02129, 4.21778, + 0.02112, 0.00182, 164.67508, 4.78220, 4.38619, + 3.48814, 4.58766, 4.78400, + 0.02139, 0.00192, 185.36879, 5.36963, 4.97359, + 4.09972, 5.17514, 5.37133, + 0.02166, 0.00200, 206.77844, 5.98353, 5.58747, + 4.73755, 5.78907, 5.98512 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.02191, 0.00208, 228.74190, 6.62047, 6.22438, + 5.39807, 6.42604, 6.62195, + 0.02216, 0.00216, 250.89102, 7.27179, 6.87569, + 6.07236, 7.07740, 7.27318, + 0.02240, 0.00225, 273.72388, 7.94850, 7.55238, + 6.77177, 7.75415, 7.94980, + 0.02263, 0.00232, 296.51294, 8.63398, 8.23784, + 7.47914, 8.43966, 8.63524, + 0.02287, 0.00241, 319.87012, 9.34186, 8.94570, + 8.20858, 9.14757, 9.34301 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.02186, 0.00133, 4.15525, 0.45567, 0.06315, + 0.00000, 0.26117, 0.45787, + 0.02247, 0.00149, 9.97353, 0.61785, 0.22549, + 0.00000, 0.42346, 0.61985, + 0.02302, 0.00165, 17.40932, 0.81862, 0.42641, + 0.00000, 0.62433, 0.82044, + 0.02353, 0.00180, 26.05307, 1.05278, 0.66072, + 0.00000, 0.85859, 1.05443, + 0.02401, 0.00195, 35.86687, 1.31822, 0.92630, + 0.05842, 1.12414, 1.31974, + 0.02448, 0.00209, 46.66591, 1.61230, 1.22052, + 0.32968, 1.41834, 1.61370, + 0.02491, 0.00223, 58.31685, 1.93355, 1.54190, + 0.67492, 1.73969, 1.93482 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.02533, 0.00237, 70.69379, 2.27958, 1.88805, + 1.04033, 2.08582, 2.28074, + 0.02573, 0.00251, 83.69285, 2.64813, 2.25672, + 1.42913, 2.45444, 2.64918, + 0.02613, 0.00264, 97.23681, 3.03745, 2.64616, + 1.83841, 2.84386, 3.03840, + 0.02650, 0.00278, 111.27096, 3.44624, 3.05506, + 2.26700, 3.25275, 3.44709, + 0.02686, 0.00291, 125.68948, 3.87206, 3.48100, + 2.71229, 3.67866, 3.87283, + 0.02720, 0.00303, 140.27439, 4.30995, 3.91899, + 3.16911, 4.11663, 4.31065, + 0.02755, 0.00316, 155.22564, 4.76391, 4.37306, + 3.64162, 4.57067, 4.76452 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.02788, 0.00328, 170.42950, 5.23139, 4.84064, + 4.12717, 5.03822, 5.23192, + 0.02819, 0.00341, 185.62791, 5.70599, 5.31534, + 4.61919, 5.51290, 5.70646, + 0.02850, 0.00353, 201.18077, 6.19587, 5.80532, + 5.12611, 6.00286, 6.19627, + 0.02881, 0.00365, 216.57878, 6.68886, 6.29841, + 5.63539, 6.49594, 6.68921, + 0.02910, 0.00376, 232.25762, 7.19497, 6.80463, + 6.15741, 7.00213, 7.19528 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.02751, 0.00222, 4.02437, 0.44755, 0.05849, + 0.00000, 0.25394, 0.44862, + 0.02829, 0.00247, 9.06631, 0.58947, 0.20083, + 0.00000, 0.39608, 0.59042, + 0.02902, 0.00271, 15.24934, 0.76026, 0.37199, + 0.00000, 0.56707, 0.76109, + 0.02970, 0.00295, 22.21999, 0.95491, 0.56702, + 0.00000, 0.76193, 0.95565, + 0.03033, 0.00317, 29.94127, 1.17131, 0.78374, + 0.04760, 0.97850, 1.17195, + 0.03092, 0.00339, 38.26198, 1.40703, 1.01979, + 0.26617, 1.21441, 1.40760, + 0.03149, 0.00361, 47.07710, 1.66074, 1.27381, + 0.54061, 1.46829, 1.66123 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.03203, 0.00382, 56.29138, 1.93044, 1.54379, + 0.82692, 1.73814, 1.93085, + 0.03255, 0.00402, 65.82938, 2.21426, 1.82790, + 1.12776, 2.02212, 2.21461, + 0.03305, 0.00423, 75.63731, 2.51083, 2.12475, + 1.44084, 2.31885, 2.51113, + 0.03353, 0.00442, 85.67871, 2.81913, 2.43332, + 1.76527, 2.62730, 2.81938, + 0.03400, 0.00462, 95.88033, 3.13733, 2.75177, + 2.09910, 2.94564, 3.13750, + 0.03444, 0.00481, 106.08917, 3.46172, 3.07641, + 2.43852, 3.27017, 3.46186, + 0.03487, 0.00500, 116.45706, 3.79532, 3.41025, + 2.78668, 3.60390, 3.79541 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.03530, 0.00518, 126.90576, 4.13628, 3.75145, + 3.14167, 3.94499, 4.13633, + 0.03570, 0.00536, 137.25620, 4.47995, 4.09535, + 3.49873, 4.28879, 4.47995, + 0.03609, 0.00555, 147.76971, 4.83234, 4.44797, + 3.86410, 4.64131, 4.83231, + 0.03648, 0.00571, 158.09094, 5.18467, 4.80051, + 4.22873, 4.99375, 5.18460, + 0.03685, 0.00589, 168.53088, 5.54422, 5.16028, + 4.60020, 5.35343, 5.54412 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.03140, 0.00299, 3.94949, 0.44243, 0.05576, + 0.00000, 0.24964, 0.44302, + 0.03233, 0.00332, 8.57318, 0.57309, 0.18700, + 0.00000, 0.38060, 0.57360, + 0.03317, 0.00363, 14.10938, 0.72779, 0.34224, + 0.00000, 0.53558, 0.72822, + 0.03395, 0.00392, 20.23964, 0.90180, 0.51673, + 0.00000, 0.70983, 0.90217, + 0.03469, 0.00421, 26.93188, 1.09307, 0.70846, + 0.04209, 0.90134, 1.09339, + 0.03537, 0.00449, 34.05507, 1.29941, 0.91524, + 0.23417, 1.10791, 1.29967, + 0.03603, 0.00477, 41.52043, 1.51959, 1.13586, + 0.47344, 1.32832, 1.51980 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.03667, 0.00503, 49.24931, 1.75186, 1.36853, + 0.72097, 1.56080, 1.75203, + 0.03726, 0.00529, 57.18089, 1.99461, 1.61168, + 0.97916, 1.80376, 1.99475, + 0.03783, 0.00555, 65.27330, 2.24667, 1.86411, + 1.24606, 2.05602, 2.24678, + 0.03839, 0.00581, 73.49934, 2.50718, 2.12497, + 1.52094, 2.31670, 2.50724, + 0.03893, 0.00605, 81.80083, 2.77459, 2.39273, + 1.80219, 2.58429, 2.77462, + 0.03944, 0.00629, 90.05473, 3.04582, 2.66430, + 2.08664, 2.85570, 3.04582, + 0.03994, 0.00652, 98.39052, 3.32346, 2.94226, + 2.37699, 3.13351, 3.32343 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.04042, 0.00675, 106.74629, 3.60596, 3.22508, + 2.67168, 3.41617, 3.60591, + 0.04089, 0.00699, 114.97829, 3.88949, 3.50894, + 2.96679, 3.69988, 3.88943, + 0.04134, 0.00721, 123.30288, 4.17912, 3.79886, + 3.26757, 3.98966, 4.17902, + 0.04178, 0.00742, 131.43360, 4.46755, 4.08758, + 3.56652, 4.27824, 4.46743, + 0.04221, 0.00764, 139.62537, 4.76089, 4.38122, + 3.87001, 4.57173, 4.76075 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.03447, 0.00370, 3.89704, 0.43859, 0.05382, + 0.00000, 0.24655, 0.43894, + 0.03550, 0.00408, 8.23885, 0.56152, 0.17745, + 0.00000, 0.36983, 0.56181, + 0.03643, 0.00445, 13.35069, 0.70540, 0.32198, + 0.00000, 0.51403, 0.70564, + 0.03730, 0.00480, 18.93910, 0.86576, 0.48294, + 0.00000, 0.67470, 0.86597, + 0.03812, 0.00515, 24.97672, 1.04064, 0.65838, + 0.03852, 0.84986, 1.04080, + 0.03888, 0.00548, 31.34653, 1.22802, 0.84630, + 0.21350, 1.03751, 1.22815, + 0.03961, 0.00581, 37.97078, 1.42677, 1.04555, + 0.43028, 1.23651, 1.42687 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.04030, 0.00612, 44.78175, 1.63530, 1.25457, + 0.65319, 1.44529, 1.63537, + 0.04096, 0.00643, 51.72809, 1.85217, 1.47192, + 0.88451, 1.66241, 1.85223, + 0.04160, 0.00674, 58.77548, 2.07636, 1.69655, + 1.12249, 1.88683, 2.07640, + 0.04221, 0.00703, 65.90230, 2.30709, 1.92772, + 1.36652, 2.11779, 2.30711, + 0.04280, 0.00732, 73.05998, 2.54304, 2.16409, + 1.61519, 2.35395, 2.54305, + 0.04337, 0.00761, 80.14357, 2.78151, 2.40296, + 1.86575, 2.59261, 2.78150, + 0.04392, 0.00788, 87.26857, 3.02479, 2.64663, + 2.12062, 2.83610, 3.02476 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.04444, 0.00815, 94.38304, 3.27156, 2.89377, + 2.37844, 3.08306, 3.27151, + 0.04496, 0.00842, 101.36421, 3.51848, 3.14107, + 2.63584, 3.33017, 3.51842, + 0.04546, 0.00868, 108.40167, 3.77000, 3.39296, + 2.89741, 3.58188, 3.76994, + 0.04595, 0.00894, 115.24945, 4.01979, 3.64310, + 3.15667, 3.83185, 4.01972, + 0.04641, 0.00919, 122.12920, 4.27322, 3.89686, + 3.41918, 4.08545, 4.27313 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.03705, 0.00435, 3.85671, 0.43552, 0.05231, + 0.00000, 0.24411, 0.43571, + 0.03816, 0.00480, 7.98792, 0.55257, 0.17023, + 0.00000, 0.36158, 0.55273, + 0.03917, 0.00522, 12.78898, 0.68841, 0.30683, + 0.00000, 0.49780, 0.68854, + 0.04010, 0.00562, 17.98566, 0.83871, 0.45786, + 0.00000, 0.64847, 0.83881, + 0.04098, 0.00601, 23.55469, 1.00164, 0.62147, + 0.03592, 0.81174, 1.00172, + 0.04181, 0.00639, 29.38963, 1.17530, 0.79576, + 0.19855, 0.98572, 1.17537, + 0.04260, 0.00676, 35.42102, 1.35865, 0.97971, + 0.39916, 1.16938, 1.35870 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.04335, 0.00713, 41.58891, 1.55022, 1.17186, + 0.60449, 1.36125, 1.55027, + 0.04407, 0.00748, 47.84892, 1.74872, 1.37090, + 0.81671, 1.56001, 1.74875, + 0.04475, 0.00782, 54.17197, 1.95319, 1.57589, + 1.03422, 1.76475, 1.95322, + 0.04541, 0.00816, 60.54033, 2.16297, 1.78617, + 1.25652, 1.97479, 2.16299, + 0.04604, 0.00848, 66.91216, 2.37685, 2.00054, + 1.48234, 2.18891, 2.37686, + 0.04665, 0.00880, 73.19493, 2.59240, 2.21656, + 1.70920, 2.40470, 2.59241, + 0.04724, 0.00911, 79.49432, 2.81174, 2.43635, + 1.93933, 2.62427, 2.81174 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.04781, 0.00943, 85.76529, 3.03369, 2.65873, + 2.17155, 2.84643, 3.03368, + 0.04837, 0.00972, 91.89941, 3.25525, 2.88071, + 2.40281, 3.06821, 3.25524, + 0.04890, 0.01002, 98.06761, 3.48046, 3.10632, + 2.63730, 3.29362, 3.48044, + 0.04943, 0.01031, 104.05170, 3.70361, 3.32989, + 2.86919, 3.51699, 3.70360, + 0.04993, 0.01059, 110.05058, 3.92959, 3.55624, + 3.10353, 3.74316, 3.92957 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.04617, 0.00719, 3.73301, 0.42494, 0.04753, + 0.00000, 0.23618, 0.42491, + 0.04757, 0.00787, 7.25156, 0.52456, 0.14833, + 0.00000, 0.33638, 0.52454, + 0.04884, 0.00851, 11.17987, 0.63710, 0.26195, + 0.00000, 0.44946, 0.63709, + 0.05003, 0.00912, 15.30139, 0.75899, 0.38485, + 0.00000, 0.57186, 0.75902, + 0.05113, 0.00971, 19.60672, 0.88872, 0.51550, + 0.02874, 0.70205, 0.88877, + 0.05217, 0.01028, 24.02007, 1.02478, 0.65245, + 0.15752, 0.83856, 1.02486, + 0.05316, 0.01084, 28.49510, 1.16640, 0.79491, + 0.31428, 0.98060, 1.16650 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.05411, 0.01138, 32.99355, 1.31251, 0.94180, + 0.47242, 1.12711, 1.31262, + 0.05501, 0.01190, 37.48895, 1.46213, 1.09217, + 0.63383, 1.27711, 1.46226, + 0.05587, 0.01241, 41.96594, 1.61460, 1.24538, + 0.79737, 1.42995, 1.61476, + 0.05669, 0.01291, 46.41725, 1.76949, 1.40095, + 0.96273, 1.58517, 1.76965, + 0.05749, 0.01339, 50.81726, 1.92594, 1.55807, + 1.12906, 1.74196, 1.92613, + 0.05826, 0.01386, 55.10451, 2.08227, 1.71502, + 1.29465, 1.89861, 2.08246, + 0.05900, 0.01431, 59.35997, 2.24004, 1.87341, + 1.46118, 2.05668, 2.24024 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.05971, 0.01476, 63.55490, 2.39847, 2.03245, + 1.62788, 2.21542, 2.39869, + 0.06040, 0.01519, 67.61636, 2.55546, 2.19000, + 1.79261, 2.37269, 2.55569, + 0.06108, 0.01562, 71.66826, 2.71396, 2.34906, + 1.95847, 2.53147, 2.71421, + 0.06173, 0.01603, 75.56110, 2.86995, 2.50560, + 2.12134, 2.68774, 2.87022, + 0.06236, 0.01644, 79.43605, 3.02695, 2.66313, + 2.28489, 2.84500, 3.02723 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.05724, 0.01180, 3.61060, 0.41244, 0.04254, + 0.00000, 0.22740, 0.41242, + 0.05898, 0.01282, 6.57201, 0.49574, 0.12734, + 0.00000, 0.31146, 0.49577, + 0.06057, 0.01380, 9.74883, 0.58745, 0.22041, + 0.00000, 0.40385, 0.58750, + 0.06204, 0.01472, 12.97729, 0.68475, 0.31899, + 0.00000, 0.50180, 0.68485, + 0.06340, 0.01560, 16.26187, 0.78648, 0.42191, + 0.02274, 0.60414, 0.78662, + 0.06469, 0.01645, 19.55322, 0.89152, 0.52806, + 0.12360, 0.70974, 0.89170, + 0.06592, 0.01727, 22.82423, 0.99932, 0.63694, + 0.24474, 0.81808, 0.99952 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.06710, 0.01807, 26.05367, 1.10912, 0.74776, + 0.36517, 0.92840, 1.10936, + 0.06822, 0.01885, 29.22864, 1.22027, 0.85987, + 0.48654, 1.04003, 1.22053, + 0.06929, 0.01959, 32.34377, 1.33232, 0.97285, + 0.60806, 1.15255, 1.33261, + 0.07032, 0.02031, 35.39905, 1.44500, 1.08642, + 0.72962, 1.26568, 1.44532, + 0.07131, 0.02101, 38.38046, 1.55777, 1.20004, + 0.85067, 1.37888, 1.55811, + 0.07226, 0.02169, 41.24855, 1.66944, 1.31254, + 0.97003, 1.49096, 1.66981, + 0.07318, 0.02236, 44.06503, 1.78122, 1.42511, + 1.08903, 1.60314, 1.78160 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.07407, 0.02299, 46.81233, 1.89259, 1.53725, + 1.20716, 1.71490, 1.89300, + 0.07494, 0.02362, 49.44273, 2.00210, 1.64751, + 1.32297, 1.82477, 2.00253, + 0.07577, 0.02423, 52.04507, 2.11192, 1.75804, + 1.43873, 1.93496, 2.11235, + 0.07657, 0.02482, 54.51849, 2.21922, 1.86604, + 1.55156, 2.04260, 2.21968, + 0.07736, 0.02541, 56.96199, 2.32655, 1.97406, + 1.66414, 2.15028, 2.32703 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.06478, 0.01572, 3.53868, 0.40397, 0.03947, + 0.00000, 0.22167, 0.40399, + 0.06673, 0.01701, 6.19576, 0.47825, 0.11548, + 0.00000, 0.29683, 0.47830, + 0.06853, 0.01825, 8.97954, 0.55882, 0.19762, + 0.00000, 0.37820, 0.55892, + 0.07019, 0.01942, 11.75466, 0.64334, 0.28360, + 0.00000, 0.46345, 0.64346, + 0.07173, 0.02052, 14.53299, 0.73080, 0.37242, + 0.01969, 0.55161, 0.73096, + 0.07320, 0.02159, 17.27850, 0.82028, 0.46318, + 0.10654, 0.64174, 0.82047, + 0.07459, 0.02263, 19.97362, 0.91136, 0.55548, + 0.21002, 0.73344, 0.91156 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.07592, 0.02363, 22.60497, 1.00344, 0.64873, + 0.31199, 0.82610, 1.00367, + 0.07718, 0.02458, 25.16585, 1.09600, 0.74240, + 0.41398, 0.91923, 1.09625, + 0.07840, 0.02550, 27.65526, 1.18873, 0.83619, + 0.51538, 1.01248, 1.18899, + 0.07956, 0.02641, 30.07607, 1.28140, 0.92989, + 0.61614, 1.10569, 1.28170, + 0.08069, 0.02727, 32.41937, 1.37364, 1.02310, + 0.71586, 1.19841, 1.37395, + 0.08177, 0.02810, 34.65535, 1.46448, 1.11489, + 0.81364, 1.28973, 1.46481, + 0.08281, 0.02892, 36.83626, 1.55496, 1.20628, + 0.91060, 1.38067, 1.55531 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.08381, 0.02970, 38.94960, 1.64468, 1.29688, + 1.00637, 1.47083, 1.64505, + 0.08479, 0.03046, 40.95848, 1.73249, 1.38554, + 1.09978, 1.55907, 1.73286, + 0.08573, 0.03122, 42.93570, 1.82018, 1.47406, + 1.19277, 1.64717, 1.82057, + 0.08666, 0.03194, 44.80157, 1.90548, 1.56016, + 1.28298, 1.73287, 1.90589, + 0.08755, 0.03264, 46.63640, 1.99050, 1.64595, + 1.37264, 1.81828, 1.99091 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.07065, 0.01922, 3.48702, 0.39740, 0.03723, + 0.00000, 0.21731, 0.39740, + 0.07277, 0.02077, 5.93614, 0.46554, 0.10727, + 0.00000, 0.28641, 0.46556, + 0.07471, 0.02223, 8.45852, 0.53870, 0.18218, + 0.00000, 0.36047, 0.53874, + 0.07652, 0.02359, 10.93790, 0.61483, 0.25993, + 0.00000, 0.43742, 0.61489, + 0.07822, 0.02490, 13.39093, 0.69305, 0.33966, + 0.01772, 0.51640, 0.69314, + 0.07981, 0.02615, 15.79024, 0.77254, 0.42056, + 0.09552, 0.59662, 0.77264, + 0.08134, 0.02735, 18.12395, 0.85298, 0.50237, + 0.18770, 0.67774, 0.85310 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.08279, 0.02852, 20.38364, 0.93387, 0.58454, + 0.27795, 0.75929, 0.93400, + 0.08418, 0.02964, 22.56622, 1.01477, 0.66666, + 0.36771, 0.84080, 1.01491, + 0.08550, 0.03070, 24.67316, 1.09543, 0.74849, + 0.45649, 0.92205, 1.09559, + 0.08678, 0.03173, 26.70900, 1.17570, 0.82989, + 0.54429, 1.00289, 1.17588, + 0.08801, 0.03273, 28.66769, 1.25524, 0.91051, + 0.63080, 1.08298, 1.25543, + 0.08919, 0.03370, 30.52516, 1.33327, 0.98959, + 0.71525, 1.16153, 1.33347, + 0.09033, 0.03464, 32.32776, 1.41071, 1.06803, + 0.79868, 1.23947, 1.41092 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.09144, 0.03554, 34.06572, 1.48724, 1.14552, + 0.88078, 1.31649, 1.48745, + 0.09250, 0.03641, 35.70857, 1.56185, 1.22108, + 0.96057, 1.39158, 1.56208, + 0.09354, 0.03727, 37.31926, 1.63615, 1.29628, + 1.03973, 1.46634, 1.63638, + 0.09453, 0.03810, 38.83084, 1.70817, 1.36920, + 1.11628, 1.53880, 1.70843, + 0.09551, 0.03891, 40.31206, 1.77977, 1.44164, + 1.19213, 1.61083, 1.78002 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.07575, 0.02246, 3.44586, 0.39158, 0.03547, + 0.00000, 0.21354, 0.39165, + 0.07804, 0.02421, 5.73444, 0.45514, 0.10115, + 0.00000, 0.27817, 0.45524, + 0.08014, 0.02585, 8.05824, 0.52284, 0.17080, + 0.00000, 0.34685, 0.52297, + 0.08208, 0.02740, 10.31600, 0.59281, 0.24258, + 0.00000, 0.41773, 0.59296, + 0.08389, 0.02887, 12.52815, 0.66427, 0.31570, + 0.01627, 0.49003, 0.66444, + 0.08562, 0.03028, 14.67377, 0.73650, 0.38952, + 0.08748, 0.56306, 0.73671, + 0.08726, 0.03163, 16.74510, 0.80921, 0.46371, + 0.17143, 0.63653, 0.80943 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.08883, 0.03293, 18.73683, 0.88200, 0.53791, + 0.25319, 0.71003, 0.88223, + 0.09032, 0.03417, 20.64867, 0.95449, 0.61176, + 0.33414, 0.78321, 0.95475, + 0.09175, 0.03537, 22.48331, 1.02648, 0.68504, + 0.41384, 0.85585, 1.02675, + 0.09312, 0.03652, 24.24609, 1.09785, 0.75764, + 0.49234, 0.92784, 1.09813, + 0.09443, 0.03763, 25.93327, 1.16834, 0.82932, + 0.56942, 0.99893, 1.16864, + 0.09571, 0.03870, 27.52582, 1.23724, 0.89936, + 0.64439, 1.06840, 1.23756, + 0.09694, 0.03973, 29.06483, 1.30540, 0.96862, + 0.71820, 1.13712, 1.30574 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.09812, 0.04073, 30.54247, 1.37257, 1.03683, + 0.79061, 1.20481, 1.37290, + 0.09927, 0.04170, 31.93173, 1.43787, 1.10316, + 0.86079, 1.27063, 1.43822, + 0.10038, 0.04264, 33.28932, 1.50274, 1.16901, + 0.93022, 1.33599, 1.50309, + 0.10146, 0.04355, 34.55812, 1.56545, 1.23268, + 0.99719, 1.39919, 1.56581, + 0.10251, 0.04444, 35.79784, 1.62763, 1.29579, + 1.06338, 1.46183, 1.62801 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.09387, 0.03612, 3.31354, 0.37050, 0.02961, + 0.00000, 0.20010, 0.37051, + 0.09673, 0.03868, 5.13062, 0.42065, 0.08251, + 0.00000, 0.25164, 0.42070, + 0.09937, 0.04107, 6.89413, 0.47280, 0.13715, + 0.00000, 0.30504, 0.47285, + 0.10183, 0.04329, 8.54430, 0.52555, 0.19221, + 0.00000, 0.35895, 0.52563, + 0.10412, 0.04538, 10.11025, 0.57841, 0.24719, + 0.01230, 0.41289, 0.57850, + 0.10631, 0.04737, 11.58706, 0.63089, 0.30168, + 0.06555, 0.46640, 0.63101, + 0.10839, 0.04925, 12.97707, 0.68288, 0.35558, + 0.12737, 0.51934, 0.68302 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.11037, 0.05105, 14.28305, 0.73416, 0.40865, + 0.18654, 0.57152, 0.73430, + 0.11225, 0.05276, 15.51007, 0.78453, 0.46073, + 0.24425, 0.62275, 0.78469, + 0.11407, 0.05440, 16.66443, 0.83390, 0.51173, + 0.30027, 0.67295, 0.83408, + 0.11581, 0.05596, 17.75340, 0.88226, 0.56164, + 0.35474, 0.72209, 0.88245, + 0.11747, 0.05746, 18.77751, 0.92949, 0.61036, + 0.40758, 0.77007, 0.92968, + 0.11907, 0.05890, 19.72649, 0.97514, 0.65743, + 0.45838, 0.81643, 0.97533, + 0.12062, 0.06028, 20.63014, 1.01983, 0.70350, + 0.50786, 0.86182, 1.02003 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.12211, 0.06161, 21.48483, 1.06344, 0.74843, + 0.55592, 0.90609, 1.06366, + 0.12355, 0.06288, 22.27466, 1.10543, 0.79170, + 0.60203, 0.94872, 1.10566, + 0.12494, 0.06412, 23.03784, 1.14680, 0.83429, + 0.64727, 0.99071, 1.14702, + 0.12629, 0.06531, 23.73854, 1.18640, 0.87508, + 0.69048, 1.03091, 1.18663, + 0.12760, 0.06647, 24.41621, 1.22538, 0.91521, + 0.73287, 1.07046, 1.22562 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.11706, 0.05734, 3.16801, 0.34287, 0.02313, + 0.00002, 0.18302, 0.34292, + 0.12074, 0.06097, 4.54812, 0.38102, 0.06471, + 0.00002, 0.22291, 0.38110, + 0.12415, 0.06430, 5.82263, 0.41969, 0.10652, + 0.00001, 0.26316, 0.41980, + 0.12732, 0.06736, 6.96601, 0.45791, 0.14759, + 0.00002, 0.30282, 0.45805, + 0.13030, 0.07020, 8.01228, 0.49543, 0.18776, + 0.00905, 0.34167, 0.49559, + 0.13310, 0.07286, 8.96691, 0.53194, 0.22675, + 0.04768, 0.37944, 0.53212, + 0.13578, 0.07537, 9.83846, 0.56743, 0.26459, + 0.09177, 0.41611, 0.56762 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.13833, 0.07772, 10.63628, 0.60187, 0.30123, + 0.13317, 0.45165, 0.60207, + 0.14075, 0.07995, 11.36589, 0.63516, 0.33661, + 0.17288, 0.48600, 0.63537, + 0.14305, 0.08205, 12.03519, 0.66731, 0.37076, + 0.21083, 0.51915, 0.66752, + 0.14526, 0.08405, 12.65259, 0.69835, 0.40370, + 0.24719, 0.55115, 0.69857, + 0.14737, 0.08596, 13.22074, 0.72824, 0.43538, + 0.28195, 0.58194, 0.72846, + 0.14941, 0.08775, 13.73528, 0.75676, 0.46564, + 0.31496, 0.61134, 0.75699, + 0.15136, 0.08947, 14.21533, 0.78438, 0.49494, + 0.34675, 0.63980, 0.78463 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.15324, 0.09113, 14.65937, 0.81104, 0.52319, + 0.37729, 0.66726, 0.81130, + 0.15504, 0.09270, 15.06073, 0.83635, 0.55004, + 0.40621, 0.69334, 0.83660, + 0.15678, 0.09422, 15.44333, 0.86105, 0.57622, + 0.43431, 0.71878, 0.86130, + 0.15847, 0.09567, 15.78525, 0.88444, 0.60104, + 0.46089, 0.74289, 0.88469, + 0.16010, 0.09706, 16.11134, 0.90725, 0.62524, + 0.48672, 0.76639, 0.90751 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.13371, 0.07456, 3.07186, 0.32337, 0.01902, + 0.00001, 0.17120, 0.32337, + 0.13806, 0.07890, 4.21376, 0.35516, 0.05469, + 0.00003, 0.20495, 0.35520, + 0.14207, 0.08286, 5.23497, 0.38687, 0.08993, + 0.00001, 0.23843, 0.38693, + 0.14580, 0.08643, 6.12600, 0.41776, 0.12404, + 0.00003, 0.27096, 0.41783, + 0.14927, 0.08973, 6.92145, 0.44766, 0.15690, + 0.00743, 0.30235, 0.44775, + 0.15258, 0.09279, 7.63109, 0.47636, 0.18839, + 0.03887, 0.33246, 0.47647, + 0.15569, 0.09563, 8.26689, 0.50392, 0.21855, + 0.07437, 0.36133, 0.50404 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.15864, 0.09831, 8.83561, 0.53036, 0.24745, + 0.10729, 0.38899, 0.53048, + 0.16145, 0.10080, 9.34709, 0.55563, 0.27505, + 0.13852, 0.41544, 0.55576, + 0.16412, 0.10315, 9.80844, 0.57980, 0.30144, + 0.16808, 0.44073, 0.57994, + 0.16667, 0.10538, 10.22624, 0.60294, 0.32668, + 0.19616, 0.46492, 0.60308, + 0.16909, 0.10747, 10.60383, 0.62501, 0.35076, + 0.22278, 0.48800, 0.62518, + 0.17140, 0.10944, 10.93835, 0.64585, 0.37350, + 0.24780, 0.50980, 0.64601, + 0.17364, 0.11131, 11.24630, 0.66588, 0.39536, + 0.27170, 0.53073, 0.66603 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.17577, 0.11309, 11.52735, 0.68504, 0.41628, + 0.29450, 0.55078, 0.68520, + 0.17781, 0.11478, 11.77610, 0.70310, 0.43603, + 0.31595, 0.56967, 0.70327, + 0.17980, 0.11641, 12.01053, 0.72060, 0.45516, + 0.33667, 0.58800, 0.72078, + 0.18168, 0.11795, 12.21411, 0.73700, 0.47314, + 0.35608, 0.60518, 0.73719, + 0.18352, 0.11943, 12.40637, 0.75291, 0.49056, + 0.37485, 0.62186, 0.75310 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.14743, 0.08941, 2.99614, 0.30777, 0.01596, + 0.00001, 0.16188, 0.30779, + 0.15235, 0.09428, 3.97682, 0.33534, 0.04777, + 0.00002, 0.19159, 0.33541, + 0.15689, 0.09867, 4.83251, 0.36253, 0.07876, + 0.00001, 0.22070, 0.36262, + 0.16110, 0.10260, 5.56287, 0.38870, 0.10841, + 0.00003, 0.24862, 0.38881, + 0.16501, 0.10620, 6.20227, 0.41377, 0.13666, + 0.00640, 0.27529, 0.41389, + 0.16870, 0.10949, 6.76239, 0.43757, 0.16346, + 0.03328, 0.30059, 0.43770, + 0.17219, 0.11254, 7.25574, 0.46018, 0.18887, + 0.06340, 0.32461, 0.46034 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.17546, 0.11539, 7.68960, 0.48168, 0.21301, + 0.09107, 0.34743, 0.48182, + 0.17857, 0.11803, 8.07348, 0.50206, 0.23588, + 0.11709, 0.36907, 0.50221, + 0.18153, 0.12050, 8.41432, 0.52140, 0.25758, + 0.14155, 0.38958, 0.52155, + 0.18434, 0.12282, 8.71826, 0.53976, 0.27817, + 0.16461, 0.40907, 0.53992, + 0.18699, 0.12500, 8.98860, 0.55715, 0.29770, + 0.18633, 0.42753, 0.55732, + 0.18953, 0.12704, 9.22349, 0.57343, 0.31602, + 0.20660, 0.44483, 0.57360, + 0.19196, 0.12897, 9.43674, 0.58896, 0.33350, + 0.22585, 0.46134, 0.58914 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.19429, 0.13080, 9.62837, 0.60375, 0.35014, + 0.24411, 0.47705, 0.60392, + 0.19651, 0.13251, 9.79422, 0.61755, 0.36574, + 0.26118, 0.49175, 0.61774, + 0.19866, 0.13416, 9.94882, 0.63087, 0.38079, + 0.27759, 0.50593, 0.63107, + 0.20070, 0.13572, 10.07921, 0.64326, 0.39483, + 0.29288, 0.51914, 0.64345, + 0.20267, 0.13721, 10.20098, 0.65522, 0.40839, + 0.30760, 0.53190, 0.65539 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.15902, 0.10267, 2.93193, 0.29486, 0.01357, + 0.00003, 0.15442, 0.29492, + 0.16452, 0.10793, 3.79241, 0.31936, 0.04262, + 0.00003, 0.18121, 0.31944, + 0.16959, 0.11262, 4.52823, 0.34328, 0.07064, + 0.00004, 0.20717, 0.34341, + 0.17423, 0.11680, 5.14390, 0.36609, 0.09714, + 0.00004, 0.23181, 0.36619, + 0.17855, 0.12057, 5.67441, 0.38770, 0.12217, + 0.00567, 0.25514, 0.38782, + 0.18261, 0.12403, 6.13175, 0.40804, 0.14568, + 0.02933, 0.27707, 0.40819, + 0.18641, 0.12721, 6.52844, 0.42722, 0.16784, + 0.05567, 0.29774, 0.42738 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.18998, 0.13013, 6.87192, 0.44531, 0.18870, + 0.07967, 0.31722, 0.44548, + 0.19338, 0.13283, 7.17072, 0.46232, 0.20833, + 0.10209, 0.33554, 0.46250, + 0.19656, 0.13534, 7.43224, 0.47832, 0.22681, + 0.12301, 0.35279, 0.47850, + 0.19957, 0.13770, 7.66248, 0.49342, 0.24426, + 0.14262, 0.36905, 0.49358, + 0.20241, 0.13991, 7.86430, 0.50761, 0.26068, + 0.16099, 0.38436, 0.50776, + 0.20514, 0.14194, 8.03505, 0.52082, 0.27602, + 0.17804, 0.39862, 0.52098, + 0.20775, 0.14387, 8.18813, 0.53334, 0.29057, + 0.19417, 0.41216, 0.53351 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.21022, 0.14569, 8.32394, 0.54518, 0.30435, + 0.20939, 0.42497, 0.54533, + 0.21258, 0.14740, 8.43829, 0.55617, 0.31720, + 0.22355, 0.43688, 0.55632, + 0.21486, 0.14902, 8.54348, 0.56672, 0.32954, + 0.23710, 0.44832, 0.56688, + 0.21701, 0.15053, 8.62821, 0.57642, 0.34098, + 0.24965, 0.45890, 0.57659, + 0.21911, 0.15199, 8.70650, 0.58575, 0.35199, + 0.26169, 0.46907, 0.58593 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.20616, 0.15390, 2.68535, 0.24856, 0.00583, + 0.00002, 0.12758, 0.24859, + 0.21388, 0.15999, 3.20192, 0.26461, 0.02713, + 0.00003, 0.14623, 0.26462, + 0.22084, 0.16520, 3.61007, 0.27963, 0.04684, + 0.00001, 0.16359, 0.27966, + 0.22713, 0.16963, 3.92668, 0.29331, 0.06479, + 0.00002, 0.17940, 0.29338, + 0.23284, 0.17355, 4.17998, 0.30586, 0.08119, + 0.00369, 0.19386, 0.30593, + 0.23805, 0.17696, 4.38400, 0.31721, 0.09613, + 0.01878, 0.20700, 0.31731, + 0.24286, 0.18001, 4.54719, 0.32755, 0.10979, + 0.03523, 0.21899, 0.32763 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.24730, 0.18275, 4.67801, 0.33697, 0.12230, + 0.04982, 0.22992, 0.33703, + 0.25144, 0.18517, 4.78318, 0.34553, 0.13377, + 0.06313, 0.23994, 0.34559, + 0.25529, 0.18737, 4.86669, 0.35333, 0.14432, + 0.07527, 0.24910, 0.35340, + 0.25888, 0.18939, 4.93266, 0.36046, 0.15405, + 0.08641, 0.25752, 0.36053, + 0.26227, 0.19121, 4.98391, 0.36697, 0.16302, + 0.09666, 0.26525, 0.36705, + 0.26538, 0.19288, 5.02071, 0.37283, 0.17122, + 0.10599, 0.27228, 0.37289, + 0.26834, 0.19441, 5.04895, 0.37824, 0.17884, + 0.11467, 0.27880, 0.37830 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.27113, 0.19581, 5.06879, 0.38319, 0.18592, + 0.12271, 0.28481, 0.38327, + 0.27374, 0.19707, 5.07871, 0.38762, 0.19237, + 0.13004, 0.29023, 0.38770, + 0.27622, 0.19825, 5.08545, 0.39177, 0.19846, + 0.13697, 0.29536, 0.39187, + 0.27852, 0.19933, 5.08372, 0.39546, 0.20400, + 0.14326, 0.29995, 0.39551, + 0.28073, 0.20035, 5.08013, 0.39891, 0.20925, + 0.14923, 0.30430, 0.39896 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.27907, 0.21842, 2.32789, 0.19544, 0.00001, + 0.00013, 0.09712, 0.19532, + 0.28940, 0.22357, 2.55412, 0.20447, 0.01320, + 0.00012, 0.10902, 0.20439, + 0.29821, 0.22765, 2.70850, 0.21237, 0.02621, + 0.00009, 0.11943, 0.21218, + 0.30588, 0.23078, 2.80796, 0.21900, 0.03742, + 0.00010, 0.12836, 0.21887, + 0.31262, 0.23324, 2.87312, 0.22462, 0.04726, + 0.00201, 0.13609, 0.22454, + 0.31848, 0.23523, 2.91302, 0.22939, 0.05584, + 0.01059, 0.14274, 0.22922, + 0.32369, 0.23678, 2.93383, 0.23334, 0.06336, + 0.01972, 0.14848, 0.23325 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.32831, 0.23802, 2.94055, 0.23675, 0.07002, + 0.02757, 0.15349, 0.23661, + 0.33252, 0.23899, 2.93646, 0.23954, 0.07593, + 0.03451, 0.15785, 0.23946, + 0.33629, 0.23977, 2.92475, 0.24189, 0.08118, + 0.04067, 0.16164, 0.24183, + 0.33963, 0.24040, 2.90766, 0.24390, 0.08588, + 0.04619, 0.16498, 0.24379, + 0.34274, 0.24084, 2.88592, 0.24551, 0.09008, + 0.05113, 0.16789, 0.24545, + 0.34551, 0.24111, 2.85969, 0.24680, 0.09378, + 0.05553, 0.17037, 0.24670, + 0.34804, 0.24131, 2.83185, 0.24786, 0.09713, + 0.05950, 0.17257, 0.24772 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.35033, 0.24146, 2.80239, 0.24870, 0.10014, + 0.06307, 0.17447, 0.24854, + 0.35241, 0.24146, 2.77069, 0.24927, 0.10280, + 0.06630, 0.17607, 0.24912, + 0.35437, 0.24142, 2.73959, 0.24975, 0.10525, + 0.06931, 0.17752, 0.24961, + 0.35610, 0.24129, 2.70671, 0.24996, 0.10736, + 0.07194, 0.17871, 0.24989, + 0.35773, 0.24114, 2.67463, 0.25012, 0.10932, + 0.07440, 0.17978, 0.25007 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.33941, 0.25693, 2.04288, 0.16248, 0.00001, + 0.00001, 0.07895, 0.16235, + 0.35065, 0.25980, 2.13345, 0.16795, 0.00673, + 0.00003, 0.08752, 0.16785, + 0.35979, 0.26163, 2.17803, 0.17231, 0.01638, + 0.00000, 0.09454, 0.17237, + 0.36730, 0.26270, 2.19021, 0.17562, 0.02458, + 0.00004, 0.10025, 0.17555, + 0.37356, 0.26316, 2.18454, 0.17818, 0.03141, + 0.00144, 0.10495, 0.17812, + 0.37868, 0.26328, 2.16673, 0.18004, 0.03715, + 0.00708, 0.10873, 0.17998, + 0.38307, 0.26304, 2.14048, 0.18135, 0.04212, + 0.01303, 0.11187, 0.18133 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.38678, 0.26257, 2.10900, 0.18227, 0.04639, + 0.01800, 0.11441, 0.18214, + 0.38992, 0.26192, 2.07380, 0.18283, 0.05004, + 0.02231, 0.11652, 0.18263, + 0.39267, 0.26110, 2.03669, 0.18306, 0.05321, + 0.02610, 0.11824, 0.18296, + 0.39506, 0.26016, 1.99883, 0.18306, 0.05598, + 0.02944, 0.11961, 0.18307, + 0.39704, 0.25921, 1.96039, 0.18292, 0.05838, + 0.03230, 0.12074, 0.18284, + 0.39870, 0.25819, 1.92139, 0.18256, 0.06042, + 0.03484, 0.12157, 0.18252, + 0.40011, 0.25711, 1.88338, 0.18210, 0.06221, + 0.03711, 0.12225, 0.18210 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.40133, 0.25599, 1.84621, 0.18154, 0.06380, + 0.03912, 0.12277, 0.18155, + 0.40227, 0.25483, 1.80925, 0.18085, 0.06515, + 0.04085, 0.12310, 0.18081, + 0.40310, 0.25370, 1.77396, 0.18012, 0.06639, + 0.04244, 0.12335, 0.18006, + 0.40366, 0.25256, 1.73879, 0.17930, 0.06740, + 0.04384, 0.12344, 0.17921, + 0.40417, 0.25143, 1.70527, 0.17848, 0.06833, + 0.04513, 0.12348, 0.17836 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.39163, 0.27995, 1.79822, 0.13843, 0.00001, + 0.00006, 0.06620, 0.13841, + 0.40222, 0.28028, 1.81193, 0.14154, 0.00308, + 0.00005, 0.07249, 0.14159, + 0.41043, 0.27972, 1.79822, 0.14370, 0.01081, + 0.00006, 0.07741, 0.14366, + 0.41655, 0.27861, 1.76751, 0.14500, 0.01695, + 0.00004, 0.08117, 0.14505, + 0.42142, 0.27708, 1.72906, 0.14576, 0.02206, + 0.00108, 0.08403, 0.14577, + 0.42513, 0.27527, 1.68630, 0.14594, 0.02620, + 0.00510, 0.08623, 0.14604, + 0.42795, 0.27330, 1.64136, 0.14578, 0.02971, + 0.00923, 0.08792, 0.14586 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.43008, 0.27123, 1.59578, 0.14537, 0.03267, + 0.01259, 0.08916, 0.14546, + 0.43168, 0.26909, 1.55051, 0.14479, 0.03511, + 0.01548, 0.09007, 0.14486, + 0.43286, 0.26690, 1.50624, 0.14401, 0.03717, + 0.01797, 0.09072, 0.14405, + 0.43368, 0.26473, 1.46346, 0.14310, 0.03892, + 0.02013, 0.09115, 0.14312, + 0.43414, 0.26254, 1.42223, 0.14213, 0.04040, + 0.02199, 0.09138, 0.14221, + 0.43434, 0.26036, 1.38219, 0.14104, 0.04167, + 0.02358, 0.09146, 0.14110, + 0.43433, 0.25823, 1.34416, 0.13991, 0.04275, + 0.02497, 0.09144, 0.13995 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.43411, 0.25616, 1.30786, 0.13874, 0.04368, + 0.02618, 0.09132, 0.13876, + 0.43365, 0.25410, 1.27284, 0.13757, 0.04441, + 0.02724, 0.09108, 0.13754, + 0.43313, 0.25210, 1.23987, 0.13642, 0.04504, + 0.02820, 0.09080, 0.13636, + 0.43254, 0.25002, 1.20796, 0.13513, 0.04557, + 0.02900, 0.09043, 0.13514, + 0.43190, 0.24802, 1.17785, 0.13387, 0.04601, + 0.02972, 0.09005, 0.13394 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.43722, 0.29297, 1.58334, 0.11907, 0.00001, + 0.00007, 0.05583, 0.11915, + 0.44591, 0.29078, 1.55044, 0.12060, 0.00071, + 0.00007, 0.06049, 0.12052, + 0.45213, 0.28783, 1.50408, 0.12116, 0.00690, + 0.00006, 0.06397, 0.12114, + 0.45621, 0.28456, 1.45096, 0.12117, 0.01181, + 0.00006, 0.06634, 0.12110, + 0.45900, 0.28113, 1.39691, 0.12064, 0.01568, + 0.00082, 0.06810, 0.12074, + 0.46053, 0.27774, 1.34365, 0.11996, 0.01877, + 0.00375, 0.06923, 0.11997, + 0.46133, 0.27424, 1.29186, 0.11894, 0.02137, + 0.00671, 0.06999, 0.11893 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.46147, 0.27080, 1.24220, 0.11781, 0.02343, + 0.00908, 0.07050, 0.11769, + 0.46118, 0.26741, 1.19502, 0.11651, 0.02514, + 0.01106, 0.07073, 0.11650, + 0.46052, 0.26408, 1.15044, 0.11517, 0.02655, + 0.01277, 0.07076, 0.11522, + 0.45953, 0.26083, 1.10852, 0.11383, 0.02773, + 0.01427, 0.07067, 0.11385, + 0.45834, 0.25763, 1.06908, 0.11243, 0.02875, + 0.01552, 0.07048, 0.11244, + 0.45690, 0.25454, 1.03167, 0.11101, 0.02953, + 0.01651, 0.07020, 0.11099, + 0.45535, 0.25154, 0.99670, 0.10961, 0.03017, + 0.01740, 0.06985, 0.10958 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.45371, 0.24863, 0.96384, 0.10821, 0.03069, + 0.01822, 0.06943, 0.10824, + 0.45194, 0.24576, 0.93268, 0.10678, 0.03112, + 0.01887, 0.06893, 0.10686, + 0.45015, 0.24302, 0.90360, 0.10540, 0.03150, + 0.01945, 0.06842, 0.10551, + 0.44804, 0.24042, 0.87593, 0.10409, 0.03174, + 0.01993, 0.06787, 0.10415, + 0.44600, 0.23791, 0.85001, 0.10281, 0.03195, + 0.02036, 0.06732, 0.10282 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.48368, 0.29879, 1.34867, 0.09928, 0.00001, + 0.00009, 0.04589, 0.09920, + 0.48910, 0.29321, 1.28265, 0.09921, 0.00001, + 0.00009, 0.04912, 0.09917, + 0.49181, 0.28762, 1.21518, 0.09859, 0.00414, + 0.00010, 0.05122, 0.09849, + 0.49257, 0.28205, 1.14948, 0.09744, 0.00788, + 0.00010, 0.05256, 0.09748, + 0.49206, 0.27679, 1.08813, 0.09622, 0.01079, + 0.00058, 0.05333, 0.09605, + 0.49076, 0.27143, 1.03129, 0.09462, 0.01304, + 0.00263, 0.05377, 0.09467, + 0.48869, 0.26638, 0.97867, 0.09305, 0.01480, + 0.00464, 0.05389, 0.09317 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.48622, 0.26150, 0.93011, 0.09145, 0.01623, + 0.00627, 0.05379, 0.09160, + 0.48334, 0.25687, 0.88531, 0.08986, 0.01738, + 0.00759, 0.05355, 0.08995, + 0.48025, 0.25245, 0.84407, 0.08828, 0.01830, + 0.00869, 0.05324, 0.08828, + 0.47708, 0.24819, 0.80612, 0.08667, 0.01904, + 0.00965, 0.05282, 0.08668, + 0.47382, 0.24408, 0.77108, 0.08501, 0.01963, + 0.01044, 0.05231, 0.08522, + 0.47031, 0.24018, 0.73850, 0.08351, 0.02011, + 0.01111, 0.05179, 0.08358, + 0.46680, 0.23648, 0.70846, 0.08205, 0.02050, + 0.01166, 0.05123, 0.08204 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.46329, 0.23291, 0.68065, 0.08059, 0.02078, + 0.01210, 0.05063, 0.08063, + 0.45976, 0.22943, 0.65463, 0.07918, 0.02098, + 0.01248, 0.05008, 0.07913, + 0.45630, 0.22611, 0.63058, 0.07785, 0.02113, + 0.01282, 0.04957, 0.07769, + 0.45273, 0.22289, 0.60800, 0.07655, 0.02123, + 0.01308, 0.04896, 0.07633, + 0.44927, 0.21981, 0.58700, 0.07528, 0.02131, + 0.01331, 0.04835, 0.07508 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.52013, 0.29609, 1.14602, 0.08237, 0.00001, + 0.00013, 0.03778, 0.08239, + 0.52111, 0.28781, 1.06317, 0.08124, 0.00001, + 0.00014, 0.03990, 0.08153, + 0.51957, 0.27995, 0.98714, 0.07979, 0.00238, + 0.00019, 0.04107, 0.08019, + 0.51641, 0.27266, 0.91811, 0.07830, 0.00524, + 0.00012, 0.04170, 0.07836, + 0.51252, 0.26563, 0.85648, 0.07656, 0.00746, + 0.00049, 0.04195, 0.07660, + 0.50796, 0.25901, 0.80148, 0.07471, 0.00917, + 0.00194, 0.04190, 0.07478, + 0.50285, 0.25288, 0.75199, 0.07302, 0.01041, + 0.00333, 0.04160, 0.07301 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.49760, 0.24701, 0.70743, 0.07120, 0.01143, + 0.00445, 0.04119, 0.07127, + 0.49228, 0.24145, 0.66719, 0.06942, 0.01222, + 0.00535, 0.04078, 0.06949, + 0.48688, 0.23626, 0.63080, 0.06775, 0.01283, + 0.00607, 0.04027, 0.06781, + 0.48143, 0.23136, 0.59783, 0.06620, 0.01329, + 0.00666, 0.03971, 0.06621, + 0.47606, 0.22670, 0.56777, 0.06472, 0.01366, + 0.00719, 0.03919, 0.06451, + 0.47072, 0.22219, 0.54020, 0.06321, 0.01392, + 0.00758, 0.03857, 0.06306, + 0.46556, 0.21788, 0.51506, 0.06175, 0.01413, + 0.00793, 0.03796, 0.06168 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.46058, 0.21377, 0.49201, 0.06035, 0.01428, + 0.00828, 0.03734, 0.06035, + 0.45547, 0.20993, 0.47070, 0.05901, 0.01437, + 0.00850, 0.03671, 0.05909, + 0.45051, 0.20632, 0.45114, 0.05773, 0.01443, + 0.00868, 0.03612, 0.05788, + 0.44549, 0.20288, 0.43296, 0.05663, 0.01450, + 0.00883, 0.03555, 0.05652, + 0.44072, 0.19957, 0.41617, 0.05555, 0.01452, + 0.00896, 0.03500, 0.05530 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.54639, 0.28815, 0.97029, 0.06787, 0.00001, + 0.00001, 0.03069, 0.06788, + 0.54230, 0.27737, 0.88081, 0.06616, 0.00001, + 0.00005, 0.03213, 0.06634, + 0.53613, 0.26783, 0.80328, 0.06457, 0.00133, + 0.00007, 0.03277, 0.06431, + 0.52921, 0.25879, 0.73595, 0.06242, 0.00366, + 0.00005, 0.03300, 0.06251, + 0.52184, 0.25048, 0.67774, 0.06047, 0.00532, + 0.00026, 0.03286, 0.06061, + 0.51404, 0.24286, 0.62694, 0.05861, 0.00654, + 0.00128, 0.03256, 0.05874, + 0.50631, 0.23576, 0.58226, 0.05667, 0.00752, + 0.00237, 0.03228, 0.05683 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.49843, 0.22922, 0.54281, 0.05494, 0.00820, + 0.00318, 0.03179, 0.05510, + 0.49056, 0.22317, 0.50770, 0.05337, 0.00875, + 0.00385, 0.03120, 0.05341, + 0.48299, 0.21744, 0.47636, 0.05182, 0.00917, + 0.00435, 0.03059, 0.05183, + 0.47571, 0.21201, 0.44831, 0.05030, 0.00947, + 0.00472, 0.02999, 0.05038, + 0.46862, 0.20689, 0.42303, 0.04882, 0.00977, + 0.00507, 0.02944, 0.04893, + 0.46177, 0.20194, 0.40022, 0.04742, 0.00988, + 0.00537, 0.02882, 0.04770, + 0.45504, 0.19740, 0.37952, 0.04618, 0.00998, + 0.00561, 0.02823, 0.04642 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.44840, 0.19326, 0.36061, 0.04505, 0.01011, + 0.00582, 0.02766, 0.04510, + 0.44201, 0.18921, 0.34345, 0.04392, 0.01021, + 0.00594, 0.02708, 0.04386, + 0.43591, 0.18536, 0.32779, 0.04284, 0.01028, + 0.00603, 0.02651, 0.04272, + 0.43004, 0.18157, 0.31326, 0.04168, 0.01019, + 0.00607, 0.02599, 0.04182, + 0.42437, 0.17803, 0.29989, 0.04062, 0.01013, + 0.00612, 0.02550, 0.04090 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.56337, 0.27601, 0.81835, 0.05530, 0.00001, + 0.00002, 0.02480, 0.05523, + 0.55386, 0.26343, 0.72857, 0.05339, 0.00001, + 0.00000, 0.02562, 0.05339, + 0.54332, 0.25231, 0.65389, 0.05123, 0.00059, + 0.00009, 0.02586, 0.05156, + 0.53225, 0.24228, 0.59091, 0.04946, 0.00230, + 0.00013, 0.02595, 0.04932, + 0.52134, 0.23329, 0.53783, 0.04746, 0.00364, + 0.00032, 0.02556, 0.04754, + 0.51063, 0.22502, 0.49241, 0.04569, 0.00462, + 0.00103, 0.02517, 0.04562, + 0.50016, 0.21740, 0.45331, 0.04408, 0.00525, + 0.00177, 0.02461, 0.04396 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.49009, 0.21026, 0.41904, 0.04235, 0.00578, + 0.00224, 0.02411, 0.04244, + 0.48041, 0.20367, 0.38898, 0.04083, 0.00622, + 0.00264, 0.02356, 0.04087, + 0.47100, 0.19767, 0.36246, 0.03944, 0.00656, + 0.00299, 0.02298, 0.03938, + 0.46196, 0.19207, 0.33901, 0.03807, 0.00681, + 0.00329, 0.02241, 0.03808, + 0.45343, 0.18670, 0.31826, 0.03673, 0.00692, + 0.00356, 0.02183, 0.03697, + 0.44502, 0.18184, 0.29932, 0.03564, 0.00697, + 0.00372, 0.02132, 0.03572, + 0.43700, 0.17725, 0.28233, 0.03461, 0.00705, + 0.00383, 0.02081, 0.03456 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.42933, 0.17291, 0.26705, 0.03359, 0.00714, + 0.00390, 0.02030, 0.03347, + 0.42193, 0.16881, 0.25327, 0.03256, 0.00713, + 0.00400, 0.01979, 0.03257, + 0.41489, 0.16495, 0.24075, 0.03160, 0.00708, + 0.00410, 0.01933, 0.03174, + 0.40802, 0.16127, 0.22923, 0.03079, 0.00704, + 0.00416, 0.01887, 0.03084, + 0.40149, 0.15779, 0.21872, 0.02998, 0.00701, + 0.00422, 0.01844, 0.03000 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.57156, 0.26115, 0.68716, 0.04457, 0.00001, + 0.00008, 0.01959, 0.04441, + 0.55656, 0.24731, 0.60099, 0.04265, 0.00001, + 0.00007, 0.02026, 0.04234, + 0.54172, 0.23498, 0.53134, 0.04057, 0.00018, + 0.00006, 0.02030, 0.04042, + 0.52709, 0.22421, 0.47441, 0.03863, 0.00158, + 0.00010, 0.02001, 0.03861, + 0.51318, 0.21444, 0.42700, 0.03692, 0.00250, + 0.00024, 0.01969, 0.03688, + 0.49971, 0.20583, 0.38731, 0.03525, 0.00323, + 0.00076, 0.01919, 0.03527, + 0.48676, 0.19816, 0.35331, 0.03377, 0.00384, + 0.00126, 0.01861, 0.03363 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.47463, 0.19087, 0.32420, 0.03235, 0.00419, + 0.00162, 0.01815, 0.03223, + 0.46317, 0.18415, 0.29893, 0.03102, 0.00441, + 0.00191, 0.01768, 0.03092, + 0.45233, 0.17795, 0.27680, 0.02976, 0.00458, + 0.00217, 0.01720, 0.02975, + 0.44204, 0.17222, 0.25732, 0.02857, 0.00474, + 0.00238, 0.01670, 0.02865, + 0.43219, 0.16699, 0.24006, 0.02760, 0.00490, + 0.00248, 0.01623, 0.02746, + 0.42284, 0.16196, 0.22481, 0.02656, 0.00493, + 0.00257, 0.01574, 0.02660, + 0.41392, 0.15734, 0.21120, 0.02561, 0.00494, + 0.00267, 0.01528, 0.02575 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.40538, 0.15310, 0.19898, 0.02477, 0.00498, + 0.00278, 0.01485, 0.02485, + 0.39712, 0.14912, 0.18792, 0.02404, 0.00498, + 0.00281, 0.01449, 0.02393, + 0.38931, 0.14540, 0.17792, 0.02336, 0.00497, + 0.00283, 0.01413, 0.02308, + 0.38185, 0.14180, 0.16877, 0.02266, 0.00496, + 0.00285, 0.01369, 0.02242, + 0.37477, 0.13840, 0.16047, 0.02198, 0.00492, + 0.00286, 0.01331, 0.02179 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.57159, 0.24442, 0.57404, 0.03537, 0.00001, + 0.00006, 0.01545, 0.03516, + 0.55174, 0.22937, 0.49400, 0.03333, 0.00001, + 0.00021, 0.01572, 0.03339, + 0.53272, 0.21644, 0.43060, 0.03154, 0.00001, + 0.00010, 0.01576, 0.03138, + 0.51464, 0.20533, 0.37984, 0.02987, 0.00108, + 0.00012, 0.01534, 0.02969, + 0.49811, 0.19514, 0.33841, 0.02819, 0.00180, + 0.00022, 0.01500, 0.02823, + 0.48247, 0.18629, 0.30410, 0.02665, 0.00246, + 0.00055, 0.01462, 0.02676, + 0.46780, 0.17832, 0.27527, 0.02546, 0.00279, + 0.00094, 0.01415, 0.02545 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.45369, 0.17132, 0.25076, 0.02440, 0.00302, + 0.00121, 0.01369, 0.02417, + 0.44083, 0.16463, 0.22973, 0.02319, 0.00325, + 0.00137, 0.01321, 0.02318, + 0.42871, 0.15854, 0.21139, 0.02219, 0.00340, + 0.00151, 0.01277, 0.02213, + 0.41713, 0.15309, 0.19537, 0.02143, 0.00348, + 0.00165, 0.01238, 0.02107, + 0.40623, 0.14800, 0.18153, 0.02067, 0.00352, + 0.00176, 0.01193, 0.02019, + 0.39623, 0.14313, 0.16924, 0.01970, 0.00358, + 0.00184, 0.01157, 0.01942, + 0.38671, 0.13866, 0.15830, 0.01887, 0.00359, + 0.00189, 0.01122, 0.01871 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.37754, 0.13457, 0.14850, 0.01821, 0.00355, + 0.00194, 0.01087, 0.01807, + 0.36895, 0.13062, 0.13980, 0.01754, 0.00350, + 0.00198, 0.01049, 0.01747, + 0.36086, 0.12694, 0.13197, 0.01691, 0.00346, + 0.00200, 0.01014, 0.01690, + 0.35308, 0.12358, 0.12477, 0.01633, 0.00351, + 0.00203, 0.00986, 0.01621, + 0.34573, 0.12039, 0.11828, 0.01577, 0.00352, + 0.00203, 0.00958, 0.01562 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.56500, 0.22609, 0.47688, 0.02730, 0.00001, + 0.00013, 0.01201, 0.02751, + 0.53994, 0.21087, 0.40379, 0.02581, 0.00001, + 0.00008, 0.01212, 0.02559, + 0.51732, 0.19759, 0.34743, 0.02415, 0.00001, + 0.00008, 0.01195, 0.02400, + 0.49653, 0.18603, 0.30312, 0.02263, 0.00078, + 0.00012, 0.01170, 0.02259, + 0.47728, 0.17619, 0.26746, 0.02138, 0.00129, + 0.00016, 0.01129, 0.02130, + 0.45975, 0.16742, 0.23836, 0.02017, 0.00164, + 0.00039, 0.01089, 0.02019, + 0.44367, 0.15942, 0.21392, 0.01899, 0.00195, + 0.00063, 0.01051, 0.01913 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.42863, 0.15237, 0.19344, 0.01812, 0.00219, + 0.00091, 0.01007, 0.01805, + 0.41457, 0.14595, 0.17634, 0.01731, 0.00225, + 0.00103, 0.00965, 0.01718, + 0.40153, 0.14011, 0.16150, 0.01644, 0.00234, + 0.00113, 0.00931, 0.01641, + 0.38949, 0.13479, 0.14849, 0.01556, 0.00246, + 0.00124, 0.00899, 0.01564, + 0.37832, 0.12988, 0.13729, 0.01473, 0.00255, + 0.00129, 0.00860, 0.01498, + 0.36764, 0.12530, 0.12747, 0.01418, 0.00250, + 0.00129, 0.00835, 0.01422, + 0.35758, 0.12105, 0.11877, 0.01365, 0.00245, + 0.00130, 0.00810, 0.01360 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34807, 0.11711, 0.11101, 0.01311, 0.00244, + 0.00133, 0.00780, 0.01310, + 0.33919, 0.11341, 0.10414, 0.01252, 0.00245, + 0.00135, 0.00755, 0.01265, + 0.33086, 0.10996, 0.09798, 0.01197, 0.00246, + 0.00137, 0.00733, 0.01223, + 0.32293, 0.10667, 0.09236, 0.01152, 0.00245, + 0.00139, 0.00710, 0.01185, + 0.31539, 0.10361, 0.08729, 0.01111, 0.00241, + 0.00140, 0.00688, 0.01147 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.55153, 0.20744, 0.39385, 0.02076, 0.00001, + 0.00006, 0.00901, 0.02116, + 0.52235, 0.19185, 0.32842, 0.01951, 0.00001, + 0.00012, 0.00915, 0.01937, + 0.49622, 0.17879, 0.27907, 0.01840, 0.00001, + 0.00012, 0.00907, 0.01802, + 0.47325, 0.16719, 0.24084, 0.01686, 0.00047, + 0.00007, 0.00883, 0.01698, + 0.45217, 0.15753, 0.21043, 0.01593, 0.00090, + 0.00014, 0.00849, 0.01578, + 0.43341, 0.14884, 0.18599, 0.01489, 0.00126, + 0.00038, 0.00816, 0.01480, + 0.41609, 0.14118, 0.16600, 0.01395, 0.00148, + 0.00058, 0.00775, 0.01406 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40003, 0.13435, 0.14919, 0.01325, 0.00167, + 0.00066, 0.00740, 0.01326, + 0.38555, 0.12809, 0.13494, 0.01245, 0.00175, + 0.00073, 0.00712, 0.01255, + 0.37200, 0.12252, 0.12287, 0.01180, 0.00175, + 0.00081, 0.00682, 0.01188, + 0.35926, 0.11754, 0.11257, 0.01134, 0.00173, + 0.00090, 0.00653, 0.01125, + 0.34763, 0.11289, 0.10363, 0.01082, 0.00177, + 0.00098, 0.00631, 0.01068, + 0.33692, 0.10859, 0.09572, 0.01010, 0.00185, + 0.00096, 0.00610, 0.01021, + 0.32691, 0.10458, 0.08882, 0.00949, 0.00190, + 0.00095, 0.00587, 0.00979 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31746, 0.10084, 0.08278, 0.00901, 0.00187, + 0.00098, 0.00565, 0.00943, + 0.30828, 0.09741, 0.07738, 0.00871, 0.00183, + 0.00100, 0.00541, 0.00914, + 0.29970, 0.09423, 0.07256, 0.00844, 0.00179, + 0.00101, 0.00521, 0.00886, + 0.29175, 0.09126, 0.06829, 0.00812, 0.00175, + 0.00102, 0.00503, 0.00845, + 0.28429, 0.08848, 0.06442, 0.00784, 0.00173, + 0.00102, 0.00488, 0.00807 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53226, 0.18952, 0.32346, 0.01622, 0.00001, + 0.00010, 0.00646, 0.01587, + 0.49971, 0.17383, 0.26569, 0.01500, 0.00001, + 0.00009, 0.00675, 0.01435, + 0.47142, 0.16058, 0.22306, 0.01370, 0.00001, + 0.00017, 0.00651, 0.01361, + 0.44631, 0.14944, 0.19049, 0.01275, 0.00020, + 0.00014, 0.00630, 0.01256, + 0.42423, 0.13978, 0.16520, 0.01179, 0.00048, + 0.00002, 0.00603, 0.01183, + 0.40414, 0.13162, 0.14495, 0.01113, 0.00074, + 0.00013, 0.00580, 0.01092, + 0.38627, 0.12439, 0.12843, 0.01027, 0.00094, + 0.00028, 0.00562, 0.01016 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.37007, 0.11782, 0.11473, 0.00944, 0.00104, + 0.00037, 0.00530, 0.00971, + 0.35484, 0.11204, 0.10325, 0.00914, 0.00115, + 0.00050, 0.00506, 0.00908, + 0.34097, 0.10675, 0.09356, 0.00872, 0.00121, + 0.00056, 0.00490, 0.00860, + 0.32848, 0.10186, 0.08530, 0.00807, 0.00120, + 0.00056, 0.00472, 0.00824, + 0.31708, 0.09753, 0.07814, 0.00755, 0.00123, + 0.00057, 0.00451, 0.00770, + 0.30596, 0.09349, 0.07194, 0.00724, 0.00125, + 0.00063, 0.00431, 0.00741, + 0.29574, 0.08984, 0.06656, 0.00696, 0.00124, + 0.00067, 0.00412, 0.00707 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28636, 0.08650, 0.06186, 0.00668, 0.00124, + 0.00070, 0.00393, 0.00664, + 0.27756, 0.08336, 0.05765, 0.00634, 0.00122, + 0.00067, 0.00378, 0.00633, + 0.26933, 0.08044, 0.05389, 0.00603, 0.00118, + 0.00065, 0.00362, 0.00608, + 0.26145, 0.07777, 0.05056, 0.00578, 0.00116, + 0.00063, 0.00347, 0.00588, + 0.25409, 0.07524, 0.04758, 0.00555, 0.00115, + 0.00064, 0.00335, 0.00569 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.50834, 0.17046, 0.26302, 0.01146, 0.00001, + 0.00008, 0.00510, 0.01150, + 0.47323, 0.15487, 0.21310, 0.01044, 0.00001, + 0.00013, 0.00489, 0.01093, + 0.44283, 0.14226, 0.17698, 0.00983, 0.00001, + 0.00008, 0.00483, 0.00986, + 0.41641, 0.13177, 0.14977, 0.00901, 0.00030, + 0.00008, 0.00473, 0.00897, + 0.39340, 0.12267, 0.12868, 0.00826, 0.00053, + 0.00014, 0.00447, 0.00840, + 0.37272, 0.11497, 0.11215, 0.00776, 0.00068, + 0.00022, 0.00422, 0.00794, + 0.35461, 0.10810, 0.09863, 0.00711, 0.00084, + 0.00029, 0.00410, 0.00737 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33831, 0.10201, 0.08756, 0.00643, 0.00083, + 0.00037, 0.00386, 0.00707, + 0.32337, 0.09662, 0.07838, 0.00609, 0.00085, + 0.00042, 0.00370, 0.00661, + 0.30958, 0.09183, 0.07072, 0.00587, 0.00088, + 0.00043, 0.00352, 0.00608, + 0.29689, 0.08748, 0.06423, 0.00558, 0.00089, + 0.00042, 0.00330, 0.00568, + 0.28533, 0.08338, 0.05858, 0.00520, 0.00090, + 0.00042, 0.00316, 0.00549, + 0.27475, 0.07974, 0.05375, 0.00501, 0.00093, + 0.00045, 0.00301, 0.00507, + 0.26486, 0.07644, 0.04955, 0.00484, 0.00092, + 0.00047, 0.00288, 0.00474 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25550, 0.07343, 0.04587, 0.00469, 0.00088, + 0.00047, 0.00278, 0.00455, + 0.24688, 0.07051, 0.04264, 0.00450, 0.00087, + 0.00046, 0.00264, 0.00441, + 0.23888, 0.06781, 0.03977, 0.00431, 0.00086, + 0.00045, 0.00252, 0.00428, + 0.23132, 0.06545, 0.03721, 0.00414, 0.00085, + 0.00044, 0.00242, 0.00402, + 0.22431, 0.06321, 0.03491, 0.00396, 0.00082, + 0.00044, 0.00232, 0.00380 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.48053, 0.15315, 0.21254, 0.00875, 0.00001, + 0.00004, 0.00337, 0.00839, + 0.44307, 0.13812, 0.17031, 0.00809, 0.00001, + 0.00000, 0.00343, 0.00755, + 0.41193, 0.12582, 0.13974, 0.00704, 0.00001, + 0.00001, 0.00345, 0.00707, + 0.38541, 0.11573, 0.11714, 0.00638, 0.00014, + 0.00000, 0.00332, 0.00636, + 0.36195, 0.10710, 0.09976, 0.00587, 0.00030, + 0.00004, 0.00319, 0.00602, + 0.34119, 0.09979, 0.08621, 0.00541, 0.00047, + 0.00016, 0.00300, 0.00571, + 0.32272, 0.09350, 0.07547, 0.00493, 0.00044, + 0.00017, 0.00277, 0.00544 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.30619, 0.08799, 0.06664, 0.00485, 0.00051, + 0.00024, 0.00268, 0.00486, + 0.29139, 0.08301, 0.05933, 0.00458, 0.00058, + 0.00023, 0.00252, 0.00440, + 0.27798, 0.07854, 0.05323, 0.00427, 0.00061, + 0.00023, 0.00236, 0.00415, + 0.26577, 0.07455, 0.04809, 0.00404, 0.00061, + 0.00027, 0.00220, 0.00396, + 0.25467, 0.07096, 0.04373, 0.00380, 0.00059, + 0.00029, 0.00210, 0.00375, + 0.24450, 0.06762, 0.04002, 0.00351, 0.00058, + 0.00028, 0.00202, 0.00357, + 0.23507, 0.06460, 0.03680, 0.00327, 0.00057, + 0.00028, 0.00193, 0.00343 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22623, 0.06187, 0.03399, 0.00309, 0.00054, + 0.00027, 0.00181, 0.00331, + 0.21795, 0.05928, 0.03150, 0.00305, 0.00057, + 0.00027, 0.00174, 0.00306, + 0.21030, 0.05690, 0.02929, 0.00300, 0.00059, + 0.00028, 0.00168, 0.00282, + 0.20327, 0.05474, 0.02736, 0.00285, 0.00058, + 0.00031, 0.00162, 0.00272, + 0.19670, 0.05273, 0.02563, 0.00270, 0.00056, + 0.00034, 0.00157, 0.00262 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.44954, 0.13564, 0.17036, 0.00592, 0.00001, + 0.00009, 0.00236, 0.00609, + 0.41177, 0.12116, 0.13452, 0.00513, 0.00001, + 0.00009, 0.00250, 0.00551, + 0.37956, 0.10980, 0.10933, 0.00478, 0.00001, + 0.00004, 0.00242, 0.00493, + 0.35175, 0.10045, 0.09073, 0.00437, 0.00006, + 0.00003, 0.00231, 0.00465, + 0.32833, 0.09263, 0.07678, 0.00414, 0.00026, + 0.00003, 0.00221, 0.00417, + 0.30806, 0.08593, 0.06591, 0.00365, 0.00025, + 0.00011, 0.00203, 0.00408, + 0.29021, 0.08001, 0.05726, 0.00355, 0.00034, + 0.00014, 0.00192, 0.00371 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.27418, 0.07494, 0.05026, 0.00329, 0.00037, + 0.00012, 0.00182, 0.00343, + 0.25999, 0.07043, 0.04456, 0.00306, 0.00039, + 0.00018, 0.00172, 0.00317, + 0.24719, 0.06640, 0.03982, 0.00289, 0.00041, + 0.00020, 0.00165, 0.00297, + 0.23549, 0.06278, 0.03583, 0.00271, 0.00041, + 0.00020, 0.00159, 0.00278, + 0.22479, 0.05957, 0.03248, 0.00260, 0.00040, + 0.00024, 0.00145, 0.00251, + 0.21500, 0.05663, 0.02960, 0.00251, 0.00041, + 0.00023, 0.00141, 0.00240, + 0.20605, 0.05395, 0.02712, 0.00238, 0.00040, + 0.00021, 0.00134, 0.00229 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19779, 0.05149, 0.02495, 0.00221, 0.00036, + 0.00017, 0.00123, 0.00214, + 0.19018, 0.04926, 0.02307, 0.00211, 0.00036, + 0.00019, 0.00118, 0.00202, + 0.18316, 0.04721, 0.02142, 0.00202, 0.00035, + 0.00021, 0.00113, 0.00190, + 0.17655, 0.04529, 0.01996, 0.00194, 0.00037, + 0.00021, 0.00109, 0.00183, + 0.17042, 0.04351, 0.01867, 0.00186, 0.00038, + 0.00020, 0.00105, 0.00175 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.41699, 0.11897, 0.13532, 0.00396, 0.00001, + 0.00005, 0.00165, 0.00405, + 0.37771, 0.10601, 0.10567, 0.00381, 0.00001, + 0.00001, 0.00173, 0.00366, + 0.34544, 0.09535, 0.08486, 0.00354, 0.00001, + 0.00000, 0.00154, 0.00346, + 0.31876, 0.08659, 0.06991, 0.00304, 0.00001, + 0.00002, 0.00150, 0.00344, + 0.29619, 0.07936, 0.05867, 0.00278, 0.00007, + 0.00002, 0.00143, 0.00288, + 0.27639, 0.07329, 0.05003, 0.00257, 0.00011, + 0.00001, 0.00130, 0.00269, + 0.25916, 0.06802, 0.04319, 0.00246, 0.00014, + 0.00003, 0.00121, 0.00248 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.24360, 0.06352, 0.03773, 0.00241, 0.00019, + 0.00007, 0.00118, 0.00228, + 0.23007, 0.05946, 0.03328, 0.00216, 0.00020, + 0.00009, 0.00110, 0.00222, + 0.21791, 0.05587, 0.02960, 0.00203, 0.00019, + 0.00008, 0.00104, 0.00199, + 0.20686, 0.05270, 0.02654, 0.00201, 0.00021, + 0.00008, 0.00099, 0.00175, + 0.19710, 0.04980, 0.02397, 0.00179, 0.00026, + 0.00012, 0.00094, 0.00171, + 0.18785, 0.04719, 0.02179, 0.00173, 0.00027, + 0.00011, 0.00086, 0.00159, + 0.17942, 0.04485, 0.01991, 0.00165, 0.00025, + 0.00010, 0.00080, 0.00149 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.17173, 0.04273, 0.01827, 0.00157, 0.00022, + 0.00010, 0.00073, 0.00140, + 0.16464, 0.04079, 0.01685, 0.00153, 0.00021, + 0.00010, 0.00070, 0.00130, + 0.15813, 0.03902, 0.01559, 0.00151, 0.00022, + 0.00010, 0.00069, 0.00121, + 0.15212, 0.03733, 0.01450, 0.00140, 0.00021, + 0.00009, 0.00067, 0.00115, + 0.14655, 0.03579, 0.01353, 0.00131, 0.00021, + 0.00009, 0.00063, 0.00111 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.38208, 0.10396, 0.10650, 0.00264, 0.00001, + 0.00005, 0.00106, 0.00276, + 0.34289, 0.09137, 0.08191, 0.00248, 0.00001, + 0.00000, 0.00112, 0.00272, + 0.31133, 0.08155, 0.06503, 0.00233, 0.00001, + 0.00006, 0.00113, 0.00244, + 0.28533, 0.07371, 0.05307, 0.00191, 0.00006, + 0.00000, 0.00107, 0.00217, + 0.26320, 0.06714, 0.04416, 0.00192, 0.00009, + 0.00004, 0.00099, 0.00197, + 0.24433, 0.06160, 0.03734, 0.00180, 0.00017, + 0.00005, 0.00097, 0.00175, + 0.22797, 0.05695, 0.03206, 0.00166, 0.00018, + 0.00006, 0.00091, 0.00152 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.21399, 0.05290, 0.02787, 0.00136, 0.00020, + 0.00006, 0.00082, 0.00140, + 0.20097, 0.04931, 0.02447, 0.00138, 0.00024, + 0.00006, 0.00080, 0.00124, + 0.18938, 0.04616, 0.02166, 0.00135, 0.00022, + 0.00006, 0.00075, 0.00115, + 0.17929, 0.04335, 0.01932, 0.00119, 0.00017, + 0.00007, 0.00070, 0.00111, + 0.17014, 0.04083, 0.01738, 0.00115, 0.00018, + 0.00009, 0.00069, 0.00103, + 0.16182, 0.03858, 0.01575, 0.00102, 0.00019, + 0.00011, 0.00064, 0.00102, + 0.15420, 0.03655, 0.01436, 0.00097, 0.00020, + 0.00011, 0.00059, 0.00096 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.14716, 0.03475, 0.01315, 0.00097, 0.00019, + 0.00009, 0.00055, 0.00083, + 0.14071, 0.03307, 0.01210, 0.00093, 0.00019, + 0.00008, 0.00052, 0.00077, + 0.13482, 0.03152, 0.01118, 0.00089, 0.00018, + 0.00007, 0.00048, 0.00074, + 0.12938, 0.03009, 0.01037, 0.00081, 0.00019, + 0.00008, 0.00048, 0.00072, + 0.12438, 0.02878, 0.00966, 0.00073, 0.00019, + 0.00009, 0.00047, 0.00069 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.34682, 0.08969, 0.08288, 0.00184, 0.00001, + 0.00003, 0.00062, 0.00194, + 0.30886, 0.07826, 0.06302, 0.00152, 0.00001, + 0.00004, 0.00067, 0.00170, + 0.27815, 0.06934, 0.04961, 0.00154, 0.00001, + 0.00006, 0.00062, 0.00162, + 0.25331, 0.06222, 0.04006, 0.00125, 0.00001, + 0.00005, 0.00062, 0.00145, + 0.23218, 0.05639, 0.03309, 0.00131, 0.00002, + 0.00004, 0.00063, 0.00123, + 0.21437, 0.05155, 0.02783, 0.00132, 0.00004, + 0.00001, 0.00061, 0.00121, + 0.19911, 0.04737, 0.02374, 0.00118, 0.00012, + 0.00003, 0.00057, 0.00117 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.18549, 0.04382, 0.02051, 0.00124, 0.00006, + 0.00001, 0.00048, 0.00094, + 0.17375, 0.04077, 0.01793, 0.00113, 0.00004, + 0.00001, 0.00046, 0.00078, + 0.16355, 0.03804, 0.01582, 0.00096, 0.00010, + 0.00002, 0.00048, 0.00069, + 0.15433, 0.03559, 0.01407, 0.00087, 0.00017, + 0.00006, 0.00048, 0.00065, + 0.14563, 0.03348, 0.01262, 0.00087, 0.00013, + 0.00007, 0.00041, 0.00068, + 0.13813, 0.03152, 0.01139, 0.00073, 0.00013, + 0.00005, 0.00037, 0.00068, + 0.13126, 0.02976, 0.01035, 0.00068, 0.00013, + 0.00005, 0.00034, 0.00063 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.12486, 0.02817, 0.00946, 0.00074, 0.00012, + 0.00005, 0.00035, 0.00054, + 0.11926, 0.02674, 0.00868, 0.00065, 0.00014, + 0.00005, 0.00034, 0.00049, + 0.11415, 0.02543, 0.00800, 0.00054, 0.00014, + 0.00006, 0.00033, 0.00047, + 0.10934, 0.02423, 0.00741, 0.00041, 0.00012, + 0.00005, 0.00030, 0.00051, + 0.10487, 0.02313, 0.00688, 0.00032, 0.00011, + 0.00005, 0.00027, 0.00053 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.31107, 0.07643, 0.06374, 0.00106, 0.00001, + 0.00005, 0.00034, 0.00132, + 0.27476, 0.06619, 0.04782, 0.00088, 0.00001, + 0.00001, 0.00040, 0.00126, + 0.24561, 0.05831, 0.03722, 0.00090, 0.00001, + 0.00003, 0.00042, 0.00113, + 0.22204, 0.05198, 0.02981, 0.00091, 0.00001, + 0.00002, 0.00037, 0.00098, + 0.20242, 0.04683, 0.02444, 0.00081, 0.00001, + 0.00005, 0.00030, 0.00089, + 0.18599, 0.04259, 0.02041, 0.00083, 0.00004, + 0.00004, 0.00032, 0.00063, + 0.17167, 0.03901, 0.01733, 0.00095, 0.00000, + 0.00001, 0.00031, 0.00057 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.15976, 0.03590, 0.01491, 0.00066, 0.00000, + 0.00000, 0.00028, 0.00058, + 0.14910, 0.03322, 0.01297, 0.00057, 0.00003, + 0.00001, 0.00025, 0.00055, + 0.13946, 0.03086, 0.01140, 0.00064, 0.00004, + 0.00001, 0.00026, 0.00050, + 0.13094, 0.02880, 0.01010, 0.00063, 0.00008, + 0.00001, 0.00028, 0.00046, + 0.12351, 0.02695, 0.00903, 0.00051, 0.00011, + 0.00004, 0.00028, 0.00047, + 0.11676, 0.02532, 0.00812, 0.00048, 0.00008, + 0.00003, 0.00026, 0.00037, + 0.11062, 0.02386, 0.00736, 0.00046, 0.00008, + 0.00003, 0.00024, 0.00032 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.10501, 0.02254, 0.00671, 0.00044, 0.00009, + 0.00004, 0.00023, 0.00033, + 0.09992, 0.02134, 0.00615, 0.00037, 0.00008, + 0.00004, 0.00022, 0.00032, + 0.09527, 0.02026, 0.00566, 0.00032, 0.00007, + 0.00004, 0.00020, 0.00031, + 0.09098, 0.01926, 0.00523, 0.00025, 0.00006, + 0.00003, 0.00019, 0.00033, + 0.08703, 0.01834, 0.00485, 0.00021, 0.00006, + 0.00003, 0.00018, 0.00033 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.27641, 0.06454, 0.04839, 0.00067, 0.00001, + 0.00004, 0.00014, 0.00080, + 0.24134, 0.05542, 0.03583, 0.00074, 0.00001, + 0.00007, 0.00018, 0.00081, + 0.21404, 0.04838, 0.02757, 0.00077, 0.00001, + 0.00007, 0.00023, 0.00057, + 0.19208, 0.04284, 0.02186, 0.00068, 0.00001, + 0.00007, 0.00017, 0.00055, + 0.17429, 0.03840, 0.01777, 0.00061, 0.00001, + 0.00003, 0.00022, 0.00047, + 0.15939, 0.03470, 0.01476, 0.00055, 0.00002, + 0.00002, 0.00024, 0.00039, + 0.14683, 0.03158, 0.01244, 0.00039, 0.00005, + 0.00002, 0.00024, 0.00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.13558, 0.02898, 0.01064, 0.00042, 0.00006, + 0.00001, 0.00021, 0.00036, + 0.12574, 0.02671, 0.00921, 0.00045, 0.00005, + 0.00001, 0.00017, 0.00028, + 0.11728, 0.02472, 0.00806, 0.00038, 0.00004, + 0.00001, 0.00016, 0.00027, + 0.10988, 0.02299, 0.00712, 0.00030, 0.00003, + 0.00000, 0.00016, 0.00026, + 0.10323, 0.02144, 0.00634, 0.00028, 0.00005, + 0.00001, 0.00016, 0.00023, + 0.09721, 0.02006, 0.00570, 0.00022, 0.00006, + 0.00003, 0.00016, 0.00026, + 0.09185, 0.01883, 0.00515, 0.00019, 0.00008, + 0.00004, 0.00017, 0.00026 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08706, 0.01773, 0.00468, 0.00015, 0.00010, + 0.00004, 0.00017, 0.00021, + 0.08250, 0.01673, 0.00427, 0.00016, 0.00008, + 0.00003, 0.00016, 0.00020, + 0.07836, 0.01583, 0.00393, 0.00016, 0.00007, + 0.00002, 0.00015, 0.00020, + 0.07462, 0.01500, 0.00362, 0.00014, 0.00007, + 0.00003, 0.00014, 0.00023, + 0.07120, 0.01424, 0.00335, 0.00011, 0.00006, + 0.00003, 0.00013, 0.00025 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.24174, 0.05358, 0.03612, 0.00044, 0.00001, + 0.00000, 0.00016, 0.00052, + 0.20941, 0.04551, 0.02638, 0.00026, 0.00001, + 0.00005, 0.00007, 0.00045, + 0.18424, 0.03942, 0.02008, 0.00038, 0.00001, + 0.00006, 0.00014, 0.00033, + 0.16416, 0.03464, 0.01576, 0.00041, 0.00001, + 0.00004, 0.00015, 0.00033, + 0.14806, 0.03083, 0.01272, 0.00024, 0.00004, + 0.00003, 0.00015, 0.00037, + 0.13447, 0.02774, 0.01048, 0.00023, 0.00001, + 0.00004, 0.00013, 0.00026, + 0.12297, 0.02513, 0.00879, 0.00026, 0.00007, + 0.00000, 0.00017, 0.00022 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.11320, 0.02292, 0.00748, 0.00019, 0.00006, + 0.00000, 0.00014, 0.00025, + 0.10463, 0.02103, 0.00644, 0.00019, 0.00006, + 0.00000, 0.00013, 0.00020, + 0.09719, 0.01939, 0.00561, 0.00018, 0.00007, + 0.00001, 0.00015, 0.00019, + 0.09068, 0.01797, 0.00494, 0.00012, 0.00006, + 0.00002, 0.00014, 0.00020, + 0.08482, 0.01671, 0.00439, 0.00010, 0.00005, + 0.00001, 0.00009, 0.00018, + 0.07954, 0.01559, 0.00393, 0.00013, 0.00006, + 0.00002, 0.00011, 0.00016, + 0.07487, 0.01459, 0.00354, 0.00013, 0.00006, + 0.00002, 0.00012, 0.00015 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.07073, 0.01368, 0.00322, 0.00009, 0.00005, + 0.00002, 0.00011, 0.00012, + 0.06692, 0.01287, 0.00293, 0.00006, 0.00007, + 0.00003, 0.00011, 0.00013, + 0.06347, 0.01215, 0.00269, 0.00003, 0.00007, + 0.00004, 0.00010, 0.00014, + 0.06030, 0.01150, 0.00247, 0.00004, 0.00007, + 0.00004, 0.00010, 0.00011, + 0.05738, 0.01090, 0.00229, 0.00005, 0.00006, + 0.00003, 0.00009, 0.00009 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.20948, 0.04429, 0.02665, 0.00063, 0.00001, + 0.00009, 0.00001, 0.00016, + 0.17959, 0.03723, 0.01920, 0.00050, 0.00001, + 0.00009, 0.00001, 0.00024, + 0.15654, 0.03197, 0.01444, 0.00050, 0.00001, + 0.00007, 0.00001, 0.00016, + 0.13900, 0.02793, 0.01127, 0.00019, 0.00000, + 0.00005, 0.00006, 0.00017, + 0.12435, 0.02466, 0.00902, 0.00015, 0.00001, + 0.00005, 0.00007, 0.00018, + 0.11217, 0.02207, 0.00739, 0.00025, 0.00001, + 0.00004, 0.00007, 0.00013, + 0.10220, 0.01989, 0.00617, 0.00022, 0.00001, + 0.00003, 0.00007, 0.00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.09371, 0.01804, 0.00523, 0.00015, 0.00001, + 0.00002, 0.00006, 0.00011, + 0.08631, 0.01650, 0.00449, 0.00009, 0.00003, + 0.00000, 0.00007, 0.00014, + 0.07984, 0.01516, 0.00390, 0.00007, 0.00003, + 0.00000, 0.00006, 0.00011, + 0.07415, 0.01398, 0.00342, 0.00008, 0.00003, + 0.00001, 0.00005, 0.00006, + 0.06908, 0.01296, 0.00303, 0.00009, 0.00002, + 0.00000, 0.00007, 0.00008, + 0.06467, 0.01205, 0.00271, 0.00007, 0.00003, + 0.00001, 0.00007, 0.00008, + 0.06070, 0.01123, 0.00244, 0.00005, 0.00003, + 0.00001, 0.00007, 0.00008 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05713, 0.01052, 0.00220, 0.00002, 0.00003, + 0.00001, 0.00007, 0.00008, + 0.05385, 0.00987, 0.00201, 0.00004, 0.00002, + 0.00001, 0.00006, 0.00008, + 0.05088, 0.00929, 0.00184, 0.00005, 0.00002, + 0.00000, 0.00005, 0.00006, + 0.04821, 0.00877, 0.00169, 0.00004, 0.00002, + 0.00001, 0.00005, 0.00005, + 0.04578, 0.00829, 0.00156, 0.00004, 0.00002, + 0.00001, 0.00004, 0.00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.17878, 0.03552, 0.01919, 0.00016, 0.00001, + 0.00001, 0.00001, 0.00012, + 0.15198, 0.02970, 0.01370, 0.00010, 0.00001, + 0.00004, 0.00001, 0.00015, + 0.13163, 0.02539, 0.01022, 0.00013, 0.00001, + 0.00001, 0.00003, 0.00013, + 0.11556, 0.02201, 0.00791, 0.00019, 0.00001, + 0.00002, 0.00004, 0.00012, + 0.10277, 0.01935, 0.00630, 0.00015, 0.00001, + 0.00003, 0.00001, 0.00012, + 0.09241, 0.01723, 0.00513, 0.00008, 0.00001, + 0.00002, 0.00000, 0.00012, + 0.08364, 0.01547, 0.00426, 0.00009, 0.00001, + 0.00001, 0.00003, 0.00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.07628, 0.01401, 0.00359, 0.00009, 0.00001, + 0.00002, 0.00003, 0.00008, + 0.06996, 0.01274, 0.00307, 0.00010, 0.00001, + 0.00001, 0.00002, 0.00008, + 0.06450, 0.01166, 0.00266, 0.00006, 0.00000, + 0.00000, 0.00003, 0.00010, + 0.05973, 0.01071, 0.00233, 0.00003, 0.00000, + 0.00000, 0.00003, 0.00011, + 0.05546, 0.00991, 0.00206, 0.00008, 0.00001, + 0.00000, 0.00003, 0.00004, + 0.05170, 0.00918, 0.00183, 0.00008, 0.00001, + 0.00000, 0.00003, 0.00004, + 0.04837, 0.00853, 0.00164, 0.00006, 0.00001, + 0.00000, 0.00003, 0.00004 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.04540, 0.00796, 0.00149, 0.00004, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.04266, 0.00747, 0.00135, 0.00005, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.04021, 0.00701, 0.00123, 0.00005, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.03799, 0.00659, 0.00113, 0.00006, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.03599, 0.00621, 0.00104, 0.00006, 0.00001, + 0.00000, 0.00002, 0.00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + 0.12352, 0.02187, 0.00934, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00011, + 0.10268, 0.01787, 0.00648, 0.00000, 0.00001, + 0.00001, 0.00001, 0.00005, + 0.08738, 0.01499, 0.00472, 0.00007, 0.00001, + 0.00000, 0.00001, 0.00000, + 0.07562, 0.01283, 0.00358, 0.00001, 0.00001, + 0.00002, 0.00000, 0.00000, + 0.06638, 0.01112, 0.00281, 0.00001, 0.00001, + 0.00001, 0.00002, 0.00002, + 0.05884, 0.00977, 0.00225, 0.00005, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.05276, 0.00867, 0.00185, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.04758, 0.00776, 0.00155, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.04319, 0.00699, 0.00131, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00004, + 0.03943, 0.00634, 0.00113, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.03619, 0.00580, 0.00098, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.03337, 0.00531, 0.00086, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.03088, 0.00487, 0.00076, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.02867, 0.00451, 0.00068, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02667, 0.00418, 0.00061, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02494, 0.00388, 0.00055, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02340, 0.00363, 0.00050, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02197, 0.00339, 0.00046, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02069, 0.00317, 0.00042, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + 0.07898, 0.01234, 0.00409, 0.00007, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.06427, 0.00989, 0.00276, 0.00007, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.05362, 0.00814, 0.00196, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.04567, 0.00682, 0.00146, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.03947, 0.00583, 0.00113, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.03456, 0.00506, 0.00089, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.03057, 0.00443, 0.00073, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + 0.02726, 0.00393, 0.00060, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02449, 0.00350, 0.00050, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02214, 0.00315, 0.00043, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02013, 0.00283, 0.00037, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01840, 0.00258, 0.00033, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01687, 0.00236, 0.00029, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01555, 0.00216, 0.00025, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + 0.01439, 0.00198, 0.00023, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01335, 0.00184, 0.00021, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01243, 0.00170, 0.00019, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01161, 0.00158, 0.00017, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01086, 0.00147, 0.00016, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ + 0.04533, 0.00611, 0.00154, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.03595, 0.00478, 0.00101, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02945, 0.00384, 0.00070, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02459, 0.00319, 0.00051, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02087, 0.00267, 0.00039, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01799, 0.00229, 0.00030, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01572, 0.00198, 0.00024, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ + 0.01385, 0.00172, 0.00020, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01230, 0.00152, 0.00017, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01100, 0.00135, 0.00014, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00990, 0.00121, 0.00012, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00898, 0.00109, 0.00011, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00816, 0.00099, 0.00009, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00746, 0.00089, 0.00008, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + 0.00684, 0.00081, 0.00007, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00630, 0.00075, 0.00007, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00582, 0.00069, 0.00006, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00539, 0.00064, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00501, 0.00059, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + 0.02219, 0.00251, 0.00047, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01715, 0.00193, 0.00029, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01365, 0.00151, 0.00020, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01113, 0.00123, 0.00014, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00928, 0.00099, 0.00011, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00787, 0.00085, 0.00008, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00674, 0.00071, 0.00007, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ + 0.00586, 0.00061, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00513, 0.00055, 0.00004, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00453, 0.00047, 0.00004, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00403, 0.00043, 0.00003, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00360, 0.00037, 0.00003, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00324, 0.00033, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00293, 0.00029, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + 0.00267, 0.00026, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00243, 0.00023, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00222, 0.00022, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00205, 0.00019, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00188, 0.00018, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ + 0.00211, 0.00016, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00150, 0.00010, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00112, 0.00008, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00087, 0.00006, 0.00000, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00068, 0.00005, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00056, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00045, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + 0.00038, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00032, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00027, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00024, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00018, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-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,1.D0/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ DATA N0/2,5,5,10,0,0,10,10/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ XSAVE=X IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C READ(52,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), C . F(6,N,M),F(8,N,M) C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR DO 25 I=1,8 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))+ONEDO DO 31 I=1,8 IF(I.EQ.7) GO TO 31 DO 30 K=1,19 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) 31 CONTINUE 50 FORMAT(8F10.5) DO 40 I=1,8 DO 40 M=1,19 40 F(I,NX,M)=ZEROD 10 CONTINUE IF(X.LT.XMIN) X=XMIN IF(X.GT.XMAX) X=XMAX QSQ=SCALE**2 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN IF(QSQ.GT.QSQMAX) QSQ=QSQMAX XXX=X IF(X.LT.PONED) XXX= LOG10(X)+ONEDO N=0 70 N=N+1 IF(XXX.GT.XX(N+1)) GOTO 70 A=(XXX-XX(N))/(XX(N+1)-XX(N)) RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) B=RM-AINT(RM) M=1+ INT(RM) DO 60 I=1,8 G(I)=ZEROD IF(XXX.GE.ONED) GOTO 60 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.7) GOTO 65 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) G(I)=FAC**(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 RETURN END