* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:29:43 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:34 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFDISH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW H FIT TO THE 1993 HERA F2 DATA C WITH UBAR < DBAR (230 MeV) C IN THE ** DIS ** SCHEME #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.01508, 0.00234, 28.57361, 2.50233, 0.14546, + 0.00000, 1.34132, 2.52798, + 0.01551, 0.00248, 41.41998, 2.90445, 0.59834, + 0.00001, 1.76941, 2.92978, + 0.01591, 0.00262, 56.22984, 3.35828, 1.09605, + 0.00001, 2.24573, 3.38329, + 0.01629, 0.00274, 72.60197, 3.85731, 1.63369, + 0.00001, 2.76459, 3.88201, + 0.01665, 0.00287, 90.39349, 4.39562, 2.20645, + 0.12740, 3.32062, 4.42005, + 0.01698, 0.00300, 109.40785, 4.96962, 2.81165, + 0.69649, 3.91070, 4.99380, + 0.01730, 0.00311, 129.52321, 5.57897, 3.44960, + 1.39599, 4.53479, 5.60291 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.01761, 0.00324, 150.59039, 6.22099, 4.11796, + 2.11291, 5.19041, 6.24470, + 0.01791, 0.00335, 172.47517, 6.89236, 4.81379, + 2.85689, 5.87442, 6.91586, + 0.01820, 0.00346, 195.07593, 7.59054, 5.53473, + 3.62358, 6.58438, 7.61385, + 0.01848, 0.00357, 218.32326, 8.31348, 6.27895, + 4.41183, 7.31835, 8.33663, + 0.01874, 0.00367, 242.10217, 9.05856, 7.04403, + 5.21909, 8.07380, 9.08157, + 0.01901, 0.00378, 266.14624, 9.82123, 7.82554, + 6.04096, 8.84624, 9.84408, + 0.01927, 0.00389, 290.66772, 10.60346, 8.62559, + 6.87977, 9.63772, 10.62618 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.01951, 0.00399, 315.54395, 11.40309, 9.44207, + 7.73350, 10.44611, 11.42568, + 0.01975, 0.00408, 340.46313, 12.21363, 10.26866, + 8.59568, 11.26500, 12.23610, + 0.01999, 0.00419, 365.83740, 13.04181, 11.11208, + 9.47343, 12.10109, 13.06417, + 0.02021, 0.00428, 391.07251, 13.87698, 11.96183, + 10.35593, 12.94386, 13.89926, + 0.02044, 0.00438, 416.66797, 14.72739, 12.82614, + 11.25187, 13.80151, 14.74957 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.01910, 0.00337, 23.12250, 2.03841, 0.11542, + 0.00000, 1.08670, 2.05327, + 0.01968, 0.00359, 33.11473, 2.35319, 0.47102, + 0.00000, 1.42219, 2.36782, + 0.02022, 0.00378, 44.40931, 2.70360, 0.85671, + 0.00001, 1.79052, 2.71801, + 0.02072, 0.00397, 56.67399, 3.08411, 1.26826, + 0.00000, 2.18684, 3.09833, + 0.02118, 0.00415, 69.79973, 3.49027, 1.70207, + 0.09624, 2.60708, 3.50430, + 0.02163, 0.00433, 83.63523, 3.91914, 2.15598, + 0.52392, 3.04873, 3.93300, + 0.02205, 0.00451, 98.08751, 4.37030, 2.63008, + 1.04547, 3.51159, 4.38401 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.02246, 0.00467, 113.04887, 4.84163, 3.12254, + 1.57516, 3.99372, 4.85519, + 0.02285, 0.00484, 128.42445, 5.33066, 3.63115, + 2.12040, 4.49277, 5.34410, + 0.02323, 0.00499, 144.14645, 5.83550, 4.15422, + 2.67801, 5.00693, 5.84881, + 0.02359, 0.00515, 160.17074, 6.35465, 4.69040, + 3.24717, 5.53480, 6.36785, + 0.02394, 0.00531, 176.41951, 6.88621, 5.23795, + 3.82612, 6.07457, 6.89931, + 0.02428, 0.00546, 192.70798, 7.42673, 5.79356, + 4.41154, 6.62283, 7.43974, + 0.02461, 0.00560, 209.19710, 7.97800, 6.35906, + 5.00551, 7.18140, 7.99092 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.02493, 0.00575, 225.80480, 8.53840, 6.93295, + 5.60657, 7.74873, 8.55127, + 0.02524, 0.00589, 242.31673, 9.10323, 7.51058, + 6.21002, 8.32013, 9.11601, + 0.02555, 0.00602, 259.02999, 9.67763, 8.09716, + 6.82136, 8.90079, 9.69039, + 0.02584, 0.00616, 275.53486, 10.25374, 8.68491, + 7.43260, 9.48288, 10.26643, + 0.02613, 0.00629, 292.18452, 10.83787, 9.28013, + 8.05038, 10.07273, 10.85050 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.02417, 0.00488, 18.71066, 1.65943, 0.09145, + 0.00000, 0.88033, 1.66758, + 0.02494, 0.00517, 26.47142, 1.90530, 0.37020, + 0.00000, 1.14277, 1.91330, + 0.02563, 0.00547, 35.06683, 2.17515, 0.66844, + 0.00000, 1.42694, 2.18303, + 0.02629, 0.00574, 44.22931, 2.46448, 0.98272, + 0.00000, 1.72885, 2.47225, + 0.02690, 0.00600, 53.88190, 2.76996, 1.31043, + 0.07253, 2.04556, 2.77763, + 0.02748, 0.00626, 63.91248, 3.08932, 1.64989, + 0.39322, 2.37508, 3.09689, + 0.02804, 0.00650, 74.25426, 3.42216, 2.00114, + 0.78114, 2.71723, 3.42965 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.02857, 0.00675, 84.83257, 3.76689, 2.36283, + 1.17147, 3.07054, 3.77432, + 0.02908, 0.00698, 95.58434, 4.12171, 2.73335, + 1.56995, 3.43331, 4.12907, + 0.02957, 0.00721, 106.46631, 4.48525, 3.11149, + 1.97427, 3.80425, 4.49254, + 0.03004, 0.00743, 117.45285, 4.85648, 3.49637, + 2.38397, 4.18240, 4.86371, + 0.03050, 0.00765, 128.49417, 5.23406, 3.88676, + 2.79781, 4.56646, 5.24124, + 0.03093, 0.00786, 139.46341, 5.61542, 4.28018, + 3.21339, 4.95394, 5.62256, + 0.03136, 0.00807, 150.48344, 6.00210, 4.67826, + 3.63247, 5.34640, 6.00920 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.03178, 0.00827, 161.50014, 6.39301, 5.07995, + 4.05410, 5.74279, 6.40008, + 0.03218, 0.00847, 172.36797, 6.78466, 5.48185, + 4.47482, 6.13963, 6.79170, + 0.03256, 0.00866, 183.30180, 7.18108, 5.88799, + 4.89894, 6.54099, 7.18809, + 0.03295, 0.00885, 194.01912, 7.57645, 6.29266, + 5.32057, 6.94109, 7.58344, + 0.03332, 0.00904, 204.77129, 7.97556, 6.70065, + 5.74476, 7.34471, 7.98253 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.02772, 0.00605, 16.53067, 1.47072, 0.07972, + 0.00000, 0.77826, 1.47640, + 0.02861, 0.00643, 23.21927, 1.68322, 0.32122, + 0.00000, 1.00530, 1.68881, + 0.02944, 0.00679, 30.53673, 1.91450, 0.57752, + 0.00000, 1.24915, 1.92001, + 0.03020, 0.00712, 38.25038, 2.16056, 0.84557, + 0.00000, 1.50626, 2.16601, + 0.03091, 0.00744, 46.30000, 2.41869, 1.12326, + 0.06140, 1.77423, 2.42408, + 0.03159, 0.00777, 54.59346, 2.68694, 1.40923, + 0.33205, 2.05139, 2.69229, + 0.03224, 0.00807, 63.07721, 2.96498, 1.70347, + 0.65786, 2.33758, 2.97028 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.03286, 0.00837, 71.69281, 3.25146, 2.00488, + 0.98389, 2.63158, 3.25673, + 0.03345, 0.00865, 80.39113, 3.54491, 2.31214, + 1.31506, 2.93198, 3.55014, + 0.03402, 0.00893, 89.14072, 3.84423, 2.62431, + 1.64953, 3.23778, 3.84943, + 0.03456, 0.00921, 97.92462, 4.14861, 2.94069, + 1.98698, 3.54821, 4.15380, + 0.03509, 0.00948, 106.70447, 4.45696, 3.26029, + 2.32641, 3.86223, 4.46210, + 0.03560, 0.00973, 115.37932, 4.76715, 3.58110, + 2.66585, 4.17777, 4.77228, + 0.03610, 0.00998, 124.05480, 5.08060, 3.90455, + 3.00694, 4.49626, 5.08572 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.03658, 0.01022, 132.68862, 5.39638, 4.22981, + 3.34887, 4.81683, 5.40148, + 0.03704, 0.01047, 141.16511, 5.71167, 4.55410, + 3.68886, 5.13665, 5.71676, + 0.03750, 0.01071, 149.66236, 6.02989, 4.88087, + 4.03056, 5.45919, 6.03497, + 0.03794, 0.01093, 157.95304, 6.34620, 5.20535, + 4.36910, 5.77962, 6.35127, + 0.03836, 0.01116, 166.24386, 6.66467, 5.53162, + 4.70876, 6.10203, 6.66975 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.03054, 0.00704, 15.13950, 1.34971, 0.07229, + 0.00000, 0.71307, 1.35417, + 0.03154, 0.00749, 21.15556, 1.54117, 0.29027, + 0.00000, 0.91781, 1.54558, + 0.03246, 0.00790, 27.67900, 1.74829, 0.52029, + 0.00000, 1.13641, 1.75265, + 0.03330, 0.00830, 34.50014, 1.96745, 0.75956, + 0.00000, 1.36565, 1.97178, + 0.03410, 0.00868, 41.56969, 2.19628, 1.00629, + 0.05451, 1.60346, 2.20059, + 0.03485, 0.00904, 48.80835, 2.43308, 1.25928, + 0.29431, 1.84837, 2.43736, + 0.03558, 0.00940, 56.17104, 2.67753, 1.51854, + 0.58199, 2.10025, 2.68179 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.03626, 0.00974, 63.60899, 2.92847, 1.78313, + 0.86870, 2.35804, 2.93273, + 0.03692, 0.01008, 71.08234, 3.18464, 2.05191, + 1.15891, 2.62055, 3.18888, + 0.03755, 0.01039, 78.56602, 3.44508, 2.32410, + 1.45101, 2.88688, 3.44931, + 0.03817, 0.01072, 86.04810, 3.70914, 2.59913, + 1.74479, 3.15645, 3.71337, + 0.03875, 0.01102, 93.49756, 3.97587, 2.87615, + 2.03942, 3.42836, 3.98010, + 0.03932, 0.01132, 100.82874, 4.24340, 3.15337, + 2.33317, 3.70076, 4.24764, + 0.03987, 0.01161, 108.13600, 4.51309, 3.43219, + 2.62757, 3.97504, 4.51732 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.04040, 0.01189, 115.38472, 4.78414, 3.71189, + 2.92197, 4.25042, 4.78836, + 0.04092, 0.01217, 122.47620, 5.05405, 3.99002, + 3.21392, 4.52447, 5.05827, + 0.04141, 0.01244, 129.56682, 5.32595, 4.26973, + 3.50673, 4.80029, 5.33019, + 0.04190, 0.01270, 136.46161, 5.59553, 4.54677, + 3.79609, 5.07362, 5.59977, + 0.04239, 0.01297, 143.34029, 5.86647, 4.82482, + 4.08586, 5.34813, 5.87072 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.03292, 0.00793, 14.14132, 1.26262, 0.06697, + 0.00000, 0.66628, 1.26634, + 0.03400, 0.00843, 19.68086, 1.43912, 0.26826, + 0.00000, 0.85518, 1.44282, + 0.03500, 0.00890, 25.64561, 1.62915, 0.47969, + 0.00000, 1.05592, 1.63285, + 0.03593, 0.00934, 31.84277, 1.82937, 0.69869, + 0.00000, 1.26554, 1.83306, + 0.03679, 0.00977, 38.23102, 2.03768, 0.92373, + 0.04969, 1.48221, 2.04136, + 0.03760, 0.01018, 44.74008, 2.25249, 1.15367, + 0.26791, 1.70461, 2.25618, + 0.03839, 0.01058, 51.33093, 2.47356, 1.38857, + 0.52899, 1.93261, 2.47725 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.03914, 0.01097, 57.96184, 2.69985, 1.62760, + 0.78837, 2.16528, 2.70355, + 0.03986, 0.01134, 64.59860, 2.93022, 1.86976, + 1.05019, 2.40156, 2.93392, + 0.04055, 0.01170, 71.22144, 3.16385, 2.11435, + 1.31302, 2.64067, 3.16756, + 0.04120, 0.01206, 77.82121, 3.40016, 2.36090, + 1.57670, 2.88212, 3.40388, + 0.04184, 0.01239, 84.37195, 3.63832, 2.60867, + 1.84053, 3.12509, 3.64206, + 0.04245, 0.01272, 90.79819, 3.87666, 2.85606, + 2.10294, 3.36796, 3.88041, + 0.04305, 0.01305, 97.18675, 4.11645, 3.10437, + 2.36541, 3.61203, 4.12021 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.04362, 0.01337, 103.50786, 4.35699, 3.35299, + 2.62735, 3.85662, 4.36077, + 0.04418, 0.01368, 109.67487, 4.59604, 3.59971, + 2.88658, 4.09952, 4.59983, + 0.04473, 0.01397, 115.82816, 4.83648, 3.84742, + 3.14614, 4.34359, 4.84027, + 0.04525, 0.01427, 121.79561, 5.07441, 4.09230, + 3.40214, 4.58501, 5.07821, + 0.04576, 0.01456, 127.73788, 5.31318, 4.33771, + 3.65810, 4.82710, 5.31700 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.04155, 0.01147, 11.43973, 1.02530, 0.05266, + 0.00000, 0.53956, 1.02817, + 0.04294, 0.01218, 15.71670, 1.16188, 0.20932, + 0.00000, 0.68616, 1.16481, + 0.04422, 0.01287, 20.21892, 1.30675, 0.37153, + 0.00000, 0.83970, 1.30975, + 0.04541, 0.01351, 24.80116, 1.45733, 0.53732, + 0.00000, 0.99787, 1.46039, + 0.04652, 0.01411, 29.44316, 1.61220, 0.70572, + 0.03716, 1.15949, 1.61531, + 0.04758, 0.01471, 34.09891, 1.77021, 0.87597, + 0.19950, 1.32362, 1.77338, + 0.04858, 0.01527, 38.74529, 1.93122, 1.04817, + 0.39205, 1.49020, 1.93444 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.04954, 0.01582, 43.35803, 2.09451, 1.22177, + 0.58144, 1.65864, 2.09777, + 0.05045, 0.01635, 47.91843, 2.25933, 1.39610, + 0.77090, 1.82820, 2.26264, + 0.05133, 0.01687, 52.41753, 2.42513, 1.57078, + 0.95950, 1.99845, 2.42850, + 0.05218, 0.01736, 56.85410, 2.59160, 1.74553, + 1.14723, 2.16904, 2.59501, + 0.05299, 0.01784, 61.21371, 2.75817, 1.91985, + 1.33365, 2.33948, 2.76162, + 0.05378, 0.01831, 65.44678, 2.92364, 2.09264, + 1.51769, 2.50860, 2.92714, + 0.05454, 0.01876, 69.61964, 3.08911, 2.26500, + 1.70058, 2.67750, 3.09264 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.05527, 0.01920, 73.71400, 3.25409, 2.43649, + 1.88195, 2.84573, 3.25766, + 0.05598, 0.01964, 77.67226, 3.41700, 2.60559, + 2.06026, 3.01172, 3.42061, + 0.05668, 0.02005, 81.59584, 3.58002, 2.77450, + 2.23785, 3.17768, 3.58367, + 0.05735, 0.02046, 85.36723, 3.74035, 2.94044, + 2.41191, 3.34080, 3.74404, + 0.05801, 0.02087, 89.10036, 3.90050, 3.10595, + 2.58510, 3.50363, 3.90423 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.05244, 0.01662, 9.25090, 0.83129, 0.04108, + 0.00000, 0.43682, 0.83477, + 0.05421, 0.01766, 12.53508, 0.93613, 0.16225, + 0.00000, 0.54983, 0.93974, + 0.05583, 0.01863, 15.90942, 1.04568, 0.28587, + 0.00000, 0.66642, 1.04938, + 0.05735, 0.01955, 19.26860, 1.15795, 0.41050, + 0.00000, 0.78486, 1.16175, + 0.05876, 0.02041, 22.60866, 1.27205, 0.53561, + 0.02762, 0.90447, 1.27594, + 0.06010, 0.02124, 25.90247, 1.38718, 0.66069, + 0.14764, 1.02458, 1.39118, + 0.06138, 0.02206, 29.13887, 1.50330, 0.78589, + 0.28871, 1.14523, 1.50737 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.06261, 0.02282, 32.30612, 1.61994, 0.91089, + 0.42601, 1.26604, 1.62408, + 0.06378, 0.02357, 35.39610, 1.73659, 1.03531, + 0.56207, 1.38658, 1.74082, + 0.06490, 0.02429, 38.40730, 1.85300, 1.15890, + 0.69633, 1.50657, 1.85729, + 0.06598, 0.02499, 41.34314, 1.96893, 1.28157, + 0.82886, 1.62588, 1.97329, + 0.06700, 0.02567, 44.19688, 2.08407, 1.40301, + 0.95943, 1.74416, 2.08850, + 0.06801, 0.02632, 46.93665, 2.19758, 1.52245, + 1.08731, 1.86063, 2.20206, + 0.06897, 0.02695, 49.61301, 2.31035, 1.64083, + 1.21354, 1.97620, 2.31489 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.06991, 0.02756, 52.21521, 2.42209, 1.75786, + 1.33788, 2.09057, 2.42668, + 0.07081, 0.02816, 54.70546, 2.53165, 1.87246, + 1.45927, 2.20265, 2.53630, + 0.07169, 0.02874, 57.15674, 2.64074, 1.98632, + 1.57950, 2.31412, 2.64543, + 0.07255, 0.02931, 59.48952, 2.74729, 2.09742, + 1.69655, 2.42294, 2.75202, + 0.07337, 0.02985, 61.78384, 2.85322, 2.20772, + 1.81243, 2.53105, 2.85801 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.06010, 0.02068, 8.16771, 0.73475, 0.03533, + 0.00000, 0.38595, 0.73899, + 0.06215, 0.02195, 10.97002, 0.82411, 0.13917, + 0.00000, 0.48259, 0.82850, + 0.06401, 0.02315, 13.80556, 0.91663, 0.24418, + 0.00000, 0.58137, 0.92113, + 0.06575, 0.02427, 16.58923, 1.01064, 0.34917, + 0.00000, 0.68089, 1.01526, + 0.06736, 0.02534, 19.32477, 1.10552, 0.45380, + 0.02313, 0.78066, 1.11023, + 0.06891, 0.02637, 21.99377, 1.20060, 0.55771, + 0.12326, 0.88017, 1.20542, + 0.07039, 0.02735, 24.59062, 1.29587, 0.66105, + 0.24031, 0.97949, 1.30079 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.07179, 0.02830, 27.10899, 1.39101, 0.76363, + 0.35349, 1.07836, 1.39601, + 0.07313, 0.02921, 29.54529, 1.48566, 0.86514, + 0.46499, 1.17645, 1.49073, + 0.07442, 0.03008, 31.90111, 1.57960, 0.96547, + 0.57442, 1.27358, 1.58475, + 0.07566, 0.03093, 34.18138, 1.67272, 1.06457, + 0.68189, 1.36970, 1.67794, + 0.07685, 0.03175, 36.38255, 1.76477, 1.16222, + 0.78726, 1.46455, 1.77004, + 0.07800, 0.03254, 38.48053, 1.85508, 1.25780, + 0.88994, 1.55750, 1.86042, + 0.07911, 0.03329, 40.51802, 1.94443, 1.35214, + 0.99087, 1.64936, 1.94984 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.08019, 0.03403, 42.48756, 2.03263, 1.44504, + 1.08989, 1.73990, 2.03808, + 0.08122, 0.03475, 44.35997, 2.11873, 1.53561, + 1.18613, 1.82825, 2.12426, + 0.08223, 0.03545, 46.19490, 2.20419, 1.62532, + 1.28114, 1.91584, 2.20976, + 0.08321, 0.03613, 47.92944, 2.28731, 1.71250, + 1.37323, 2.00098, 2.29293, + 0.08415, 0.03680, 49.62872, 2.36971, 1.79876, + 1.46414, 2.08531, 2.37537 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.06624, 0.02414, 7.47539, 0.67282, 0.03164, + 0.00000, 0.35348, 0.67779, + 0.06847, 0.02562, 9.97223, 0.75245, 0.12455, + 0.00000, 0.43978, 0.75754, + 0.07053, 0.02702, 12.46965, 0.83431, 0.21790, + 0.00000, 0.52743, 0.83953, + 0.07245, 0.02832, 14.89576, 0.91699, 0.31065, + 0.00000, 0.61516, 0.92231, + 0.07424, 0.02955, 17.25882, 0.99998, 0.40261, + 0.02033, 0.70266, 1.00540, + 0.07594, 0.03074, 19.54593, 1.08273, 0.49346, + 0.10814, 0.78948, 1.08824, + 0.07758, 0.03188, 21.75473, 1.16525, 0.58341, + 0.21035, 0.87574, 1.17084 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.07913, 0.03297, 23.88213, 1.24729, 0.67228, + 0.30870, 0.96120, 1.25296, + 0.08061, 0.03401, 25.92714, 1.32856, 0.75988, + 0.40519, 1.04565, 1.33430, + 0.08203, 0.03501, 27.89279, 1.40891, 0.84611, + 0.49949, 1.12895, 1.41473, + 0.08340, 0.03598, 29.78505, 1.48828, 0.93096, + 0.59175, 1.21108, 1.49416, + 0.08471, 0.03691, 31.60204, 1.56645, 1.01430, + 0.68189, 1.29184, 1.57239, + 0.08598, 0.03780, 33.32407, 1.64286, 1.09557, + 0.76940, 1.37070, 1.64887, + 0.08720, 0.03868, 34.98917, 1.71825, 1.17554, + 0.85516, 1.44840, 1.72431 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.08839, 0.03952, 36.59158, 1.79243, 1.25405, + 0.93903, 1.52475, 1.79855, + 0.08954, 0.04034, 38.10712, 1.86463, 1.33036, + 1.02028, 1.59900, 1.87079, + 0.09064, 0.04113, 39.58728, 1.93610, 1.40575, + 1.10029, 1.67244, 1.94231, + 0.09172, 0.04189, 40.97926, 2.00539, 1.47878, + 1.17760, 1.74361, 2.01165, + 0.09277, 0.04264, 42.33871, 2.07394, 1.55089, + 1.25374, 1.81395, 2.08024 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.07148, 0.02735, 6.97721, 0.62867, 0.02893, + 0.00000, 0.33006, 0.63388, + 0.07391, 0.02902, 9.25154, 0.70124, 0.11395, + 0.00000, 0.40888, 0.70660, + 0.07615, 0.03059, 11.50403, 0.77545, 0.19890, + 0.00000, 0.48849, 0.78094, + 0.07822, 0.03204, 13.67303, 0.85001, 0.28289, + 0.00002, 0.56780, 0.85563, + 0.08017, 0.03342, 15.77015, 0.92449, 0.36577, + 0.01834, 0.64650, 0.93022, + 0.08202, 0.03473, 17.78607, 0.99845, 0.44732, + 0.09732, 0.72428, 1.00429, + 0.08378, 0.03600, 19.72060, 1.07192, 0.52773, + 0.18896, 0.80122, 1.07783 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.08547, 0.03720, 21.57309, 1.14469, 0.60690, + 0.27677, 0.87721, 1.15070, + 0.08708, 0.03836, 23.34392, 1.21652, 0.68465, + 0.36262, 0.95201, 1.22261, + 0.08861, 0.03947, 25.03760, 1.28729, 0.76095, + 0.44622, 1.02557, 1.29346, + 0.09009, 0.04054, 26.66037, 1.35700, 0.83580, + 0.52777, 1.09786, 1.36324, + 0.09151, 0.04156, 28.21049, 1.42545, 0.90909, + 0.60720, 1.16874, 1.43176, + 0.09289, 0.04255, 29.67432, 1.49217, 0.98035, + 0.68409, 1.23774, 1.49854, + 0.09421, 0.04351, 31.08479, 1.55783, 1.05030, + 0.75924, 1.30555, 1.56426 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.09549, 0.04444, 32.43724, 1.62229, 1.11882, + 0.83256, 1.37205, 1.62877, + 0.09673, 0.04533, 33.70975, 1.68483, 1.18523, + 0.90340, 1.43653, 1.69137, + 0.09793, 0.04620, 34.94885, 1.74664, 1.25070, + 0.97302, 1.50018, 1.75323, + 0.09909, 0.04704, 36.10852, 1.80639, 1.31395, + 1.04010, 1.56169, 1.81303, + 0.10022, 0.04786, 37.23849, 1.86539, 1.37629, + 1.10603, 1.62236, 1.87207 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.09073, 0.04042, 5.62636, 0.50845, 0.02147, + 0.00000, 0.26664, 0.51491, + 0.09386, 0.04279, 7.30762, 0.56213, 0.08530, + 0.00000, 0.32544, 0.56877, + 0.09674, 0.04498, 8.91820, 0.61605, 0.14799, + 0.00000, 0.38379, 0.62283, + 0.09943, 0.04702, 10.42288, 0.66934, 0.20897, + 0.00001, 0.44095, 0.67625, + 0.10194, 0.04893, 11.84112, 0.72179, 0.26828, + 0.01314, 0.49687, 0.72882, + 0.10432, 0.05074, 13.17321, 0.77315, 0.32585, + 0.06936, 0.55135, 0.78028, + 0.10659, 0.05247, 14.42432, 0.82347, 0.38187, + 0.13384, 0.60455, 0.83069 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.10875, 0.05410, 15.59858, 0.87272, 0.43636, + 0.19482, 0.65644, 0.88002, + 0.11082, 0.05566, 16.70023, 0.92077, 0.48926, + 0.25373, 0.70694, 0.92816, + 0.11280, 0.05715, 17.73563, 0.96761, 0.54062, + 0.31046, 0.75605, 0.97507, + 0.11469, 0.05858, 18.71164, 1.01326, 0.59050, + 0.36522, 0.80384, 1.02079, + 0.11650, 0.05994, 19.62926, 1.05765, 0.63887, + 0.41804, 0.85023, 1.06525, + 0.11825, 0.06125, 20.48106, 1.10048, 0.68543, + 0.46864, 0.89493, 1.10812, + 0.11994, 0.06250, 21.29117, 1.14226, 0.73075, + 0.51769, 0.93851, 1.14998 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.12155, 0.06371, 22.05750, 1.18294, 0.77476, + 0.56513, 0.98086, 1.19070, + 0.12312, 0.06487, 22.76675, 1.22204, 0.81705, + 0.61056, 1.02156, 1.22985, + 0.12464, 0.06600, 23.45059, 1.26041, 0.85845, + 0.65489, 1.06146, 1.26826, + 0.12611, 0.06708, 24.07961, 1.29717, 0.89809, + 0.69723, 1.09967, 1.30507, + 0.12753, 0.06813, 24.68698, 1.33324, 0.93692, + 0.73859, 1.13713, 1.34117 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.11612, 0.05999, 4.52734, 0.41093, 0.01511, + 0.00002, 0.21501, 0.41883, + 0.12021, 0.06325, 5.73271, 0.44951, 0.06199, + 0.00001, 0.25778, 0.45759, + 0.12400, 0.06625, 6.84270, 0.48755, 0.10722, + 0.00002, 0.29946, 0.49577, + 0.12750, 0.06900, 7.84306, 0.52442, 0.15040, + 0.00002, 0.33952, 0.53278, + 0.13076, 0.07156, 8.75681, 0.56014, 0.19174, + 0.00920, 0.37808, 0.56858, + 0.13384, 0.07397, 9.59102, 0.59451, 0.23122, + 0.04814, 0.41504, 0.60305, + 0.13679, 0.07622, 10.35507, 0.62768, 0.26910, + 0.09226, 0.45058, 0.63631 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.13957, 0.07834, 11.05375, 0.65970, 0.30544, + 0.13337, 0.48477, 0.66841, + 0.14222, 0.08035, 11.69351, 0.69051, 0.34025, + 0.17253, 0.51760, 0.69926, + 0.14474, 0.08225, 12.28241, 0.72013, 0.37364, + 0.20976, 0.54912, 0.72894, + 0.14715, 0.08406, 12.82666, 0.74866, 0.40568, + 0.24529, 0.57943, 0.75753, + 0.14945, 0.08578, 13.32714, 0.77610, 0.43642, + 0.27918, 0.60853, 0.78501, + 0.15165, 0.08741, 13.78036, 0.80221, 0.46564, + 0.31125, 0.63620, 0.81116, + 0.15378, 0.08897, 14.20426, 0.82743, 0.49379, + 0.34202, 0.66290, 0.83643 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.15582, 0.09047, 14.59854, 0.85172, 0.52089, + 0.37151, 0.68861, 0.86077, + 0.15777, 0.09188, 14.95536, 0.87485, 0.54668, + 0.39948, 0.71307, 0.88391, + 0.15966, 0.09324, 15.29492, 0.89736, 0.57172, + 0.42656, 0.73685, 0.90646, + 0.16148, 0.09456, 15.59800, 0.91864, 0.59542, + 0.45213, 0.75934, 0.92777, + 0.16324, 0.09583, 15.88724, 0.93937, 0.61846, + 0.47693, 0.78125, 0.94853 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.13480, 0.07546, 3.98165, 0.36243, 0.01180, + 0.00002, 0.18930, 0.37118, + 0.13962, 0.07935, 4.95415, 0.39371, 0.05048, + 0.00003, 0.22434, 0.40262, + 0.14405, 0.08290, 5.82556, 0.42416, 0.08736, + 0.00003, 0.25805, 0.43319, + 0.14816, 0.08611, 6.59158, 0.45332, 0.12219, + 0.00003, 0.29007, 0.46246, + 0.15199, 0.08906, 7.27642, 0.48123, 0.15518, + 0.00735, 0.32055, 0.49046, + 0.15559, 0.09181, 7.89017, 0.50779, 0.18635, + 0.03830, 0.34945, 0.51711, + 0.15899, 0.09438, 8.44100, 0.53318, 0.21598, + 0.07307, 0.37698, 0.54255 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.16221, 0.09679, 8.93561, 0.55739, 0.24411, + 0.10512, 0.40316, 0.56683, + 0.16525, 0.09904, 9.38150, 0.58047, 0.27084, + 0.13539, 0.42807, 0.58997, + 0.16815, 0.10115, 9.78434, 0.60251, 0.29627, + 0.16395, 0.45183, 0.61204, + 0.17092, 0.10315, 10.15014, 0.62354, 0.32051, + 0.19100, 0.47448, 0.63312, + 0.17354, 0.10505, 10.48254, 0.64358, 0.34355, + 0.21658, 0.49603, 0.65319, + 0.17604, 0.10683, 10.77755, 0.66252, 0.36532, + 0.24065, 0.51639, 0.67216, + 0.17843, 0.10853, 11.04940, 0.68067, 0.38616, + 0.26358, 0.53589, 0.69034 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.18072, 0.11016, 11.29810, 0.69804, 0.40607, + 0.28540, 0.55454, 0.70771, + 0.18292, 0.11169, 11.51828, 0.71437, 0.42484, + 0.30592, 0.57210, 0.72408, + 0.18504, 0.11317, 11.72573, 0.73020, 0.44299, + 0.32569, 0.58909, 0.73992, + 0.18708, 0.11455, 11.90742, 0.74503, 0.46004, + 0.34424, 0.60504, 0.75478, + 0.18905, 0.11590, 12.07889, 0.75942, 0.47655, + 0.36216, 0.62048, 0.76917 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.15029, 0.08868, 3.63159, 0.33129, 0.00955, + 0.00002, 0.17277, 0.34067, + 0.15572, 0.09304, 4.45618, 0.35796, 0.04311, + 0.00002, 0.20293, 0.36749, + 0.16071, 0.09698, 5.17942, 0.38370, 0.07481, + 0.00003, 0.23168, 0.39331, + 0.16532, 0.10049, 5.80246, 0.40808, 0.10448, + 0.00003, 0.25873, 0.41781, + 0.16960, 0.10372, 6.34982, 0.43121, 0.13235, + 0.00621, 0.28426, 0.44102, + 0.17362, 0.10670, 6.83238, 0.45303, 0.15850, + 0.03227, 0.30828, 0.46291, + 0.17737, 0.10946, 7.25862, 0.47370, 0.18312, + 0.06136, 0.33094, 0.48360 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.18092, 0.11204, 7.63543, 0.49326, 0.20637, + 0.08796, 0.35234, 0.50320, + 0.18427, 0.11442, 7.96998, 0.51174, 0.22828, + 0.11291, 0.37255, 0.52173, + 0.18745, 0.11666, 8.26775, 0.52927, 0.24902, + 0.13631, 0.39168, 0.53928, + 0.19046, 0.11876, 8.53430, 0.54588, 0.26865, + 0.15834, 0.40982, 0.55592, + 0.19332, 0.12074, 8.77298, 0.56160, 0.28720, + 0.17905, 0.42696, 0.57166, + 0.19603, 0.12258, 8.98090, 0.57635, 0.30461, + 0.19841, 0.44305, 0.58642, + 0.19861, 0.12434, 9.17000, 0.59041, 0.32122, + 0.21678, 0.45837, 0.60048 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.20108, 0.12602, 9.34047, 0.60376, 0.33697, + 0.23416, 0.47293, 0.61383, + 0.20344, 0.12760, 9.48812, 0.61623, 0.35176, + 0.25042, 0.48656, 0.62632, + 0.20572, 0.12911, 9.62581, 0.62826, 0.36599, + 0.26602, 0.49969, 0.63835, + 0.20789, 0.13052, 9.74323, 0.63944, 0.37927, + 0.28058, 0.51193, 0.64954, + 0.20999, 0.13188, 9.85289, 0.65023, 0.39209, + 0.29459, 0.52374, 0.66034 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.16352, 0.10032, 3.37937, 0.30848, 0.00790, + 0.00002, 0.16083, 0.31828, + 0.16954, 0.10506, 4.09838, 0.33198, 0.03789, + 0.00004, 0.18760, 0.34191, + 0.17509, 0.10927, 4.71769, 0.35442, 0.06601, + 0.00004, 0.21292, 0.36448, + 0.18013, 0.11305, 5.24194, 0.37553, 0.09213, + 0.00003, 0.23653, 0.38562, + 0.18480, 0.11647, 5.69572, 0.39538, 0.11650, + 0.00545, 0.25865, 0.40554, + 0.18916, 0.11960, 6.08940, 0.41395, 0.13920, + 0.02810, 0.27928, 0.42415, + 0.19324, 0.12247, 6.43224, 0.43142, 0.16047, + 0.05329, 0.29867, 0.44166 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.19707, 0.12514, 6.73166, 0.44780, 0.18039, + 0.07616, 0.31682, 0.45808, + 0.20067, 0.12760, 6.99285, 0.46321, 0.19907, + 0.09751, 0.33388, 0.47350, + 0.20405, 0.12990, 7.22282, 0.47771, 0.21664, + 0.11741, 0.34990, 0.48799, + 0.20727, 0.13205, 7.42642, 0.49135, 0.23319, + 0.13604, 0.36498, 0.50165, + 0.21033, 0.13405, 7.60415, 0.50417, 0.24875, + 0.15348, 0.37919, 0.51450, + 0.21319, 0.13594, 7.75704, 0.51611, 0.26326, + 0.16968, 0.39241, 0.52642, + 0.21592, 0.13772, 7.89445, 0.52745, 0.27703, + 0.18501, 0.40497, 0.53774 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.21854, 0.13938, 8.01655, 0.53817, 0.29009, + 0.19948, 0.41686, 0.54848, + 0.22102, 0.14094, 8.11928, 0.54810, 0.30224, + 0.21292, 0.42788, 0.55840, + 0.22342, 0.14243, 8.21397, 0.55762, 0.31388, + 0.22578, 0.43847, 0.56792, + 0.22569, 0.14384, 8.29227, 0.56642, 0.32472, + 0.23772, 0.44828, 0.57670, + 0.22787, 0.14517, 8.36434, 0.57488, 0.33513, + 0.24917, 0.45771, 0.58514 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.21657, 0.14561, 2.68652, 0.24625, 0.00301, + 0.00001, 0.12777, 0.25730, + 0.22475, 0.15119, 3.12191, 0.26105, 0.02355, + 0.00002, 0.14543, 0.27214, + 0.23206, 0.15600, 3.47119, 0.27473, 0.04231, + 0.00000, 0.16162, 0.28581, + 0.23858, 0.16017, 3.74667, 0.28716, 0.05927, + 0.00002, 0.17630, 0.29820, + 0.24448, 0.16382, 3.96980, 0.29849, 0.07471, + 0.00345, 0.18965, 0.30949, + 0.24989, 0.16704, 4.15146, 0.30875, 0.08872, + 0.01754, 0.20177, 0.31970, + 0.25484, 0.16990, 4.29869, 0.31804, 0.10152, + 0.03288, 0.21279, 0.32897 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.25940, 0.17247, 4.41846, 0.32651, 0.11326, + 0.04651, 0.22287, 0.33740, + 0.26362, 0.17480, 4.51544, 0.33427, 0.12405, + 0.05900, 0.23212, 0.34510, + 0.26753, 0.17691, 4.59424, 0.34134, 0.13397, + 0.07041, 0.24060, 0.35210, + 0.27118, 0.17885, 4.65814, 0.34781, 0.14314, + 0.08088, 0.24839, 0.35851, + 0.27460, 0.18061, 4.70790, 0.35373, 0.15160, + 0.09055, 0.25557, 0.36440, + 0.27777, 0.18220, 4.74467, 0.35906, 0.15935, + 0.09936, 0.26207, 0.36965, + 0.28076, 0.18365, 4.77407, 0.36398, 0.16656, + 0.10755, 0.26812, 0.37453 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.28359, 0.18500, 4.79632, 0.36848, 0.17327, + 0.11516, 0.27372, 0.37901, + 0.28621, 0.18622, 4.80952, 0.37255, 0.17942, + 0.12214, 0.27881, 0.38300, + 0.28870, 0.18739, 4.81959, 0.37638, 0.18523, + 0.12874, 0.28361, 0.38676, + 0.29102, 0.18844, 4.82134, 0.37976, 0.19051, + 0.13475, 0.28792, 0.39010, + 0.29325, 0.18943, 4.82118, 0.38294, 0.19552, + 0.14045, 0.29200, 0.39324 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.29475, 0.20433, 2.09615, 0.19190, 0.00001, + 0.00012, 0.09825, 0.20318, + 0.30508, 0.20942, 2.30651, 0.19956, 0.01189, + 0.00014, 0.10874, 0.21073, + 0.31388, 0.21346, 2.45504, 0.20630, 0.02372, + 0.00009, 0.11796, 0.21726, + 0.32137, 0.21670, 2.55577, 0.21203, 0.03400, + 0.00010, 0.12588, 0.22279, + 0.32791, 0.21931, 2.62536, 0.21694, 0.04302, + 0.00184, 0.13278, 0.22753, + 0.33360, 0.22141, 2.67192, 0.22103, 0.05095, + 0.00979, 0.13874, 0.23148, + 0.33867, 0.22308, 2.70094, 0.22454, 0.05796, + 0.01828, 0.14396, 0.23481 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.34318, 0.22445, 2.71617, 0.22747, 0.06418, + 0.02557, 0.14851, 0.23759, + 0.34720, 0.22557, 2.72121, 0.22993, 0.06974, + 0.03208, 0.15249, 0.23995, + 0.35078, 0.22647, 2.71849, 0.23203, 0.07470, + 0.03789, 0.15598, 0.24191, + 0.35401, 0.22722, 2.70995, 0.23382, 0.07916, + 0.04311, 0.15905, 0.24354, + 0.35694, 0.22781, 2.69663, 0.23531, 0.08320, + 0.04784, 0.16176, 0.24491, + 0.35953, 0.22823, 2.67878, 0.23646, 0.08675, + 0.05202, 0.16407, 0.24591, + 0.36190, 0.22858, 2.65897, 0.23739, 0.08998, + 0.05581, 0.16613, 0.24674 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.36407, 0.22884, 2.63718, 0.23811, 0.09290, + 0.05923, 0.16793, 0.24741, + 0.36600, 0.22898, 2.61265, 0.23864, 0.09549, + 0.06236, 0.16945, 0.24787, + 0.36781, 0.22906, 2.58826, 0.23910, 0.09789, + 0.06528, 0.17084, 0.24823, + 0.36939, 0.22908, 2.56176, 0.23934, 0.10000, + 0.06783, 0.17200, 0.24833, + 0.37087, 0.22905, 2.53572, 0.23952, 0.10196, + 0.07022, 0.17305, 0.24837 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.35617, 0.24127, 1.77708, 0.16036, 0.00001, + 0.00000, 0.08124, 0.17114, + 0.36684, 0.24466, 1.88087, 0.16450, 0.00655, + 0.00001, 0.08835, 0.17499, + 0.37554, 0.24696, 1.94096, 0.16790, 0.01526, + 0.00005, 0.09434, 0.17806, + 0.38259, 0.24840, 1.96970, 0.17044, 0.02262, + 0.00003, 0.09919, 0.18041, + 0.38844, 0.24925, 1.97969, 0.17243, 0.02889, + 0.00132, 0.10323, 0.18207, + 0.39329, 0.24964, 1.97654, 0.17385, 0.03423, + 0.00664, 0.10655, 0.18323, + 0.39733, 0.24973, 1.96431, 0.17479, 0.03891, + 0.01216, 0.10933, 0.18407 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.40074, 0.24955, 1.94539, 0.17543, 0.04292, + 0.01685, 0.11157, 0.18453, + 0.40353, 0.24924, 1.92203, 0.17585, 0.04636, + 0.02097, 0.11345, 0.18472, + 0.40590, 0.24878, 1.89570, 0.17604, 0.04938, + 0.02456, 0.11499, 0.18468, + 0.40797, 0.24816, 1.86760, 0.17599, 0.05205, + 0.02772, 0.11626, 0.18446, + 0.40973, 0.24742, 1.83844, 0.17574, 0.05440, + 0.03057, 0.11731, 0.18409, + 0.41108, 0.24666, 1.80774, 0.17538, 0.05642, + 0.03303, 0.11807, 0.18357, + 0.41222, 0.24584, 1.77732, 0.17492, 0.05824, + 0.03524, 0.11869, 0.18297 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.41321, 0.24494, 1.74710, 0.17436, 0.05987, + 0.03722, 0.11917, 0.18230, + 0.41396, 0.24396, 1.71651, 0.17370, 0.06122, + 0.03895, 0.11950, 0.18152, + 0.41461, 0.24300, 1.68711, 0.17302, 0.06244, + 0.04053, 0.11975, 0.18072, + 0.41504, 0.24200, 1.65738, 0.17225, 0.06347, + 0.04189, 0.11985, 0.17981, + 0.41539, 0.24101, 1.62891, 0.17147, 0.06443, + 0.04314, 0.11991, 0.17891 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.40731, 0.26516, 1.55169, 0.13673, 0.00001, + 0.00008, 0.06860, 0.14665, + 0.41708, 0.26630, 1.59176, 0.13869, 0.00350, + 0.00006, 0.07363, 0.14818, + 0.42450, 0.26648, 1.60210, 0.14000, 0.01038, + 0.00005, 0.07764, 0.14908, + 0.43018, 0.26579, 1.59256, 0.14067, 0.01602, + 0.00009, 0.08071, 0.14955, + 0.43449, 0.26486, 1.57257, 0.14097, 0.02069, + 0.00103, 0.08314, 0.14959, + 0.43765, 0.26354, 1.54594, 0.14093, 0.02457, + 0.00483, 0.08501, 0.14929, + 0.44000, 0.26203, 1.51525, 0.14062, 0.02785, + 0.00876, 0.08641, 0.14871 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.44171, 0.26037, 1.48214, 0.14016, 0.03064, + 0.01200, 0.08749, 0.14790, + 0.44295, 0.25858, 1.44787, 0.13944, 0.03301, + 0.01480, 0.08828, 0.14702, + 0.44380, 0.25672, 1.41340, 0.13858, 0.03503, + 0.01719, 0.08881, 0.14603, + 0.44431, 0.25485, 1.37933, 0.13764, 0.03678, + 0.01926, 0.08914, 0.14496, + 0.44452, 0.25297, 1.34583, 0.13660, 0.03831, + 0.02106, 0.08937, 0.14380, + 0.44438, 0.25107, 1.31263, 0.13557, 0.03954, + 0.02266, 0.08942, 0.14258, + 0.44406, 0.24922, 1.28073, 0.13453, 0.04061, + 0.02406, 0.08939, 0.14133 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.44362, 0.24737, 1.24994, 0.13348, 0.04153, + 0.02527, 0.08927, 0.14004, + 0.44301, 0.24547, 1.21982, 0.13229, 0.04231, + 0.02634, 0.08904, 0.13884, + 0.44234, 0.24362, 1.19131, 0.13113, 0.04300, + 0.02732, 0.08879, 0.13767, + 0.44142, 0.24184, 1.16340, 0.13000, 0.04355, + 0.02811, 0.08844, 0.13630, + 0.44049, 0.24009, 1.13695, 0.12889, 0.04404, + 0.02883, 0.08809, 0.13499 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.45065, 0.28029, 1.37264, 0.11722, 0.00001, + 0.00008, 0.05790, 0.12589, + 0.45864, 0.27879, 1.37121, 0.11760, 0.00136, + 0.00007, 0.06146, 0.12598, + 0.46405, 0.27661, 1.35088, 0.11760, 0.00694, + 0.00007, 0.06415, 0.12555, + 0.46745, 0.27411, 1.31920, 0.11713, 0.01138, + 0.00011, 0.06605, 0.12479, + 0.46955, 0.27137, 1.28289, 0.11649, 0.01504, + 0.00078, 0.06745, 0.12370, + 0.47069, 0.26833, 1.24451, 0.11555, 0.01800, + 0.00362, 0.06838, 0.12254, + 0.47104, 0.26525, 1.20543, 0.11440, 0.02042, + 0.00644, 0.06898, 0.12127 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.47085, 0.26217, 1.16658, 0.11318, 0.02246, + 0.00878, 0.06937, 0.11987, + 0.47018, 0.25911, 1.12864, 0.11195, 0.02414, + 0.01076, 0.06953, 0.11839, + 0.46915, 0.25612, 1.09201, 0.11067, 0.02552, + 0.01242, 0.06955, 0.11691, + 0.46785, 0.25321, 1.05697, 0.10936, 0.02666, + 0.01384, 0.06947, 0.11544, + 0.46627, 0.25043, 1.02352, 0.10808, 0.02764, + 0.01513, 0.06927, 0.11385, + 0.46453, 0.24759, 0.99127, 0.10674, 0.02847, + 0.01618, 0.06896, 0.11231, + 0.46274, 0.24481, 0.96083, 0.10537, 0.02918, + 0.01708, 0.06859, 0.11086 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.46092, 0.24206, 0.93196, 0.10397, 0.02976, + 0.01784, 0.06817, 0.10952, + 0.45885, 0.23947, 0.90429, 0.10267, 0.03022, + 0.01852, 0.06770, 0.10802, + 0.45677, 0.23700, 0.87835, 0.10144, 0.03061, + 0.01915, 0.06723, 0.10655, + 0.45459, 0.23449, 0.85343, 0.10014, 0.03092, + 0.01967, 0.06672, 0.10518, + 0.45246, 0.23209, 0.83000, 0.09890, 0.03119, + 0.02013, 0.06620, 0.10384 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.49430, 0.28888, 1.18740, 0.09657, 0.00001, + 0.00004, 0.04705, 0.10414, + 0.49866, 0.28440, 1.15255, 0.09585, 0.00001, + 0.00006, 0.04952, 0.10290, + 0.50065, 0.27954, 1.10937, 0.09489, 0.00436, + 0.00008, 0.05112, 0.10140, + 0.50086, 0.27457, 1.06249, 0.09356, 0.00787, + 0.00010, 0.05217, 0.09981, + 0.49985, 0.26976, 1.01611, 0.09213, 0.01055, + 0.00061, 0.05278, 0.09826, + 0.49798, 0.26496, 0.97144, 0.09066, 0.01274, + 0.00259, 0.05310, 0.09649, + 0.49544, 0.26037, 0.92871, 0.08918, 0.01451, + 0.00457, 0.05313, 0.09462 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.49267, 0.25580, 0.88821, 0.08760, 0.01587, + 0.00617, 0.05300, 0.09290, + 0.48956, 0.25140, 0.85014, 0.08599, 0.01704, + 0.00751, 0.05277, 0.09117, + 0.48617, 0.24725, 0.81454, 0.08446, 0.01800, + 0.00865, 0.05241, 0.08944, + 0.48264, 0.24330, 0.78133, 0.08298, 0.01876, + 0.00960, 0.05198, 0.08774, + 0.47901, 0.23951, 0.75025, 0.08153, 0.01938, + 0.01036, 0.05155, 0.08608, + 0.47539, 0.23574, 0.72100, 0.08009, 0.01986, + 0.01102, 0.05104, 0.08446, + 0.47175, 0.23215, 0.69387, 0.07870, 0.02024, + 0.01161, 0.05050, 0.08292 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.46802, 0.22874, 0.66857, 0.07737, 0.02053, + 0.01212, 0.04995, 0.08148, + 0.46432, 0.22542, 0.64465, 0.07601, 0.02076, + 0.01250, 0.04941, 0.08002, + 0.46072, 0.22226, 0.62242, 0.07472, 0.02098, + 0.01282, 0.04888, 0.07860, + 0.45707, 0.21916, 0.60137, 0.07346, 0.02113, + 0.01311, 0.04827, 0.07726, + 0.45352, 0.21621, 0.58173, 0.07226, 0.02125, + 0.01336, 0.04768, 0.07596 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.52775, 0.28932, 1.03032, 0.07908, 0.00001, + 0.00012, 0.03823, 0.08528, + 0.52784, 0.28186, 0.97512, 0.07771, 0.00001, + 0.00016, 0.03979, 0.08353, + 0.52556, 0.27483, 0.91944, 0.07616, 0.00270, + 0.00014, 0.04073, 0.08172, + 0.52203, 0.26787, 0.86550, 0.07450, 0.00542, + 0.00013, 0.04120, 0.07970, + 0.51775, 0.26122, 0.81547, 0.07282, 0.00758, + 0.00051, 0.04136, 0.07765, + 0.51272, 0.25505, 0.76943, 0.07117, 0.00922, + 0.00195, 0.04122, 0.07569, + 0.50733, 0.24916, 0.72705, 0.06947, 0.01043, + 0.00335, 0.04097, 0.07383 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.50185, 0.24349, 0.68803, 0.06785, 0.01145, + 0.00447, 0.04064, 0.07193, + 0.49626, 0.23822, 0.65228, 0.06622, 0.01226, + 0.00539, 0.04014, 0.07018, + 0.49066, 0.23320, 0.61950, 0.06464, 0.01288, + 0.00616, 0.03967, 0.06846, + 0.48510, 0.22838, 0.58943, 0.06315, 0.01336, + 0.00680, 0.03927, 0.06676, + 0.47959, 0.22378, 0.56185, 0.06174, 0.01375, + 0.00732, 0.03873, 0.06519, + 0.47406, 0.21946, 0.53623, 0.06034, 0.01406, + 0.00773, 0.03812, 0.06371, + 0.46868, 0.21536, 0.51271, 0.05904, 0.01431, + 0.00809, 0.03750, 0.06228 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.46345, 0.21144, 0.49099, 0.05783, 0.01452, + 0.00841, 0.03688, 0.06085, + 0.45831, 0.20762, 0.47080, 0.05658, 0.01464, + 0.00869, 0.03631, 0.05954, + 0.45334, 0.20401, 0.45219, 0.05537, 0.01473, + 0.00893, 0.03576, 0.05830, + 0.44839, 0.20055, 0.43474, 0.05426, 0.01475, + 0.00906, 0.03520, 0.05708, + 0.44363, 0.19724, 0.41857, 0.05318, 0.01476, + 0.00918, 0.03466, 0.05594 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.55155, 0.28393, 0.89347, 0.06418, 0.00001, + 0.00004, 0.03060, 0.06934, + 0.54675, 0.27390, 0.82658, 0.06247, 0.00001, + 0.00001, 0.03167, 0.06735, + 0.54026, 0.26460, 0.76486, 0.06075, 0.00167, + 0.00002, 0.03222, 0.06515, + 0.53281, 0.25604, 0.70869, 0.05902, 0.00384, + 0.00001, 0.03238, 0.06298, + 0.52514, 0.24797, 0.65873, 0.05718, 0.00552, + 0.00035, 0.03224, 0.06104, + 0.51712, 0.24061, 0.61410, 0.05548, 0.00670, + 0.00139, 0.03204, 0.05906, + 0.50906, 0.23377, 0.57406, 0.05373, 0.00769, + 0.00243, 0.03170, 0.05722 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.50111, 0.22729, 0.53806, 0.05208, 0.00844, + 0.00324, 0.03117, 0.05558, + 0.49325, 0.22126, 0.50557, 0.05063, 0.00902, + 0.00397, 0.03062, 0.05387, + 0.48554, 0.21562, 0.47630, 0.04920, 0.00946, + 0.00453, 0.03010, 0.05227, + 0.47808, 0.21029, 0.44993, 0.04777, 0.00978, + 0.00493, 0.02960, 0.05082, + 0.47092, 0.20519, 0.42605, 0.04650, 0.00998, + 0.00528, 0.02905, 0.04944, + 0.46381, 0.20055, 0.40396, 0.04528, 0.01021, + 0.00558, 0.02847, 0.04800, + 0.45701, 0.19610, 0.38391, 0.04409, 0.01038, + 0.00582, 0.02792, 0.04670 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.45048, 0.19178, 0.36563, 0.04290, 0.01046, + 0.00598, 0.02739, 0.04559, + 0.44408, 0.18771, 0.34877, 0.04182, 0.01052, + 0.00611, 0.02688, 0.04442, + 0.43793, 0.18391, 0.33331, 0.04081, 0.01055, + 0.00623, 0.02638, 0.04328, + 0.43177, 0.18034, 0.31892, 0.03987, 0.01055, + 0.00631, 0.02589, 0.04221, + 0.42593, 0.17694, 0.30570, 0.03898, 0.01053, + 0.00639, 0.02541, 0.04118 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.56657, 0.27385, 0.77290, 0.05154, 0.00001, + 0.00000, 0.02418, 0.05592, + 0.55642, 0.26187, 0.70031, 0.04989, 0.00001, + 0.00002, 0.02490, 0.05366, + 0.54561, 0.25099, 0.63701, 0.04826, 0.00079, + 0.00006, 0.02519, 0.05146, + 0.53441, 0.24104, 0.58177, 0.04645, 0.00265, + 0.00004, 0.02521, 0.04939, + 0.52340, 0.23207, 0.53394, 0.04461, 0.00394, + 0.00029, 0.02498, 0.04760, + 0.51261, 0.22376, 0.49229, 0.04305, 0.00492, + 0.00105, 0.02463, 0.04576, + 0.50181, 0.21638, 0.45567, 0.04167, 0.00558, + 0.00181, 0.02422, 0.04398 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.49159, 0.20941, 0.42329, 0.04020, 0.00616, + 0.00240, 0.02379, 0.04234, + 0.48193, 0.20276, 0.39454, 0.03868, 0.00655, + 0.00283, 0.02326, 0.04105, + 0.47246, 0.19676, 0.36890, 0.03738, 0.00687, + 0.00317, 0.02269, 0.03970, + 0.46331, 0.19126, 0.34601, 0.03622, 0.00713, + 0.00347, 0.02213, 0.03832, + 0.45478, 0.18593, 0.32555, 0.03498, 0.00724, + 0.00373, 0.02162, 0.03721, + 0.44627, 0.18111, 0.30698, 0.03395, 0.00738, + 0.00390, 0.02118, 0.03593, + 0.43822, 0.17649, 0.29019, 0.03298, 0.00747, + 0.00407, 0.02073, 0.03478 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.43059, 0.17204, 0.27493, 0.03203, 0.00751, + 0.00424, 0.02026, 0.03380, + 0.42318, 0.16794, 0.26109, 0.03112, 0.00753, + 0.00434, 0.01979, 0.03283, + 0.41613, 0.16410, 0.24849, 0.03025, 0.00755, + 0.00442, 0.01935, 0.03191, + 0.40919, 0.16048, 0.23672, 0.02947, 0.00750, + 0.00442, 0.01889, 0.03107, + 0.40260, 0.15705, 0.22597, 0.02874, 0.00746, + 0.00443, 0.01845, 0.03027 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.57320, 0.26055, 0.66597, 0.04112, 0.00001, + 0.00008, 0.01880, 0.04445, + 0.55803, 0.24685, 0.59189, 0.03946, 0.00001, + 0.00008, 0.01958, 0.04212, + 0.54300, 0.23468, 0.52989, 0.03771, 0.00022, + 0.00008, 0.01959, 0.04049, + 0.52818, 0.22397, 0.47756, 0.03616, 0.00172, + 0.00009, 0.01944, 0.03848, + 0.51431, 0.21407, 0.43304, 0.03457, 0.00274, + 0.00021, 0.01917, 0.03689, + 0.50084, 0.20543, 0.39519, 0.03308, 0.00349, + 0.00076, 0.01884, 0.03532, + 0.48800, 0.19750, 0.36238, 0.03172, 0.00409, + 0.00133, 0.01833, 0.03383 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.47584, 0.19028, 0.33366, 0.03051, 0.00452, + 0.00171, 0.01791, 0.03232, + 0.46421, 0.18367, 0.30864, 0.02942, 0.00479, + 0.00198, 0.01748, 0.03093, + 0.45326, 0.17753, 0.28664, 0.02836, 0.00502, + 0.00223, 0.01702, 0.02972, + 0.44293, 0.17179, 0.26714, 0.02734, 0.00522, + 0.00247, 0.01653, 0.02863, + 0.43306, 0.16640, 0.24979, 0.02637, 0.00535, + 0.00270, 0.01609, 0.02767, + 0.42367, 0.16147, 0.23419, 0.02545, 0.00540, + 0.00284, 0.01568, 0.02665, + 0.41474, 0.15688, 0.22028, 0.02459, 0.00542, + 0.00292, 0.01529, 0.02574 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.40624, 0.15257, 0.20783, 0.02376, 0.00539, + 0.00296, 0.01492, 0.02494, + 0.39801, 0.14859, 0.19640, 0.02306, 0.00537, + 0.00301, 0.01449, 0.02416, + 0.39022, 0.14486, 0.18606, 0.02241, 0.00535, + 0.00305, 0.01409, 0.02343, + 0.38288, 0.14112, 0.17672, 0.02172, 0.00534, + 0.00309, 0.01375, 0.02271, + 0.37586, 0.13766, 0.16816, 0.02106, 0.00531, + 0.00312, 0.01341, 0.02205 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.57227, 0.24490, 0.57098, 0.03244, 0.00001, + 0.00001, 0.01463, 0.03454, + 0.55263, 0.22950, 0.49826, 0.03067, 0.00001, + 0.00005, 0.01506, 0.03305, + 0.53356, 0.21649, 0.43921, 0.02912, 0.00022, + 0.00002, 0.01518, 0.03109, + 0.51563, 0.20511, 0.39068, 0.02775, 0.00131, + 0.00009, 0.01496, 0.02952, + 0.49888, 0.19512, 0.35043, 0.02633, 0.00215, + 0.00023, 0.01454, 0.02817, + 0.48317, 0.18618, 0.31648, 0.02522, 0.00272, + 0.00064, 0.01426, 0.02665, + 0.46845, 0.17813, 0.28761, 0.02403, 0.00316, + 0.00095, 0.01388, 0.02544 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.45458, 0.17093, 0.26274, 0.02294, 0.00338, + 0.00125, 0.01352, 0.02436, + 0.44172, 0.16420, 0.24127, 0.02195, 0.00359, + 0.00150, 0.01315, 0.02324, + 0.42952, 0.15810, 0.22253, 0.02113, 0.00370, + 0.00167, 0.01275, 0.02223, + 0.41797, 0.15256, 0.20607, 0.02041, 0.00374, + 0.00178, 0.01232, 0.02135, + 0.40730, 0.14727, 0.19155, 0.01957, 0.00388, + 0.00189, 0.01188, 0.02055, + 0.39716, 0.14243, 0.17887, 0.01882, 0.00390, + 0.00201, 0.01149, 0.01979, + 0.38760, 0.13795, 0.16751, 0.01810, 0.00390, + 0.00209, 0.01115, 0.01910 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.37851, 0.13376, 0.15724, 0.01742, 0.00390, + 0.00210, 0.01084, 0.01848, + 0.36999, 0.12980, 0.14796, 0.01679, 0.00390, + 0.00213, 0.01052, 0.01778, + 0.36193, 0.12613, 0.13959, 0.01621, 0.00389, + 0.00215, 0.01022, 0.01713, + 0.35404, 0.12274, 0.13203, 0.01570, 0.00384, + 0.00218, 0.00994, 0.01657, + 0.34657, 0.11954, 0.12517, 0.01521, 0.00379, + 0.00219, 0.00967, 0.01603 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.56538, 0.22677, 0.48679, 0.02493, 0.00001, + 0.00010, 0.01125, 0.02674, + 0.54059, 0.21110, 0.41754, 0.02362, 0.00001, + 0.00004, 0.01150, 0.02509, + 0.51810, 0.19754, 0.36280, 0.02226, 0.00004, + 0.00009, 0.01152, 0.02372, + 0.49725, 0.18600, 0.31868, 0.02104, 0.00095, + 0.00012, 0.01126, 0.02253, + 0.47797, 0.17605, 0.28261, 0.02006, 0.00146, + 0.00015, 0.01103, 0.02126, + 0.46054, 0.16712, 0.25296, 0.01899, 0.00183, + 0.00047, 0.01069, 0.02030, + 0.44439, 0.15914, 0.22776, 0.01801, 0.00221, + 0.00077, 0.01039, 0.01917 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.42925, 0.15205, 0.20665, 0.01728, 0.00247, + 0.00090, 0.01003, 0.01807, + 0.41522, 0.14553, 0.18838, 0.01656, 0.00259, + 0.00109, 0.00965, 0.01726, + 0.40223, 0.13955, 0.17264, 0.01580, 0.00266, + 0.00126, 0.00933, 0.01652, + 0.39029, 0.13407, 0.15908, 0.01501, 0.00274, + 0.00135, 0.00905, 0.01579, + 0.37934, 0.12907, 0.14720, 0.01415, 0.00281, + 0.00136, 0.00872, 0.01512, + 0.36836, 0.12445, 0.13660, 0.01371, 0.00285, + 0.00144, 0.00843, 0.01446, + 0.35837, 0.12013, 0.12722, 0.01320, 0.00284, + 0.00149, 0.00815, 0.01390 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34934, 0.11605, 0.11888, 0.01254, 0.00279, + 0.00149, 0.00786, 0.01342, + 0.34021, 0.11244, 0.11151, 0.01209, 0.00279, + 0.00155, 0.00765, 0.01297, + 0.33161, 0.10908, 0.10490, 0.01167, 0.00279, + 0.00159, 0.00747, 0.01255, + 0.32368, 0.10578, 0.09886, 0.01125, 0.00273, + 0.00156, 0.00722, 0.01213, + 0.31617, 0.10270, 0.09342, 0.01087, 0.00269, + 0.00153, 0.00699, 0.01171 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.55161, 0.20834, 0.41234, 0.01882, 0.00001, + 0.00010, 0.00846, 0.02046, + 0.52309, 0.19192, 0.34778, 0.01775, 0.00001, + 0.00000, 0.00868, 0.01921, + 0.49732, 0.17840, 0.29790, 0.01675, 0.00001, + 0.00010, 0.00874, 0.01797, + 0.47384, 0.16703, 0.25853, 0.01590, 0.00063, + 0.00007, 0.00861, 0.01677, + 0.45313, 0.15697, 0.22705, 0.01487, 0.00118, + 0.00016, 0.00842, 0.01571, + 0.43434, 0.14821, 0.20114, 0.01398, 0.00150, + 0.00036, 0.00808, 0.01494, + 0.41707, 0.14043, 0.17977, 0.01323, 0.00173, + 0.00055, 0.00778, 0.01414 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40096, 0.13356, 0.16184, 0.01256, 0.00186, + 0.00073, 0.00748, 0.01348, + 0.38638, 0.12729, 0.14652, 0.01194, 0.00193, + 0.00084, 0.00721, 0.01278, + 0.37288, 0.12164, 0.13346, 0.01139, 0.00203, + 0.00090, 0.00692, 0.01209, + 0.36030, 0.11654, 0.12224, 0.01086, 0.00208, + 0.00094, 0.00662, 0.01149, + 0.34863, 0.11186, 0.11247, 0.01034, 0.00199, + 0.00101, 0.00645, 0.01102, + 0.33783, 0.10752, 0.10394, 0.00976, 0.00205, + 0.00105, 0.00619, 0.01061, + 0.32769, 0.10350, 0.09643, 0.00932, 0.00210, + 0.00109, 0.00594, 0.01019 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31810, 0.09977, 0.08980, 0.00902, 0.00212, + 0.00115, 0.00574, 0.00976, + 0.30922, 0.09632, 0.08383, 0.00857, 0.00208, + 0.00112, 0.00554, 0.00936, + 0.30094, 0.09312, 0.07851, 0.00814, 0.00201, + 0.00109, 0.00534, 0.00900, + 0.29306, 0.09006, 0.07380, 0.00784, 0.00200, + 0.00111, 0.00516, 0.00864, + 0.28559, 0.08722, 0.06954, 0.00758, 0.00199, + 0.00113, 0.00499, 0.00832 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53275, 0.18980, 0.34717, 0.01472, 0.00001, + 0.00007, 0.00592, 0.01533, + 0.50046, 0.17362, 0.28792, 0.01377, 0.00001, + 0.00004, 0.00624, 0.01432, + 0.47216, 0.16028, 0.24361, 0.01288, 0.00001, + 0.00012, 0.00630, 0.01339, + 0.44743, 0.14867, 0.20883, 0.01192, 0.00037, + 0.00006, 0.00612, 0.01259, + 0.42526, 0.13897, 0.18143, 0.01116, 0.00069, + 0.00005, 0.00601, 0.01182, + 0.40536, 0.13054, 0.15956, 0.01046, 0.00095, + 0.00014, 0.00583, 0.01110, + 0.38734, 0.12327, 0.14159, 0.00977, 0.00120, + 0.00033, 0.00561, 0.01048 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.37117, 0.11660, 0.12646, 0.00918, 0.00131, + 0.00042, 0.00528, 0.00991, + 0.35595, 0.11079, 0.11384, 0.00889, 0.00140, + 0.00054, 0.00511, 0.00921, + 0.34224, 0.10551, 0.10312, 0.00838, 0.00145, + 0.00062, 0.00497, 0.00873, + 0.32984, 0.10063, 0.09393, 0.00778, 0.00146, + 0.00065, 0.00479, 0.00841, + 0.31791, 0.09624, 0.08602, 0.00755, 0.00147, + 0.00068, 0.00460, 0.00799, + 0.30715, 0.09225, 0.07912, 0.00720, 0.00144, + 0.00072, 0.00439, 0.00750, + 0.29710, 0.08857, 0.07306, 0.00682, 0.00142, + 0.00072, 0.00420, 0.00711 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28766, 0.08516, 0.06772, 0.00642, 0.00141, + 0.00068, 0.00404, 0.00685, + 0.27867, 0.08201, 0.06308, 0.00613, 0.00139, + 0.00071, 0.00391, 0.00665, + 0.27031, 0.07911, 0.05895, 0.00588, 0.00139, + 0.00074, 0.00379, 0.00646, + 0.26267, 0.07633, 0.05519, 0.00564, 0.00138, + 0.00077, 0.00362, 0.00614, + 0.25542, 0.07375, 0.05182, 0.00545, 0.00136, + 0.00078, 0.00349, 0.00585 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.50914, 0.17015, 0.28913, 0.01049, 0.00001, + 0.00012, 0.00455, 0.01127, + 0.47426, 0.15417, 0.23659, 0.00972, 0.00001, + 0.00008, 0.00473, 0.01058, + 0.44395, 0.14141, 0.19727, 0.00918, 0.00001, + 0.00003, 0.00476, 0.00965, + 0.41794, 0.13044, 0.16745, 0.00837, 0.00030, + 0.00010, 0.00466, 0.00919, + 0.39481, 0.12128, 0.14411, 0.00784, 0.00062, + 0.00014, 0.00446, 0.00864, + 0.37437, 0.11346, 0.12554, 0.00749, 0.00080, + 0.00024, 0.00426, 0.00798, + 0.35603, 0.10655, 0.11047, 0.00693, 0.00090, + 0.00033, 0.00408, 0.00759 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33928, 0.10054, 0.09801, 0.00665, 0.00100, + 0.00040, 0.00397, 0.00701, + 0.32454, 0.09503, 0.08765, 0.00610, 0.00102, + 0.00043, 0.00382, 0.00674, + 0.31096, 0.09012, 0.07896, 0.00560, 0.00106, + 0.00048, 0.00363, 0.00646, + 0.29826, 0.08579, 0.07158, 0.00536, 0.00112, + 0.00053, 0.00346, 0.00604, + 0.28656, 0.08189, 0.06527, 0.00524, 0.00110, + 0.00050, 0.00331, 0.00567, + 0.27593, 0.07821, 0.05978, 0.00492, 0.00111, + 0.00050, 0.00316, 0.00536, + 0.26610, 0.07483, 0.05497, 0.00465, 0.00109, + 0.00051, 0.00302, 0.00512 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25692, 0.07173, 0.05074, 0.00445, 0.00106, + 0.00055, 0.00286, 0.00497, + 0.24814, 0.06890, 0.04703, 0.00437, 0.00105, + 0.00056, 0.00277, 0.00464, + 0.23998, 0.06631, 0.04375, 0.00430, 0.00104, + 0.00056, 0.00269, 0.00433, + 0.23238, 0.06386, 0.04090, 0.00415, 0.00096, + 0.00055, 0.00257, 0.00423, + 0.22539, 0.06157, 0.03833, 0.00398, 0.00091, + 0.00055, 0.00247, 0.00412 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.48189, 0.15218, 0.23951, 0.00794, 0.00001, + 0.00001, 0.00301, 0.00802, + 0.44468, 0.13685, 0.19286, 0.00734, 0.00001, + 0.00002, 0.00327, 0.00772, + 0.41316, 0.12445, 0.15879, 0.00682, 0.00001, + 0.00002, 0.00328, 0.00718, + 0.38650, 0.11416, 0.13337, 0.00631, 0.00005, + 0.00003, 0.00322, 0.00661, + 0.36315, 0.10543, 0.11373, 0.00580, 0.00035, + 0.00006, 0.00316, 0.00616, + 0.34227, 0.09806, 0.09825, 0.00542, 0.00053, + 0.00013, 0.00305, 0.00590, + 0.32419, 0.09170, 0.08583, 0.00488, 0.00064, + 0.00019, 0.00293, 0.00555 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.30779, 0.08615, 0.07577, 0.00471, 0.00068, + 0.00020, 0.00272, 0.00506, + 0.29284, 0.08123, 0.06732, 0.00455, 0.00070, + 0.00023, 0.00254, 0.00467, + 0.27940, 0.07676, 0.06023, 0.00423, 0.00076, + 0.00026, 0.00246, 0.00445, + 0.26727, 0.07269, 0.05431, 0.00390, 0.00080, + 0.00029, 0.00238, 0.00428, + 0.25617, 0.06899, 0.04930, 0.00371, 0.00073, + 0.00033, 0.00226, 0.00398, + 0.24576, 0.06577, 0.04492, 0.00358, 0.00069, + 0.00033, 0.00213, 0.00381, + 0.23624, 0.06281, 0.04116, 0.00337, 0.00068, + 0.00033, 0.00202, 0.00367 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22755, 0.06005, 0.03791, 0.00311, 0.00067, + 0.00035, 0.00192, 0.00353, + 0.21927, 0.05753, 0.03502, 0.00308, 0.00065, + 0.00034, 0.00184, 0.00325, + 0.21158, 0.05520, 0.03247, 0.00309, 0.00065, + 0.00032, 0.00177, 0.00298, + 0.20438, 0.05302, 0.03025, 0.00299, 0.00063, + 0.00033, 0.00171, 0.00287, + 0.19773, 0.05103, 0.02826, 0.00289, 0.00062, + 0.00034, 0.00165, 0.00274 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.45140, 0.13384, 0.19629, 0.00549, 0.00001, + 0.00002, 0.00212, 0.00592, + 0.41297, 0.11927, 0.15587, 0.00502, 0.00001, + 0.00002, 0.00234, 0.00551, + 0.38107, 0.10777, 0.12669, 0.00472, 0.00001, + 0.00007, 0.00245, 0.00504, + 0.35339, 0.09828, 0.10534, 0.00434, 0.00015, + 0.00004, 0.00233, 0.00485, + 0.33017, 0.09046, 0.08908, 0.00403, 0.00032, + 0.00006, 0.00224, 0.00444, + 0.31005, 0.08364, 0.07629, 0.00368, 0.00041, + 0.00011, 0.00215, 0.00419, + 0.29212, 0.07787, 0.06611, 0.00352, 0.00042, + 0.00012, 0.00201, 0.00377 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.27577, 0.07283, 0.05790, 0.00343, 0.00039, + 0.00015, 0.00195, 0.00355, + 0.26156, 0.06824, 0.05116, 0.00319, 0.00043, + 0.00018, 0.00184, 0.00331, + 0.24884, 0.06423, 0.04558, 0.00285, 0.00046, + 0.00021, 0.00173, 0.00312, + 0.23713, 0.06074, 0.04090, 0.00259, 0.00048, + 0.00021, 0.00167, 0.00298, + 0.22628, 0.05757, 0.03692, 0.00257, 0.00047, + 0.00022, 0.00156, 0.00274, + 0.21651, 0.05464, 0.03349, 0.00246, 0.00045, + 0.00025, 0.00150, 0.00257, + 0.20756, 0.05197, 0.03055, 0.00235, 0.00047, + 0.00026, 0.00144, 0.00240 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19928, 0.04956, 0.02803, 0.00226, 0.00051, + 0.00025, 0.00139, 0.00222, + 0.19158, 0.04737, 0.02583, 0.00220, 0.00050, + 0.00028, 0.00133, 0.00212, + 0.18449, 0.04538, 0.02390, 0.00211, 0.00048, + 0.00029, 0.00126, 0.00203, + 0.17789, 0.04346, 0.02220, 0.00194, 0.00046, + 0.00023, 0.00118, 0.00197, + 0.17175, 0.04171, 0.02069, 0.00181, 0.00043, + 0.00019, 0.00110, 0.00190 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.41866, 0.11687, 0.15953, 0.00362, 0.00001, + 0.00008, 0.00143, 0.00412, + 0.37996, 0.10336, 0.12489, 0.00345, 0.00001, + 0.00007, 0.00161, 0.00391, + 0.34768, 0.09286, 0.10038, 0.00318, 0.00001, + 0.00000, 0.00163, 0.00375, + 0.32090, 0.08415, 0.08252, 0.00289, 0.00001, + 0.00002, 0.00151, 0.00349, + 0.29787, 0.07684, 0.06909, 0.00281, 0.00011, + 0.00006, 0.00144, 0.00319, + 0.27790, 0.07097, 0.05877, 0.00267, 0.00018, + 0.00007, 0.00143, 0.00283, + 0.26062, 0.06573, 0.05059, 0.00256, 0.00026, + 0.00012, 0.00134, 0.00264 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.24556, 0.06109, 0.04403, 0.00228, 0.00025, + 0.00013, 0.00124, 0.00250, + 0.23178, 0.05713, 0.03870, 0.00219, 0.00027, + 0.00012, 0.00120, 0.00234, + 0.21940, 0.05363, 0.03428, 0.00212, 0.00031, + 0.00011, 0.00112, 0.00215, + 0.20837, 0.05050, 0.03058, 0.00201, 0.00034, + 0.00011, 0.00104, 0.00199, + 0.19835, 0.04765, 0.02748, 0.00192, 0.00037, + 0.00015, 0.00111, 0.00189, + 0.18919, 0.04511, 0.02488, 0.00182, 0.00033, + 0.00011, 0.00098, 0.00163, + 0.18073, 0.04283, 0.02264, 0.00178, 0.00028, + 0.00010, 0.00091, 0.00151 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.17287, 0.04077, 0.02070, 0.00180, 0.00025, + 0.00014, 0.00087, 0.00151, + 0.16586, 0.03887, 0.01901, 0.00166, 0.00027, + 0.00014, 0.00084, 0.00137, + 0.15945, 0.03712, 0.01752, 0.00153, 0.00029, + 0.00013, 0.00081, 0.00124, + 0.15322, 0.03551, 0.01623, 0.00153, 0.00027, + 0.00010, 0.00075, 0.00120, + 0.14755, 0.03403, 0.01508, 0.00148, 0.00026, + 0.00009, 0.00069, 0.00117 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.38446, 0.10083, 0.12828, 0.00241, 0.00001, + 0.00001, 0.00104, 0.00289, + 0.34532, 0.08856, 0.09880, 0.00224, 0.00001, + 0.00003, 0.00110, 0.00262, + 0.31328, 0.07871, 0.07835, 0.00229, 0.00001, + 0.00006, 0.00108, 0.00252, + 0.28709, 0.07086, 0.06381, 0.00208, 0.00003, + 0.00001, 0.00114, 0.00223, + 0.26527, 0.06441, 0.05285, 0.00181, 0.00011, + 0.00002, 0.00110, 0.00206, + 0.24629, 0.05896, 0.04453, 0.00184, 0.00017, + 0.00004, 0.00101, 0.00191, + 0.22988, 0.05437, 0.03809, 0.00174, 0.00020, + 0.00007, 0.00094, 0.00163 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.21536, 0.05041, 0.03290, 0.00156, 0.00025, + 0.00008, 0.00092, 0.00158, + 0.20238, 0.04693, 0.02871, 0.00150, 0.00026, + 0.00007, 0.00085, 0.00151, + 0.19088, 0.04387, 0.02531, 0.00147, 0.00026, + 0.00008, 0.00079, 0.00133, + 0.18064, 0.04116, 0.02248, 0.00141, 0.00026, + 0.00009, 0.00077, 0.00117, + 0.17127, 0.03876, 0.02011, 0.00131, 0.00024, + 0.00009, 0.00071, 0.00111, + 0.16283, 0.03658, 0.01811, 0.00128, 0.00024, + 0.00011, 0.00073, 0.00110, + 0.15522, 0.03460, 0.01641, 0.00119, 0.00025, + 0.00011, 0.00070, 0.00108 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.14831, 0.03281, 0.01494, 0.00102, 0.00026, + 0.00010, 0.00064, 0.00104, + 0.14181, 0.03117, 0.01368, 0.00099, 0.00025, + 0.00012, 0.00061, 0.00099, + 0.13584, 0.02969, 0.01257, 0.00098, 0.00025, + 0.00013, 0.00059, 0.00094, + 0.13044, 0.02832, 0.01162, 0.00087, 0.00026, + 0.00014, 0.00057, 0.00089, + 0.12541, 0.02706, 0.01077, 0.00079, 0.00026, + 0.00014, 0.00055, 0.00084 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.34970, 0.08634, 0.10210, 0.00144, 0.00001, + 0.00002, 0.00044, 0.00217, + 0.31109, 0.07503, 0.07750, 0.00164, 0.00001, + 0.00002, 0.00061, 0.00193, + 0.28053, 0.06625, 0.06078, 0.00141, 0.00001, + 0.00006, 0.00065, 0.00179, + 0.25532, 0.05930, 0.04893, 0.00126, 0.00003, + 0.00001, 0.00068, 0.00175, + 0.23414, 0.05361, 0.04021, 0.00122, 0.00005, + 0.00001, 0.00067, 0.00163, + 0.21632, 0.04889, 0.03361, 0.00122, 0.00009, + 0.00001, 0.00065, 0.00129, + 0.20086, 0.04483, 0.02853, 0.00114, 0.00014, + 0.00003, 0.00062, 0.00119 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.18713, 0.04140, 0.02447, 0.00115, 0.00009, + 0.00000, 0.00055, 0.00115, + 0.17529, 0.03838, 0.02126, 0.00114, 0.00012, + 0.00002, 0.00052, 0.00100, + 0.16486, 0.03575, 0.01864, 0.00104, 0.00014, + 0.00003, 0.00049, 0.00086, + 0.15552, 0.03344, 0.01648, 0.00093, 0.00013, + 0.00003, 0.00045, 0.00077, + 0.14717, 0.03134, 0.01469, 0.00086, 0.00015, + 0.00005, 0.00045, 0.00068, + 0.13953, 0.02948, 0.01318, 0.00075, 0.00017, + 0.00006, 0.00044, 0.00072, + 0.13246, 0.02783, 0.01191, 0.00073, 0.00016, + 0.00006, 0.00041, 0.00072 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.12589, 0.02633, 0.01081, 0.00079, 0.00014, + 0.00005, 0.00038, 0.00067, + 0.12026, 0.02496, 0.00986, 0.00069, 0.00016, + 0.00005, 0.00037, 0.00059, + 0.11513, 0.02372, 0.00904, 0.00056, 0.00016, + 0.00005, 0.00037, 0.00050, + 0.11021, 0.02256, 0.00833, 0.00048, 0.00013, + 0.00005, 0.00034, 0.00052, + 0.10569, 0.02152, 0.00770, 0.00042, 0.00011, + 0.00006, 0.00032, 0.00054 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.31340, 0.07287, 0.08010, 0.00120, 0.00001, + 0.00000, 0.00026, 0.00137, + 0.27667, 0.06280, 0.05995, 0.00110, 0.00001, + 0.00001, 0.00043, 0.00136, + 0.24737, 0.05510, 0.04647, 0.00115, 0.00001, + 0.00001, 0.00044, 0.00107, + 0.22381, 0.04895, 0.03700, 0.00105, 0.00001, + 0.00005, 0.00050, 0.00094, + 0.20373, 0.04404, 0.03013, 0.00121, 0.00001, + 0.00005, 0.00043, 0.00079, + 0.18738, 0.03996, 0.02500, 0.00103, 0.00003, + 0.00002, 0.00040, 0.00075, + 0.17334, 0.03646, 0.02106, 0.00095, 0.00005, + 0.00001, 0.00036, 0.00067 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.16108, 0.03352, 0.01798, 0.00088, 0.00009, + 0.00003, 0.00036, 0.00061, + 0.15027, 0.03098, 0.01552, 0.00074, 0.00007, + 0.00003, 0.00033, 0.00065, + 0.14064, 0.02873, 0.01354, 0.00071, 0.00008, + 0.00001, 0.00031, 0.00054, + 0.13214, 0.02678, 0.01192, 0.00072, 0.00011, + 0.00002, 0.00031, 0.00045, + 0.12473, 0.02501, 0.01058, 0.00051, 0.00009, + 0.00004, 0.00030, 0.00057, + 0.11790, 0.02348, 0.00945, 0.00043, 0.00010, + 0.00004, 0.00028, 0.00051, + 0.11168, 0.02208, 0.00849, 0.00039, 0.00010, + 0.00004, 0.00026, 0.00044 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.10602, 0.02082, 0.00769, 0.00039, 0.00009, + 0.00003, 0.00024, 0.00040, + 0.10082, 0.01970, 0.00700, 0.00038, 0.00009, + 0.00004, 0.00023, 0.00039, + 0.09609, 0.01867, 0.00640, 0.00039, 0.00011, + 0.00005, 0.00023, 0.00040, + 0.09175, 0.01774, 0.00588, 0.00036, 0.00009, + 0.00005, 0.00021, 0.00035, + 0.08775, 0.01688, 0.00543, 0.00034, 0.00010, + 0.00005, 0.00020, 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.27888, 0.06083, 0.06204, 0.00057, 0.00001, + 0.00005, 0.00015, 0.00079, + 0.24346, 0.05199, 0.04573, 0.00083, 0.00001, + 0.00003, 0.00020, 0.00080, + 0.21650, 0.04514, 0.03499, 0.00051, 0.00001, + 0.00001, 0.00022, 0.00075, + 0.19412, 0.03987, 0.02754, 0.00064, 0.00001, + 0.00006, 0.00024, 0.00061, + 0.17601, 0.03561, 0.02221, 0.00056, 0.00001, + 0.00006, 0.00020, 0.00052, + 0.16082, 0.03211, 0.01828, 0.00058, 0.00003, + 0.00002, 0.00025, 0.00050, + 0.14782, 0.02920, 0.01528, 0.00054, 0.00002, + 0.00002, 0.00025, 0.00052 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.13676, 0.02670, 0.01295, 0.00045, 0.00007, + 0.00001, 0.00021, 0.00041, + 0.12707, 0.02456, 0.01112, 0.00040, 0.00009, + 0.00001, 0.00022, 0.00039, + 0.11846, 0.02270, 0.00964, 0.00037, 0.00008, + 0.00003, 0.00023, 0.00042, + 0.11088, 0.02105, 0.00844, 0.00033, 0.00009, + 0.00003, 0.00022, 0.00042, + 0.10430, 0.01963, 0.00746, 0.00024, 0.00008, + 0.00002, 0.00023, 0.00039, + 0.09809, 0.01833, 0.00665, 0.00031, 0.00009, + 0.00002, 0.00021, 0.00029, + 0.09258, 0.01719, 0.00596, 0.00031, 0.00009, + 0.00003, 0.00018, 0.00025 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08775, 0.01616, 0.00538, 0.00021, 0.00009, + 0.00004, 0.00018, 0.00030, + 0.08322, 0.01524, 0.00488, 0.00021, 0.00009, + 0.00004, 0.00018, 0.00027, + 0.07909, 0.01442, 0.00445, 0.00021, 0.00009, + 0.00005, 0.00017, 0.00025, + 0.07531, 0.01364, 0.00408, 0.00020, 0.00010, + 0.00005, 0.00016, 0.00023, + 0.07185, 0.01294, 0.00376, 0.00019, 0.00008, + 0.00005, 0.00015, 0.00021 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.24440, 0.04987, 0.04722, 0.00033, 0.00001, + 0.00005, 0.00006, 0.00047, + 0.21132, 0.04215, 0.03429, 0.00041, 0.00001, + 0.00006, 0.00011, 0.00044, + 0.18597, 0.03635, 0.02586, 0.00051, 0.00001, + 0.00004, 0.00014, 0.00039, + 0.16571, 0.03185, 0.02013, 0.00040, 0.00004, + 0.00001, 0.00018, 0.00049, + 0.14944, 0.02827, 0.01609, 0.00030, 0.00004, + 0.00003, 0.00020, 0.00034, + 0.13588, 0.02534, 0.01313, 0.00022, 0.00003, + 0.00002, 0.00018, 0.00031, + 0.12427, 0.02291, 0.01090, 0.00023, 0.00005, + 0.00001, 0.00018, 0.00030 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.11431, 0.02089, 0.00917, 0.00024, 0.00007, + 0.00001, 0.00019, 0.00027, + 0.10559, 0.01912, 0.00783, 0.00027, 0.00005, + 0.00001, 0.00013, 0.00019, + 0.09806, 0.01760, 0.00676, 0.00023, 0.00005, + 0.00000, 0.00012, 0.00018, + 0.09151, 0.01627, 0.00589, 0.00016, 0.00007, + 0.00002, 0.00016, 0.00020, + 0.08567, 0.01509, 0.00519, 0.00013, 0.00009, + 0.00004, 0.00016, 0.00016, + 0.08042, 0.01407, 0.00461, 0.00009, 0.00008, + 0.00003, 0.00013, 0.00016, + 0.07566, 0.01315, 0.00412, 0.00008, 0.00008, + 0.00003, 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.07131, 0.01232, 0.00370, 0.00012, 0.00008, + 0.00002, 0.00012, 0.00014, + 0.06746, 0.01159, 0.00335, 0.00011, 0.00007, + 0.00003, 0.00013, 0.00015, + 0.06399, 0.01093, 0.00304, 0.00009, 0.00007, + 0.00003, 0.00013, 0.00015, + 0.06076, 0.01032, 0.00279, 0.00007, 0.00005, + 0.00003, 0.00010, 0.00014, + 0.05782, 0.00976, 0.00256, 0.00005, 0.00005, + 0.00002, 0.00009, 0.00013 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.21180, 0.04060, 0.03552, 0.00040, 0.00001, + 0.00010, 0.00001, 0.00035, + 0.18146, 0.03395, 0.02538, 0.00045, 0.00001, + 0.00006, 0.00002, 0.00030, + 0.15829, 0.02909, 0.01893, 0.00044, 0.00001, + 0.00007, 0.00008, 0.00024, + 0.14038, 0.02532, 0.01458, 0.00021, 0.00001, + 0.00007, 0.00007, 0.00017, + 0.12549, 0.02231, 0.01155, 0.00023, 0.00001, + 0.00004, 0.00009, 0.00026, + 0.11345, 0.01988, 0.00936, 0.00021, 0.00002, + 0.00005, 0.00008, 0.00016, + 0.10312, 0.01790, 0.00771, 0.00027, 0.00003, + 0.00002, 0.00012, 0.00015 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.09442, 0.01622, 0.00646, 0.00023, 0.00003, + 0.00002, 0.00010, 0.00016, + 0.08701, 0.01480, 0.00549, 0.00015, 0.00004, + 0.00000, 0.00008, 0.00014, + 0.08055, 0.01356, 0.00472, 0.00010, 0.00004, + 0.00000, 0.00009, 0.00013, + 0.07481, 0.01248, 0.00410, 0.00008, 0.00004, + 0.00000, 0.00008, 0.00013, + 0.06965, 0.01154, 0.00359, 0.00013, 0.00004, + 0.00001, 0.00006, 0.00014, + 0.06513, 0.01073, 0.00317, 0.00012, 0.00003, + 0.00001, 0.00007, 0.00013, + 0.06113, 0.00999, 0.00283, 0.00011, 0.00003, + 0.00000, 0.00007, 0.00011 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05755, 0.00934, 0.00254, 0.00007, 0.00002, + 0.00001, 0.00007, 0.00010, + 0.05429, 0.00876, 0.00229, 0.00006, 0.00002, + 0.00001, 0.00006, 0.00007, + 0.05135, 0.00824, 0.00208, 0.00004, 0.00002, + 0.00000, 0.00006, 0.00006, + 0.04866, 0.00776, 0.00190, 0.00001, 0.00004, + 0.00001, 0.00006, 0.00009, + 0.04620, 0.00733, 0.00174, 0.00002, 0.00004, + 0.00002, 0.00006, 0.00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.18063, 0.03217, 0.02606, 0.00015, 0.00001, + 0.00004, 0.00001, 0.00014, + 0.15337, 0.02677, 0.01841, 0.00024, 0.00001, + 0.00003, 0.00001, 0.00016, + 0.13272, 0.02277, 0.01358, 0.00022, 0.00001, + 0.00004, 0.00002, 0.00018, + 0.11667, 0.01970, 0.01038, 0.00022, 0.00001, + 0.00002, 0.00002, 0.00012, + 0.10374, 0.01728, 0.00815, 0.00023, 0.00001, + 0.00001, 0.00003, 0.00008, + 0.09320, 0.01534, 0.00655, 0.00017, 0.00001, + 0.00002, 0.00001, 0.00012, + 0.08453, 0.01373, 0.00537, 0.00009, 0.00001, + 0.00002, 0.00000, 0.00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.07706, 0.01240, 0.00447, 0.00008, 0.00001, + 0.00001, 0.00002, 0.00010, + 0.07062, 0.01126, 0.00378, 0.00009, 0.00001, + 0.00000, 0.00004, 0.00011, + 0.06505, 0.01029, 0.00323, 0.00010, 0.00000, + 0.00000, 0.00003, 0.00009, + 0.06018, 0.00946, 0.00279, 0.00012, 0.00000, + 0.00001, 0.00003, 0.00007, + 0.05588, 0.00872, 0.00244, 0.00012, 0.00000, + 0.00001, 0.00003, 0.00005, + 0.05210, 0.00807, 0.00215, 0.00010, 0.00001, + 0.00000, 0.00003, 0.00007, + 0.04872, 0.00750, 0.00191, 0.00008, 0.00001, + 0.00000, 0.00003, 0.00007 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.04565, 0.00699, 0.00171, 0.00009, 0.00001, + 0.00000, 0.00002, 0.00007, + 0.04298, 0.00653, 0.00154, 0.00006, 0.00001, + 0.00000, 0.00002, 0.00007, + 0.04058, 0.00612, 0.00139, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00007, + 0.03832, 0.00576, 0.00127, 0.00003, 0.00001, + 0.00000, 0.00002, 0.00006, + 0.03629, 0.00542, 0.00116, 0.00003, 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.12459, 0.01917, 0.01314, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00005, + 0.10362, 0.01561, 0.00898, 0.00008, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.08808, 0.01306, 0.00644, 0.00006, 0.00001, + 0.00002, 0.00000, 0.00002, + 0.07623, 0.01111, 0.00480, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00005, + 0.06687, 0.00962, 0.00370, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00007, + 0.05939, 0.00844, 0.00292, 0.00001, 0.00000, + 0.00000, 0.00002, 0.00006, + 0.05313, 0.00748, 0.00236, 0.00001, 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=8,14)/ + 0.04796, 0.00668, 0.00194, 0.00001, 0.00002, + 0.00000, 0.00002, 0.00001, + 0.04353, 0.00600, 0.00162, 0.00001, 0.00002, + 0.00000, 0.00002, 0.00002, + 0.03969, 0.00543, 0.00137, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.03639, 0.00495, 0.00118, 0.00003, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.03356, 0.00453, 0.00102, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.03104, 0.00417, 0.00089, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02881, 0.00383, 0.00079, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02684, 0.00356, 0.00070, 0.00002, 0.00001, + 0.00001, 0.00002, 0.00001, + 0.02508, 0.00331, 0.00063, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02350, 0.00309, 0.00056, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02209, 0.00288, 0.00051, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02080, 0.00270, 0.00047, 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.07957, 0.01048, 0.00596, 0.00004, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.06469, 0.00834, 0.00393, 0.00007, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.05390, 0.00684, 0.00274, 0.00003, 0.00001, + 0.00001, 0.00001, 0.00004, + 0.04590, 0.00574, 0.00200, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.03967, 0.00488, 0.00151, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.03470, 0.00422, 0.00117, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.03070, 0.00370, 0.00093, 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=8,14)/ + 0.02737, 0.00326, 0.00076, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02458, 0.00292, 0.00062, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02222, 0.00261, 0.00052, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02021, 0.00236, 0.00044, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01843, 0.00213, 0.00038, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01690, 0.00194, 0.00033, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01559, 0.00179, 0.00029, 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.01441, 0.00164, 0.00026, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01337, 0.00151, 0.00023, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01244, 0.00140, 0.00021, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01161, 0.00129, 0.00019, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01087, 0.00121, 0.00017, 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.04536, 0.00498, 0.00231, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.03601, 0.00389, 0.00147, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02947, 0.00313, 0.00100, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02460, 0.00257, 0.00071, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.02086, 0.00217, 0.00052, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01798, 0.00184, 0.00040, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01568, 0.00160, 0.00031, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ + 0.01382, 0.00139, 0.00025, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01226, 0.00123, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01096, 0.00109, 0.00017, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00987, 0.00097, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00894, 0.00087, 0.00012, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00812, 0.00079, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00741, 0.00071, 0.00009, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + 0.00680, 0.00066, 0.00008, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00627, 0.00060, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00579, 0.00055, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00536, 0.00051, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00498, 0.00047, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + 0.02210, 0.00199, 0.00072, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01702, 0.00150, 0.00044, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01355, 0.00117, 0.00029, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01104, 0.00096, 0.00020, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00919, 0.00077, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00778, 0.00065, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00668, 0.00057, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ + 0.00579, 0.00049, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00507, 0.00041, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00448, 0.00036, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00398, 0.00031, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00356, 0.00028, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00321, 0.00025, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00289, 0.00022, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + 0.00264, 0.00019, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00240, 0.00018, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00220, 0.00017, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00202, 0.00015, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00186, 0.00014, 0.00001, 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=1,7)/ + 0.00204, 0.00011, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00145, 0.00008, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00107, 0.00006, 0.00001, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00084, 0.00004, 0.00001, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00065, 0.00004, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00052, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00044, 0.00002, 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.00037, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00022, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00016, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00015, 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.00008, 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,7,0,0,7,7/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ C XSAVE=X C IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C READ(55,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) C X=XSAVE C RETURN END