* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:30:14 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:41 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFMSBA(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE NEW "A" FIT -- May 1994 -- standard Q^2 range C #include "pdf/impdp.inc" C 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.00383, 0.00653, 28.15842, 2.66466, 0.26782, + 0.00000, 1.41125, 2.66188, + 0.00424, 0.00681, 40.95661, 3.06669, 0.72520, + 0.00000, 1.84358, 3.06487, + 0.00462, 0.00707, 55.69226, 3.52457, 1.23064, + 0.00000, 2.32757, 3.52363, + 0.00497, 0.00731, 71.98843, 4.03218, 1.77997, + 0.34007, 2.85815, 4.03207, + 0.00531, 0.00753, 89.79082, 4.58542, 2.37052, + 0.97946, 3.43198, 4.58611, + 0.00563, 0.00774, 108.92063, 5.18108, 2.99995, + 1.62786, 4.04631, 5.18253, + 0.00594, 0.00795, 129.17682, 5.81455, 3.66427, + 2.31175, 4.69687, 5.81673 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.00624, 0.00814, 150.39406, 6.48174, 4.35982, + 3.02502, 5.37980, 6.48462, + 0.00652, 0.00833, 172.43767, 7.17909, 5.08341, + 3.76499, 6.09173, 7.18264, + 0.00680, 0.00851, 195.20667, 7.90361, 5.83233, + 4.52908, 6.82983, 7.90783, + 0.00707, 0.00868, 218.62808, 8.65304, 6.60453, + 5.31542, 7.59195, 8.65788, + 0.00733, 0.00885, 242.57538, 9.42471, 7.39756, + 6.12166, 8.37553, 9.43016, + 0.00759, 0.00901, 266.79108, 10.21366, 8.20665, + 6.94318, 9.17574, 10.21972, + 0.00783, 0.00917, 291.48782, 11.02185, 9.03382, + 7.78204, 9.99453, 11.02848 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.00808, 0.00932, 316.54001, 11.84695, 9.87688, + 8.63616, 10.82968, 11.85414, + 0.00831, 0.00947, 341.62692, 12.68269, 10.72970, + 9.49945, 11.67498, 12.69042, + 0.00854, 0.00961, 367.17233, 13.53576, 11.59899, + 10.37867, 12.53714, 13.54402, + 0.00877, 0.00976, 392.56421, 14.39482, 12.47355, + 11.26270, 13.40489, 14.40360, + 0.00899, 0.00989, 418.32065, 15.26866, 13.36216, + 12.16033, 14.28701, 15.27794 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.00579, 0.00839, 22.78315, 2.15515, 0.21426, + 0.00000, 1.13797, 2.15464, + 0.00636, 0.00877, 32.73079, 2.46979, 0.57339, + 0.00000, 1.47669, 2.46986, + 0.00689, 0.00911, 43.96273, 2.82321, 0.96497, + 0.00000, 1.85080, 2.82382, + 0.00738, 0.00943, 56.16534, 3.21005, 1.38526, + 0.25995, 2.25582, 3.21117, + 0.00785, 0.00973, 69.29437, 3.62713, 1.83220, + 0.74521, 2.68916, 3.62872, + 0.00830, 0.01002, 83.20822, 4.07170, 2.30378, + 1.23206, 3.14846, 4.07376, + 0.00872, 0.01029, 97.75517, 4.54012, 2.79684, + 1.74079, 3.63033, 4.54261 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.00913, 0.01054, 112.81502, 5.02922, 3.30858, + 2.26672, 4.13180, 5.03214, + 0.00953, 0.01079, 128.29343, 5.53634, 3.83662, + 2.80787, 4.65036, 5.53965, + 0.00991, 0.01103, 144.12270, 6.05927, 4.37899, + 3.36238, 5.18395, 6.06298, + 0.01028, 0.01125, 160.25618, 6.59641, 4.93426, + 3.92896, 5.73103, 6.60049, + 0.01064, 0.01147, 176.60817, 7.14582, 5.50066, + 4.50594, 6.28976, 7.15026, + 0.01098, 0.01169, 193.00063, 7.70383, 6.07467, + 5.08989, 6.85655, 7.70862, + 0.01132, 0.01189, 209.59521, 8.27215, 6.65806, + 5.68264, 7.43316, 8.27728 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.01165, 0.01209, 226.30714, 8.84913, 7.24931, + 6.28271, 8.01798, 8.85459, + 0.01197, 0.01229, 242.91707, 9.43015, 7.84388, + 6.88566, 8.60646, 9.43594, + 0.01228, 0.01247, 259.72992, 10.02044, 8.44703, + 7.49675, 9.20383, 10.02654, + 0.01259, 0.01266, 276.32343, 10.61163, 9.05049, + 8.10778, 9.80177, 10.61803, + 0.01288, 0.01284, 293.06424, 11.21039, 9.66095, + 8.72545, 10.40698, 11.21708 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.00862, 0.01079, 18.43334, 1.74251, 0.17137, + 0.00000, 0.91755, 1.74354, + 0.00942, 0.01129, 26.15385, 1.98844, 0.45309, + 0.00000, 1.18265, 1.98981, + 0.01016, 0.01176, 34.69698, 2.26072, 0.75605, + 0.00000, 1.47138, 2.26242, + 0.01085, 0.01218, 43.80949, 2.55486, 1.07703, + 0.19835, 1.77993, 2.55686, + 0.01150, 0.01258, 53.46115, 2.86845, 1.41456, + 0.56595, 2.10639, 2.87073, + 0.01212, 0.01296, 63.54490, 3.19929, 1.76704, + 0.93070, 2.44886, 3.20183, + 0.01271, 0.01331, 73.95010, 3.54455, 2.13201, + 1.30822, 2.80473, 3.54734 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.01327, 0.01365, 84.59291, 3.90185, 2.50741, + 1.69498, 3.17178, 3.90489, + 0.01381, 0.01398, 95.41053, 4.26926, 2.89153, + 2.08959, 3.54820, 4.27252, + 0.01434, 0.01429, 106.36025, 4.64524, 3.28302, + 2.49080, 3.93254, 4.64872, + 0.01484, 0.01459, 117.41489, 5.02866, 3.68091, + 2.89773, 4.32378, 5.03236, + 0.01533, 0.01488, 128.51851, 5.41818, 4.08396, + 3.30925, 4.72060, 5.42208, + 0.01580, 0.01516, 139.54984, 5.81109, 4.48961, + 3.72285, 5.12040, 5.81519, + 0.01626, 0.01543, 150.63226, 6.20892, 4.89945, + 4.14017, 5.52471, 6.21321 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.01671, 0.01569, 161.71013, 6.61051, 5.31237, + 4.56016, 5.93243, 6.61498, + 0.01714, 0.01594, 172.63414, 7.01250, 5.72513, + 4.97961, 6.34024, 7.01715, + 0.01756, 0.01619, 183.62479, 7.41894, 6.14179, + 5.40262, 6.75221, 7.42377, + 0.01798, 0.01643, 194.39084, 7.82370, 6.55629, + 5.82317, 7.16224, 7.82869, + 0.01838, 0.01666, 205.19286, 8.23184, 6.97373, + 6.24637, 7.57542, 8.23700 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.01083, 0.01250, 16.28428, 1.53846, 0.15036, + 0.00000, 0.80894, 1.54017, + 0.01181, 0.01310, 22.93523, 1.75120, 0.39465, + 0.00000, 1.03849, 1.75318, + 0.01270, 0.01365, 30.20590, 1.98472, 0.65519, + 0.00000, 1.28641, 1.98694, + 0.01354, 0.01415, 37.87578, 2.23498, 0.92907, + 0.16916, 1.54928, 2.23742, + 0.01432, 0.01462, 45.92312, 2.50000, 1.21515, + 0.48132, 1.82553, 2.50264, + 0.01507, 0.01506, 54.25890, 2.77786, 1.51203, + 0.78902, 2.11355, 2.78069, + 0.01578, 0.01549, 62.79275, 3.06616, 1.81766, + 1.10565, 2.41111, 3.06918 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.01646, 0.01589, 71.45830, 3.36294, 2.13034, + 1.42830, 2.71639, 3.36613, + 0.01711, 0.01627, 80.20737, 3.66660, 2.44867, + 1.75584, 3.02790, 3.66996, + 0.01774, 0.01663, 89.00863, 3.97591, 2.77159, + 2.08729, 3.34449, 3.97943, + 0.01835, 0.01699, 97.84350, 4.29001, 3.09837, + 2.42202, 3.66537, 4.29367, + 0.01894, 0.01732, 106.66942, 4.60778, 3.42802, + 2.75909, 3.98951, 4.61160, + 0.01950, 0.01765, 115.38995, 4.92701, 3.75841, + 3.09646, 4.31471, 4.93097, + 0.02005, 0.01797, 124.11079, 5.24911, 4.09103, + 3.43564, 4.64244, 5.25320 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.02058, 0.01827, 132.78889, 5.57313, 4.42499, + 3.77580, 4.97179, 5.57736, + 0.02110, 0.01857, 141.30566, 5.89632, 4.75760, + 4.11428, 5.30002, 5.90066, + 0.02161, 0.01885, 149.84323, 6.22216, 5.09238, + 4.45463, 5.63065, 6.22663, + 0.02210, 0.01913, 158.16785, 6.54552, 5.42427, + 4.79183, 5.95859, 6.55011, + 0.02258, 0.01940, 166.49304, 6.87075, 5.75763, + 5.13024, 6.28818, 6.87545 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.01271, 0.01388, 14.91292, 1.40814, 0.13702, + 0.00000, 0.73975, 1.41028, + 0.01383, 0.01456, 20.89327, 1.60001, 0.35774, + 0.00000, 0.94694, 1.60238, + 0.01486, 0.01517, 27.37356, 1.80930, 0.59174, + 0.00000, 1.16936, 1.81186, + 0.01581, 0.01574, 34.15500, 2.03230, 0.83633, + 0.15102, 1.40383, 2.03505, + 0.01671, 0.01627, 41.22172, 2.26730, 1.09057, + 0.42883, 1.64906, 2.27022, + 0.01757, 0.01677, 48.49636, 2.51259, 1.35323, + 0.70137, 1.90358, 2.51566, + 0.01838, 0.01724, 55.90141, 2.76604, 1.62250, + 0.98067, 2.16544, 2.76926 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.01916, 0.01769, 63.38121, 3.02593, 1.89691, + 1.26417, 2.43306, 3.02930, + 0.01990, 0.01812, 70.89649, 3.29090, 2.17526, + 1.55092, 2.70515, 3.29440, + 0.02062, 0.01853, 78.42281, 3.55990, 2.45668, + 1.84011, 2.98076, 3.56353, + 0.02131, 0.01892, 85.94665, 3.83222, 2.74057, + 2.13124, 3.25923, 3.83597, + 0.02197, 0.01930, 93.43315, 4.10692, 3.02609, + 2.42353, 3.53969, 4.11078, + 0.02262, 0.01967, 100.80080, 4.38205, 3.31140, + 2.71520, 3.82025, 4.38603, + 0.02324, 0.02002, 108.14440, 4.65896, 3.59789, + 3.00767, 4.10226, 4.66305 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.02385, 0.02036, 115.42803, 4.93683, 3.88482, + 3.30025, 4.38495, 4.94102, + 0.02443, 0.02069, 122.55126, 5.21326, 4.16983, + 3.59061, 4.66595, 5.21755, + 0.02501, 0.02101, 129.67320, 5.49139, 4.45611, + 3.88197, 4.94842, 5.49578, + 0.02556, 0.02132, 136.59415, 5.76672, 4.73921, + 4.16990, 5.22789, 5.77120, + 0.02610, 0.02162, 143.49922, 6.04313, 5.02301, + 4.45831, 5.50824, 6.04770 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.01437, 0.01506, 13.92903, 1.31459, 0.12748, + 0.00000, 0.69017, 1.31704, + 0.01561, 0.01580, 19.43438, 1.49164, 0.33147, + 0.00000, 0.88149, 1.49428, + 0.01676, 0.01648, 25.35865, 1.68380, 0.54669, + 0.00000, 1.08587, 1.68663, + 0.01782, 0.01710, 31.51905, 1.88763, 0.77066, + 0.13825, 1.30038, 1.89062, + 0.01882, 0.01768, 37.90410, 2.10159, 1.00258, + 0.39196, 1.52386, 2.10473, + 0.01977, 0.01822, 44.44489, 2.32414, 1.24132, + 0.63992, 1.75499, 2.32742, + 0.02067, 0.01874, 51.07295, 2.55334, 1.48527, + 0.89320, 1.99201, 2.55675 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.02153, 0.01923, 57.74014, 2.78765, 1.73311, + 1.14949, 2.23349, 2.79119, + 0.02236, 0.01970, 64.41331, 3.02587, 1.98380, + 1.40800, 2.47832, 3.02952, + 0.02315, 0.02015, 71.07264, 3.26707, 2.23658, + 1.66801, 2.72566, 3.27084, + 0.02391, 0.02058, 77.70800, 3.51066, 2.49094, + 1.92912, 2.97497, 3.51453, + 0.02465, 0.02099, 84.28979, 3.75581, 2.74618, + 2.19064, 3.22547, 3.75978, + 0.02536, 0.02139, 90.74677, 4.00077, 3.00061, + 2.45100, 3.47545, 4.00484, + 0.02605, 0.02177, 97.16567, 4.24682, 3.25559, + 2.71154, 3.72623, 4.25098 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.02671, 0.02214, 103.51585, 4.49325, 3.51045, + 2.97165, 3.97714, 4.49750, + 0.02736, 0.02250, 109.70876, 4.73789, 3.76308, + 3.22926, 4.22601, 4.74222, + 0.02799, 0.02285, 115.88792, 4.98364, 4.01642, + 3.48733, 4.47580, 4.98807, + 0.02860, 0.02319, 121.87642, 5.22645, 4.26645, + 3.74185, 4.72243, 5.23095, + 0.02920, 0.02352, 127.84000, 5.46984, 4.51673, + 3.99642, 4.96948, 5.47442 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.02093, 0.01941, 11.26643, 1.06105, 0.10183, + 0.00000, 0.55629, 1.06444, + 0.02268, 0.02041, 15.51377, 1.19866, 0.26125, + 0.00000, 0.70541, 1.20223, + 0.02428, 0.02130, 19.98321, 1.34567, 0.42692, + 0.00000, 0.86226, 1.34940, + 0.02575, 0.02213, 24.53687, 1.49934, 0.59687, + 0.10483, 1.02451, 1.50321, + 0.02713, 0.02290, 29.17542, 1.65866, 0.77070, + 0.29572, 1.19148, 1.66267, + 0.02844, 0.02362, 33.85272, 1.82251, 0.94763, + 0.48005, 1.36222, 1.82664, + 0.02968, 0.02430, 38.52400, 1.98949, 1.12652, + 0.66639, 1.53548, 1.99373 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.03086, 0.02495, 43.16029, 2.15854, 1.30648, + 0.85312, 1.71027, 2.16289, + 0.03199, 0.02557, 47.74363, 2.32885, 1.48686, + 1.03974, 1.88589, 2.33330, + 0.03307, 0.02616, 52.26545, 2.49987, 1.66720, + 1.22587, 2.06181, 2.50441, + 0.03411, 0.02672, 56.72363, 2.67124, 1.84726, + 1.41131, 2.23775, 2.67587, + 0.03511, 0.02726, 61.10136, 2.84242, 2.02656, + 1.59564, 2.41321, 2.84714, + 0.03607, 0.02778, 65.35197, 3.01218, 2.20396, + 1.77777, 2.58699, 3.01698, + 0.03700, 0.02828, 69.54204, 3.18162, 2.38058, + 1.95884, 2.76022, 3.18650 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.03790, 0.02876, 73.65256, 3.35028, 2.55602, + 2.13848, 2.93244, 3.35523, + 0.03877, 0.02923, 77.62486, 3.51659, 2.72877, + 2.31520, 3.10214, 3.52162, + 0.03962, 0.02968, 81.56219, 3.68282, 2.90110, + 2.49131, 3.27158, 3.68792, + 0.04044, 0.03012, 85.34420, 3.84601, 3.07010, + 2.66389, 3.43782, 3.85117, + 0.04124, 0.03055, 89.08799, 4.00884, 3.23846, + 2.83568, 3.60356, 4.01406 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.03032, 0.02511, 9.10952, 0.85512, 0.08122, + 0.00000, 0.44819, 0.85959, + 0.03276, 0.02644, 12.36868, 0.96155, 0.20539, + 0.00000, 0.56399, 0.96625, + 0.03498, 0.02763, 15.71702, 1.07334, 0.33235, + 0.00000, 0.68380, 1.07825, + 0.03701, 0.02873, 19.05450, 1.18838, 0.46064, + 0.07908, 0.80583, 1.19348, + 0.03892, 0.02974, 22.39167, 1.30611, 0.59016, + 0.22192, 0.92978, 1.31137, + 0.04071, 0.03070, 25.70026, 1.42573, 0.72041, + 0.35811, 1.05501, 1.43115, + 0.04241, 0.03160, 28.95338, 1.54627, 0.85063, + 0.49428, 1.18066, 1.55184 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.04402, 0.03245, 32.13588, 1.66706, 0.98029, + 0.62934, 1.30612, 1.67276, + 0.04555, 0.03326, 35.24037, 1.78758, 1.10899, + 0.76302, 1.43095, 1.79342, + 0.04702, 0.03403, 38.26561, 1.90753, 1.23652, + 0.89517, 1.55490, 1.91349, + 0.04842, 0.03476, 41.21448, 2.02674, 1.36278, + 1.02573, 1.67783, 2.03281, + 0.04977, 0.03547, 44.07856, 2.14488, 1.48753, + 1.15449, 1.79945, 2.15107, + 0.05106, 0.03614, 46.82820, 2.26109, 1.60994, + 1.28068, 1.91893, 2.26739, + 0.05231, 0.03679, 49.51406, 2.37632, 1.73101, + 1.40529, 2.03723, 2.38272 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.05352, 0.03742, 52.12506, 2.49026, 1.85046, + 1.52809, 2.15407, 2.49675, + 0.05469, 0.03802, 54.62273, 2.60181, 1.96723, + 1.64804, 2.26838, 2.60840, + 0.05582, 0.03860, 57.08110, 2.71272, 2.08310, + 1.76692, 2.38190, 2.71940, + 0.05691, 0.03917, 59.41876, 2.82084, 2.19594, + 1.88262, 2.49251, 2.82761, + 0.05798, 0.03972, 61.71810, 2.92821, 2.30782, + 1.99722, 2.60225, 2.93506 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.03759, 0.02928, 8.04229, 0.75299, 0.07107, + 0.00000, 0.39483, 0.75825, + 0.04054, 0.03084, 10.82227, 0.84422, 0.17806, + 0.00000, 0.49442, 0.84977, + 0.04322, 0.03225, 13.63543, 0.93905, 0.28637, + 0.00000, 0.59640, 0.94486, + 0.04567, 0.03354, 16.40099, 1.03570, 0.39478, + 0.06681, 0.69927, 1.04173, + 0.04796, 0.03474, 19.13413, 1.13379, 0.50335, + 0.18688, 0.80292, 1.14004, + 0.05011, 0.03586, 21.81510, 1.23270, 0.61172, + 0.30047, 0.90685, 1.23915, + 0.05214, 0.03691, 24.42526, 1.33169, 0.71931, + 0.41327, 1.01040, 1.33833 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.05407, 0.03791, 26.95555, 1.43024, 0.82574, + 0.52443, 1.11312, 1.43705, + 0.05589, 0.03885, 29.40300, 1.52799, 0.93076, + 0.63382, 1.21473, 1.53497, + 0.05764, 0.03975, 31.76937, 1.62473, 1.03425, + 0.74134, 1.31504, 1.63187, + 0.05931, 0.04061, 34.05931, 1.72038, 1.13618, + 0.84703, 1.41402, 1.72766, + 0.06091, 0.04143, 36.26794, 1.81471, 1.23638, + 0.95075, 1.51146, 1.82213, + 0.06244, 0.04221, 38.37289, 1.90703, 1.33422, + 1.05189, 1.60671, 1.91459, + 0.06392, 0.04297, 40.41710, 1.99819, 1.43057, + 1.15135, 1.70062, 2.00588 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.06534, 0.04369, 42.39277, 2.08795, 1.52525, + 1.24895, 1.79299, 2.09577, + 0.06672, 0.04439, 44.27015, 2.17545, 1.61739, + 1.34387, 1.88294, 2.18338, + 0.06805, 0.04507, 46.10979, 2.26215, 1.70851, + 1.43762, 1.97198, 2.27019, + 0.06934, 0.04572, 47.84745, 2.34630, 1.79686, + 1.52848, 2.05836, 2.35446, + 0.07059, 0.04635, 49.54973, 2.42961, 1.88418, + 1.61820, 2.14380, 2.43788 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.04376, 0.03271, 7.36026, 0.68763, 0.06460, + 0.00000, 0.36076, 0.69355, + 0.04714, 0.03447, 9.83669, 0.76922, 0.16068, + 0.00000, 0.45006, 0.77548, + 0.05019, 0.03606, 12.31420, 0.85336, 0.25723, + 0.00000, 0.54081, 0.85992, + 0.05299, 0.03751, 14.72451, 0.93849, 0.35318, + 0.05913, 0.63171, 0.94532, + 0.05559, 0.03885, 17.08565, 1.02437, 0.44870, + 0.16500, 0.72272, 1.03145, + 0.05803, 0.04010, 19.38313, 1.11048, 0.54352, + 0.26457, 0.81347, 1.11779, + 0.06033, 0.04128, 21.60332, 1.19621, 0.63717, + 0.36296, 0.90341, 1.20374 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.06250, 0.04239, 23.74072, 1.28114, 0.72936, + 0.45946, 0.99222, 1.28888, + 0.06457, 0.04344, 25.79492, 1.36500, 0.81993, + 0.55399, 1.07965, 1.37294, + 0.06653, 0.04444, 27.76928, 1.44766, 0.90880, + 0.64654, 1.16562, 1.45578, + 0.06841, 0.04540, 29.66939, 1.52907, 0.99600, + 0.73716, 1.25012, 1.53736, + 0.07021, 0.04631, 31.49225, 1.60905, 1.08140, + 0.82576, 1.33299, 1.61752, + 0.07194, 0.04718, 33.21981, 1.68704, 1.16447, + 0.91183, 1.41369, 1.69567, + 0.07360, 0.04801, 34.89013, 1.76381, 1.24603, + 0.99621, 1.49301, 1.77258 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.07520, 0.04881, 36.49722, 1.83917, 1.32592, + 1.07877, 1.57078, 1.84809, + 0.07673, 0.04959, 38.01646, 1.91237, 1.40341, + 1.15878, 1.64627, 1.92143, + 0.07822, 0.05033, 39.50019, 1.98473, 1.47985, + 1.23761, 1.72081, 1.99393, + 0.07966, 0.05105, 40.89431, 2.05473, 1.55373, + 1.31377, 1.79288, 2.06406, + 0.08106, 0.05175, 42.25586, 2.12388, 1.62658, + 1.38879, 1.86400, 2.13334 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.04928, 0.03574, 6.86937, 0.64065, 0.05990, + 0.00000, 0.33610, 0.64709, + 0.05301, 0.03768, 9.12498, 0.71525, 0.14804, + 0.00000, 0.41792, 0.72206, + 0.05639, 0.03942, 11.35974, 0.79168, 0.23607, + 0.00000, 0.50053, 0.79882, + 0.05947, 0.04101, 13.51488, 0.86854, 0.32304, + 0.05360, 0.58278, 0.87597, + 0.06233, 0.04247, 15.61026, 0.94568, 0.40919, + 0.14928, 0.66472, 0.95337, + 0.06501, 0.04384, 17.63542, 1.02266, 0.49431, + 0.23882, 0.74604, 1.03061, + 0.06753, 0.04512, 19.58012, 1.09897, 0.57802, + 0.32693, 0.82629, 1.10715 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.06992, 0.04633, 21.44131, 1.17426, 0.66010, + 0.41301, 0.90520, 1.18266, + 0.07218, 0.04748, 23.22055, 1.24834, 0.74043, + 0.49702, 0.98261, 1.25694, + 0.07433, 0.04856, 24.92199, 1.32109, 0.81899, + 0.57899, 1.05846, 1.32989, + 0.07638, 0.04959, 26.55169, 1.39251, 0.89583, + 0.65901, 1.13278, 1.40150, + 0.07834, 0.05058, 28.10815, 1.46247, 0.97085, + 0.73699, 1.20543, 1.47164, + 0.08022, 0.05152, 29.57612, 1.53046, 1.04359, + 0.81253, 1.27596, 1.53980, + 0.08202, 0.05242, 30.99007, 1.59721, 1.11482, + 0.88638, 1.34510, 1.60671 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.08376, 0.05329, 32.34525, 1.66257, 1.18441, + 0.95844, 1.41272, 1.67222, + 0.08543, 0.05412, 33.62056, 1.72588, 1.25173, + 1.02810, 1.47816, 1.73568, + 0.08705, 0.05492, 34.86252, 1.78833, 1.31800, + 1.09659, 1.54266, 1.79828, + 0.08860, 0.05569, 36.02439, 1.84858, 1.38187, + 1.16258, 1.60484, 1.85866, + 0.09012, 0.05644, 37.15619, 1.90798, 1.44473, + 1.22746, 1.66609, 1.91820 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.07115, 0.04744, 5.53899, 0.51305, 0.04724, + 0.00000, 0.26968, 0.52174, + 0.07622, 0.05002, 7.20629, 0.56895, 0.11419, + 0.00000, 0.33152, 0.57813, + 0.08077, 0.05232, 8.80460, 0.62496, 0.17967, + 0.00000, 0.39264, 0.63459, + 0.08490, 0.05440, 10.30043, 0.68015, 0.24312, + 0.03913, 0.45228, 0.69018, + 0.08872, 0.05631, 11.71833, 0.73460, 0.30493, + 0.10827, 0.51069, 0.74499, + 0.09227, 0.05809, 13.05725, 0.78808, 0.36506, + 0.17194, 0.56776, 0.79881, + 0.09559, 0.05974, 14.31548, 0.84032, 0.42336, + 0.23372, 0.62326, 0.85136 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.09872, 0.06129, 15.49562, 0.89117, 0.47977, + 0.29330, 0.67711, 0.90250, + 0.10167, 0.06275, 16.60275, 0.94056, 0.53429, + 0.35074, 0.72927, 0.95217, + 0.10446, 0.06413, 17.64306, 0.98851, 0.58700, + 0.40615, 0.77979, 1.00038, + 0.10712, 0.06544, 18.62338, 1.03508, 0.63800, + 0.45967, 0.82875, 1.04719, + 0.10965, 0.06668, 19.54482, 1.08021, 0.68729, + 0.51132, 0.87613, 1.09256, + 0.11205, 0.06785, 20.39902, 1.12360, 0.73458, + 0.56081, 0.92162, 1.13616, + 0.11436, 0.06898, 21.21094, 1.16582, 0.78048, + 0.60879, 0.96583, 1.17860 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.11658, 0.07006, 21.97861, 1.20680, 0.82495, + 0.65521, 1.00869, 1.21978, + 0.11870, 0.07109, 22.68923, 1.24611, 0.86755, + 0.69967, 1.04977, 1.25927, + 0.12075, 0.07208, 23.37444, 1.28462, 0.90921, + 0.74308, 1.08999, 1.29798, + 0.12272, 0.07303, 24.00451, 1.32141, 0.94897, + 0.78453, 1.12839, 1.33494, + 0.12462, 0.07395, 24.61268, 1.35746, 0.98788, + 0.82503, 1.16598, 1.37117 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.10262, 0.06404, 4.45704, 0.40977, 0.03700, + 0.00000, 0.21612, 0.42153, + 0.10936, 0.06741, 5.65313, 0.45065, 0.08690, + 0.00000, 0.26192, 0.46307, + 0.11536, 0.07039, 6.75557, 0.49056, 0.13455, + 0.00000, 0.30606, 0.50357, + 0.12076, 0.07306, 7.75081, 0.52896, 0.17970, + 0.02790, 0.34814, 0.54247, + 0.12570, 0.07549, 8.66580, 0.56608, 0.22286, + 0.07664, 0.38855, 0.58006, + 0.13027, 0.07773, 9.50576, 0.60186, 0.26410, + 0.12069, 0.42731, 0.61627, + 0.13452, 0.07980, 10.27447, 0.63621, 0.30344, + 0.16278, 0.46439, 0.65102 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.13849, 0.08172, 10.97758, 0.66911, 0.34091, + 0.20275, 0.49978, 0.68428, + 0.14221, 0.08351, 11.62169, 0.70059, 0.37661, + 0.24076, 0.53357, 0.71610, + 0.14572, 0.08520, 12.21352, 0.73072, 0.41067, + 0.27696, 0.56585, 0.74656, + 0.14903, 0.08678, 12.75969, 0.75961, 0.44322, + 0.31150, 0.59674, 0.77575, + 0.15217, 0.08828, 13.26261, 0.78725, 0.47430, + 0.34443, 0.62626, 0.80367, + 0.15514, 0.08969, 13.71802, 0.81348, 0.50376, + 0.37563, 0.65425, 0.83017, + 0.15798, 0.09104, 14.14334, 0.83874, 0.53207, + 0.40558, 0.68118, 0.85568 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.16069, 0.09232, 14.53804, 0.86300, 0.55921, + 0.43426, 0.70701, 0.88018, + 0.16327, 0.09353, 14.89501, 0.88597, 0.58492, + 0.46143, 0.73147, 0.90338, + 0.16576, 0.09469, 15.23480, 0.90830, 0.60986, + 0.48776, 0.75524, 0.92593, + 0.16812, 0.09580, 15.53910, 0.92937, 0.63341, + 0.51262, 0.77766, 0.94721, + 0.17041, 0.09686, 15.82931, 0.94987, 0.65628, + 0.53675, 0.79945, 0.96790 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.12706, 0.07692, 3.91963, 0.35886, 0.03197, + -0.00001, 0.18999, 0.37308, + 0.13492, 0.08081, 4.88547, 0.39235, 0.07352, + -0.00001, 0.22792, 0.40733, + 0.14187, 0.08422, 5.75208, 0.42447, 0.11258, + -0.00001, 0.26387, 0.44013, + 0.14807, 0.08724, 6.51529, 0.45488, 0.14905, + 0.02258, 0.29761, 0.47112, + 0.15373, 0.08997, 7.20213, 0.48387, 0.18346, + 0.06173, 0.32959, 0.50065, + 0.15893, 0.09247, 7.82023, 0.51147, 0.21597, + 0.09669, 0.35990, 0.52873, + 0.16374, 0.09477, 8.37516, 0.53764, 0.24663, + 0.12975, 0.38854, 0.55534 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.16821, 0.09689, 8.87344, 0.56244, 0.27555, + 0.16084, 0.41561, 0.58054, + 0.17238, 0.09886, 9.32211, 0.58591, 0.30284, + 0.19013, 0.44118, 0.60440, + 0.17629, 0.10069, 9.72756, 0.60816, 0.32863, + 0.21778, 0.46538, 0.62700, + 0.17997, 0.10241, 10.09574, 0.62929, 0.35309, + 0.24396, 0.48834, 0.64846, + 0.18345, 0.10403, 10.42926, 0.64935, 0.37626, + 0.26874, 0.51012, 0.66883, + 0.18672, 0.10554, 10.72539, 0.66819, 0.39802, + 0.29201, 0.53056, 0.68795, + 0.18984, 0.10698, 10.99823, 0.68619, 0.41879, + 0.31421, 0.55009, 0.70623 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.19281, 0.10834, 11.24775, 0.70336, 0.43858, + 0.33533, 0.56870, 0.72365, + 0.19561, 0.10962, 11.46847, 0.71947, 0.45717, + 0.35519, 0.58617, 0.74000, + 0.19832, 0.11085, 11.67636, 0.73504, 0.47511, + 0.37434, 0.60305, 0.75581, + 0.20087, 0.11200, 11.85815, 0.74960, 0.49192, + 0.39229, 0.61884, 0.77058, + 0.20334, 0.11312, 12.02975, 0.76368, 0.50817, + 0.40963, 0.63412, 0.78488 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.14782, 0.08793, 3.57509, 0.32656, 0.02878, + -0.00001, 0.17350, 0.34287, + 0.15651, 0.09217, 4.39473, 0.35533, 0.06502, + -0.00001, 0.20642, 0.37248, + 0.16415, 0.09587, 5.11463, 0.38254, 0.09868, + -0.00001, 0.23722, 0.40042, + 0.17093, 0.09911, 5.73604, 0.40796, 0.12975, + 0.01928, 0.26577, 0.42648, + 0.17708, 0.10204, 6.28565, 0.43193, 0.15878, + 0.05251, 0.29255, 0.45103, + 0.18271, 0.10469, 6.77214, 0.45452, 0.18596, + 0.08191, 0.31768, 0.47413, + 0.18790, 0.10712, 7.20198, 0.47573, 0.21137, + 0.10948, 0.34121, 0.49581 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.19269, 0.10935, 7.58193, 0.49565, 0.23514, + 0.13522, 0.36326, 0.51615, + 0.19715, 0.11141, 7.91886, 0.51434, 0.25741, + 0.15931, 0.38394, 0.53525, + 0.20131, 0.11332, 8.21884, 0.53191, 0.27831, + 0.18188, 0.40335, 0.55319, + 0.20522, 0.11510, 8.48738, 0.54848, 0.29799, + 0.20313, 0.42165, 0.57010, + 0.20890, 0.11676, 8.72705, 0.56410, 0.31653, + 0.22312, 0.43888, 0.58603, + 0.21235, 0.11831, 8.93594, 0.57864, 0.33382, + 0.24177, 0.45493, 0.60086, + 0.21562, 0.11978, 9.12589, 0.59245, 0.35023, + 0.25947, 0.47019, 0.61495 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.21872, 0.12116, 9.29704, 0.60554, 0.36579, + 0.27624, 0.48464, 0.62830, + 0.22165, 0.12245, 9.44518, 0.61772, 0.38031, + 0.29190, 0.49811, 0.64072, + 0.22446, 0.12369, 9.58329, 0.62945, 0.39427, + 0.30695, 0.51106, 0.65268, + 0.22711, 0.12485, 9.70083, 0.64031, 0.40726, + 0.32097, 0.52310, 0.66376, + 0.22966, 0.12596, 9.81063, 0.65078, 0.41976, + 0.33446, 0.53469, 0.67444 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.16621, 0.09771, 3.32673, 0.30346, 0.02650, + 0.00000, 0.16182, 0.32167, + 0.17555, 0.10221, 4.04194, 0.32881, 0.05896, + 0.00000, 0.19115, 0.34793, + 0.18371, 0.10610, 4.65887, 0.35251, 0.08880, + -0.00001, 0.21827, 0.37240, + 0.19092, 0.10949, 5.18219, 0.37441, 0.11608, + 0.01696, 0.24317, 0.39497, + 0.19743, 0.11253, 5.63806, 0.39487, 0.14136, + 0.04607, 0.26631, 0.41602, + 0.20337, 0.11527, 6.03570, 0.41397, 0.16484, + 0.07162, 0.28785, 0.43566, + 0.20881, 0.11777, 6.38188, 0.43176, 0.18664, + 0.09542, 0.30788, 0.45394 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.21382, 0.12005, 6.68365, 0.44833, 0.20690, + 0.11750, 0.32650, 0.47094, + 0.21847, 0.12214, 6.94738, 0.46377, 0.22576, + 0.13803, 0.34383, 0.48678, + 0.22279, 0.12407, 7.17876, 0.47818, 0.24335, + 0.15717, 0.36001, 0.50156, + 0.22684, 0.12587, 7.38304, 0.49168, 0.25984, + 0.17510, 0.37517, 0.51541, + 0.23063, 0.12754, 7.56283, 0.50431, 0.27527, + 0.19187, 0.38935, 0.52835, + 0.23418, 0.12909, 7.71659, 0.51599, 0.28958, + 0.20745, 0.40248, 0.54032, + 0.23753, 0.13055, 7.85442, 0.52702, 0.30312, + 0.22217, 0.41490, 0.55163 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.24070, 0.13192, 7.97654, 0.53741, 0.31588, + 0.23605, 0.42660, 0.56228, + 0.24368, 0.13319, 8.07988, 0.54701, 0.32773, + 0.24895, 0.43744, 0.57211, + 0.24654, 0.13441, 8.17520, 0.55622, 0.33908, + 0.26130, 0.44783, 0.58154, + 0.24922, 0.13554, 8.25361, 0.56467, 0.34957, + 0.27275, 0.45741, 0.59020, + 0.25181, 0.13663, 8.32597, 0.57279, 0.35965, + 0.28374, 0.46661, 0.59853 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.23909, 0.13644, 2.64474, 0.24060, 0.02040, + 0.00000, 0.13077, 0.26678, + 0.25014, 0.14133, 3.07957, 0.25651, 0.04269, + -0.00001, 0.15029, 0.28367, + 0.25959, 0.14543, 3.42895, 0.27073, 0.06243, + 0.00000, 0.16761, 0.29869, + 0.26776, 0.14890, 3.70512, 0.28330, 0.07986, + 0.01097, 0.18291, 0.31193, + 0.27500, 0.15192, 3.93073, 0.29460, 0.09555, + 0.02948, 0.19666, 0.32381, + 0.28148, 0.15458, 4.11511, 0.30478, 0.10972, + 0.04528, 0.20906, 0.33449, + 0.28731, 0.15693, 4.26501, 0.31394, 0.12253, + 0.05965, 0.22025, 0.34409 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.29259, 0.15902, 4.38661, 0.32218, 0.13414, + 0.07268, 0.23036, 0.35271, + 0.29741, 0.16090, 4.48505, 0.32961, 0.14471, + 0.08455, 0.23952, 0.36047, + 0.30181, 0.16258, 4.56467, 0.33633, 0.15435, + 0.09540, 0.24785, 0.36749, + 0.30587, 0.16412, 4.62914, 0.34244, 0.16319, + 0.10536, 0.25547, 0.37387, + 0.30962, 0.16551, 4.68024, 0.34798, 0.17131, + 0.11453, 0.26242, 0.37966, + 0.31306, 0.16676, 4.71772, 0.35292, 0.17867, + 0.12286, 0.26869, 0.38480, + 0.31628, 0.16791, 4.74756, 0.35747, 0.18551, + 0.13062, 0.27448, 0.38954 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.31928, 0.16897, 4.77000, 0.36162, 0.19184, + 0.13782, 0.27983, 0.39388, + 0.32204, 0.16992, 4.78330, 0.36531, 0.19759, + 0.14439, 0.28464, 0.39771, + 0.32467, 0.17082, 4.79354, 0.36878, 0.20303, + 0.15060, 0.28918, 0.40132, + 0.32709, 0.17163, 4.79590, 0.37181, 0.20794, + 0.15625, 0.29324, 0.40447, + 0.32939, 0.17238, 4.79631, 0.37467, 0.21260, + 0.16161, 0.29707, 0.40744 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.34271, 0.18927, 2.06404, 0.18589, 0.01537, + -0.00001, 0.10497, 0.22364, + 0.35374, 0.19299, 2.27574, 0.19369, 0.02950, + -0.00002, 0.11625, 0.23204, + 0.36280, 0.19588, 2.42600, 0.20013, 0.04142, + -0.00002, 0.12569, 0.23892, + 0.37028, 0.19813, 2.52849, 0.20539, 0.05149, + 0.00649, 0.13355, 0.24446, + 0.37666, 0.19992, 2.60026, 0.20977, 0.06018, + 0.01722, 0.14026, 0.24905, + 0.38214, 0.20136, 2.64872, 0.21341, 0.06775, + 0.02607, 0.14601, 0.25285, + 0.38687, 0.20250, 2.67907, 0.21644, 0.07436, + 0.03387, 0.15094, 0.25596 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.39099, 0.20342, 2.69554, 0.21892, 0.08013, + 0.04075, 0.15517, 0.25850, + 0.39457, 0.20414, 2.70144, 0.22096, 0.08522, + 0.04683, 0.15882, 0.26055, + 0.39771, 0.20470, 2.69946, 0.22263, 0.08971, + 0.05224, 0.16197, 0.26220, + 0.40050, 0.20513, 2.69167, 0.22399, 0.09371, + 0.05710, 0.16472, 0.26353, + 0.40296, 0.20546, 2.67899, 0.22507, 0.09727, + 0.06145, 0.16709, 0.26457, + 0.40510, 0.20566, 2.66139, 0.22587, 0.10039, + 0.06532, 0.16909, 0.26529, + 0.40701, 0.20580, 2.64186, 0.22649, 0.10320, + 0.06883, 0.17085, 0.26584 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.40873, 0.20587, 2.62045, 0.22695, 0.10574, + 0.07202, 0.17238, 0.26622, + 0.41020, 0.20586, 2.59630, 0.22721, 0.10795, + 0.07485, 0.17365, 0.26636, + 0.41155, 0.20583, 2.57226, 0.22740, 0.11001, + 0.07748, 0.17479, 0.26645, + 0.41269, 0.20573, 2.54596, 0.22739, 0.11177, + 0.07980, 0.17570, 0.26633, + 0.41375, 0.20560, 2.52015, 0.22734, 0.11341, + 0.08196, 0.17652, 0.26618 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.42019, 0.22459, 1.74940, 0.15320, 0.01264, + 0.00000, 0.08988, 0.19859, + 0.42908, 0.22617, 1.85509, 0.15691, 0.02280, + 0.00000, 0.09697, 0.20223, + 0.43594, 0.22709, 1.91718, 0.15965, 0.03105, + 0.00001, 0.10258, 0.20478, + 0.44121, 0.22750, 1.94774, 0.16157, 0.03778, + 0.00449, 0.10696, 0.20644, + 0.44540, 0.22757, 1.95939, 0.16293, 0.04342, + 0.01176, 0.11050, 0.20750, + 0.44875, 0.22739, 1.95773, 0.16382, 0.04817, + 0.01761, 0.11336, 0.20807, + 0.45139, 0.22702, 1.94648, 0.16434, 0.05220, + 0.02265, 0.11565, 0.20827 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.45345, 0.22649, 1.92844, 0.16456, 0.05563, + 0.02698, 0.11748, 0.20815, + 0.45505, 0.22586, 1.90574, 0.16455, 0.05856, + 0.03075, 0.11893, 0.20777, + 0.45628, 0.22514, 1.88002, 0.16434, 0.06107, + 0.03403, 0.12008, 0.20721, + 0.45720, 0.22435, 1.85251, 0.16398, 0.06325, + 0.03692, 0.12098, 0.20652, + 0.45784, 0.22353, 1.82368, 0.16351, 0.06513, + 0.03946, 0.12166, 0.20569, + 0.45822, 0.22263, 1.79338, 0.16289, 0.06672, + 0.04166, 0.12212, 0.20472, + 0.45843, 0.22173, 1.76337, 0.16222, 0.06811, + 0.04363, 0.12245, 0.20371 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.45848, 0.22081, 1.73355, 0.16150, 0.06933, + 0.04538, 0.12267, 0.20263, + 0.45834, 0.21985, 1.70326, 0.16069, 0.07034, + 0.04690, 0.12274, 0.20148, + 0.45815, 0.21891, 1.67414, 0.15987, 0.07126, + 0.04830, 0.12276, 0.20034, + 0.45778, 0.21793, 1.64475, 0.15897, 0.07200, + 0.04948, 0.12265, 0.19910, + 0.45737, 0.21697, 1.61658, 0.15808, 0.07268, + 0.05058, 0.12251, 0.19789 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.48154, 0.24849, 1.52710, 0.12792, 0.01066, + -0.00001, 0.07792, 0.17772, + 0.48710, 0.24759, 1.56946, 0.12922, 0.01833, + 0.00000, 0.08238, 0.17821, + 0.49084, 0.24631, 1.58186, 0.12986, 0.02437, + 0.00000, 0.08568, 0.17803, + 0.49316, 0.24473, 1.57417, 0.12996, 0.02914, + 0.00330, 0.08806, 0.17734, + 0.49456, 0.24302, 1.55566, 0.12973, 0.03304, + 0.00856, 0.08981, 0.17632, + 0.49525, 0.24120, 1.53020, 0.12923, 0.03623, + 0.01271, 0.09109, 0.17508, + 0.49539, 0.23931, 1.50033, 0.12853, 0.03886, + 0.01621, 0.09198, 0.17365 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.49507, 0.23740, 1.46792, 0.12769, 0.04104, + 0.01917, 0.09256, 0.17211, + 0.49441, 0.23546, 1.43427, 0.12673, 0.04285, + 0.02169, 0.09289, 0.17048, + 0.49349, 0.23354, 1.40030, 0.12571, 0.04435, + 0.02385, 0.09304, 0.16880, + 0.49235, 0.23164, 1.36666, 0.12463, 0.04561, + 0.02572, 0.09305, 0.16710, + 0.49105, 0.22976, 1.33354, 0.12351, 0.04666, + 0.02733, 0.09294, 0.16539, + 0.48957, 0.22787, 1.30069, 0.12233, 0.04751, + 0.02870, 0.09269, 0.16364, + 0.48800, 0.22604, 1.26915, 0.12117, 0.04823, + 0.02990, 0.09239, 0.16192 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.48635, 0.22425, 1.23873, 0.12001, 0.04883, + 0.03094, 0.09202, 0.16022, + 0.48458, 0.22247, 1.20894, 0.11882, 0.04930, + 0.03184, 0.09159, 0.15850, + 0.48284, 0.22074, 1.18072, 0.11766, 0.04971, + 0.03265, 0.09114, 0.15685, + 0.48098, 0.21901, 1.15308, 0.11647, 0.05001, + 0.03332, 0.09062, 0.15519, + 0.47914, 0.21735, 1.12689, 0.11533, 0.05026, + 0.03393, 0.09011, 0.15359 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.53041, 0.26380, 1.35090, 0.10680, 0.00904, + 0.00000, 0.06749, 0.15835, + 0.53194, 0.26038, 1.35189, 0.10663, 0.01499, + -0.00001, 0.07019, 0.15671, + 0.53201, 0.25694, 1.33372, 0.10606, 0.01953, + -0.00001, 0.07199, 0.15478, + 0.53099, 0.25346, 1.30385, 0.10517, 0.02302, + 0.00250, 0.07311, 0.15260, + 0.52931, 0.25006, 1.26890, 0.10410, 0.02580, + 0.00644, 0.07378, 0.15033, + 0.52714, 0.24672, 1.23142, 0.10290, 0.02801, + 0.00948, 0.07412, 0.14802, + 0.52461, 0.24345, 1.19300, 0.10162, 0.02979, + 0.01201, 0.07420, 0.14570 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.52182, 0.24028, 1.15472, 0.10028, 0.03121, + 0.01412, 0.07408, 0.14340, + 0.51884, 0.23720, 1.11726, 0.09892, 0.03235, + 0.01588, 0.07382, 0.14112, + 0.51574, 0.23424, 1.08108, 0.09755, 0.03327, + 0.01736, 0.07345, 0.13887, + 0.51257, 0.23138, 1.04646, 0.09619, 0.03402, + 0.01862, 0.07301, 0.13668, + 0.50935, 0.22860, 1.01335, 0.09484, 0.03462, + 0.01968, 0.07250, 0.13455, + 0.50604, 0.22588, 0.98146, 0.09349, 0.03506, + 0.02058, 0.07192, 0.13247, + 0.50276, 0.22328, 0.95137, 0.09217, 0.03542, + 0.02136, 0.07133, 0.13047 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.49950, 0.22077, 0.92285, 0.09090, 0.03570, + 0.02203, 0.07072, 0.12851, + 0.49619, 0.21831, 0.89548, 0.08963, 0.03589, + 0.02256, 0.07007, 0.12660, + 0.49299, 0.21595, 0.86981, 0.08841, 0.03604, + 0.02304, 0.06943, 0.12476, + 0.48972, 0.21364, 0.84513, 0.08720, 0.03612, + 0.02342, 0.06875, 0.12296, + 0.48656, 0.21143, 0.82193, 0.08603, 0.03617, + 0.02377, 0.06809, 0.12124 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.57673, 0.27349, 1.16857, 0.08458, 0.00737, + -0.00001, 0.05594, 0.13551, + 0.57268, 0.26716, 1.13617, 0.08346, 0.01176, + -0.00001, 0.05721, 0.13219, + 0.56783, 0.26121, 1.09503, 0.08212, 0.01502, + -0.00001, 0.05783, 0.12895, + 0.56241, 0.25562, 1.04985, 0.08064, 0.01743, + 0.00180, 0.05800, 0.12574, + 0.55678, 0.25034, 1.00464, 0.07910, 0.01930, + 0.00462, 0.05788, 0.12268, + 0.55101, 0.24536, 0.96062, 0.07756, 0.02074, + 0.00676, 0.05757, 0.11968, + 0.54518, 0.24065, 0.91844, 0.07601, 0.02184, + 0.00851, 0.05711, 0.11683 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.53936, 0.23617, 0.87847, 0.07449, 0.02268, + 0.00992, 0.05656, 0.11411, + 0.53357, 0.23192, 0.84086, 0.07300, 0.02334, + 0.01107, 0.05593, 0.11150, + 0.52788, 0.22789, 0.80565, 0.07155, 0.02384, + 0.01204, 0.05526, 0.10900, + 0.52233, 0.22404, 0.77279, 0.07014, 0.02422, + 0.01285, 0.05456, 0.10664, + 0.51688, 0.22038, 0.74210, 0.06878, 0.02449, + 0.01352, 0.05385, 0.10438, + 0.51149, 0.21686, 0.71321, 0.06744, 0.02468, + 0.01405, 0.05312, 0.10221, + 0.50626, 0.21351, 0.68636, 0.06618, 0.02480, + 0.01450, 0.05239, 0.10014 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.50117, 0.21033, 0.66128, 0.06498, 0.02486, + 0.01489, 0.05168, 0.09815, + 0.49616, 0.20723, 0.63763, 0.06378, 0.02488, + 0.01520, 0.05096, 0.09625, + 0.49135, 0.20429, 0.61566, 0.06264, 0.02488, + 0.01546, 0.05026, 0.09444, + 0.48655, 0.20146, 0.59484, 0.06154, 0.02483, + 0.01567, 0.04956, 0.09267, + 0.48195, 0.19875, 0.57544, 0.06049, 0.02477, + 0.01584, 0.04888, 0.09100 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.60864, 0.27503, 1.01392, 0.06628, 0.00596, + -0.00003, 0.04583, 0.11422, + 0.59882, 0.26609, 0.96111, 0.06473, 0.00927, + -0.00003, 0.04623, 0.11005, + 0.58901, 0.25802, 0.90733, 0.06310, 0.01165, + -0.00002, 0.04618, 0.10619, + 0.57929, 0.25061, 0.85494, 0.06143, 0.01336, + 0.00132, 0.04583, 0.10257, + 0.56983, 0.24381, 0.80589, 0.05979, 0.01462, + 0.00340, 0.04532, 0.09921, + 0.56061, 0.23750, 0.76041, 0.05821, 0.01556, + 0.00494, 0.04470, 0.09604, + 0.55171, 0.23163, 0.71846, 0.05667, 0.01626, + 0.00617, 0.04401, 0.09308 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.54308, 0.22616, 0.67991, 0.05520, 0.01677, + 0.00716, 0.04327, 0.09030, + 0.53477, 0.22102, 0.64453, 0.05379, 0.01714, + 0.00794, 0.04251, 0.08768, + 0.52677, 0.21618, 0.61211, 0.05244, 0.01740, + 0.00858, 0.04175, 0.08523, + 0.51908, 0.21164, 0.58240, 0.05115, 0.01757, + 0.00911, 0.04099, 0.08293, + 0.51165, 0.20736, 0.55506, 0.04993, 0.01768, + 0.00954, 0.04025, 0.08076, + 0.50447, 0.20327, 0.52976, 0.04874, 0.01773, + 0.00987, 0.03951, 0.07869, + 0.49759, 0.19941, 0.50653, 0.04762, 0.01774, + 0.01015, 0.03879, 0.07674 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.49096, 0.19576, 0.48508, 0.04655, 0.01771, + 0.01038, 0.03808, 0.07491, + 0.48449, 0.19225, 0.46511, 0.04552, 0.01764, + 0.01054, 0.03739, 0.07316, + 0.47833, 0.18894, 0.44670, 0.04455, 0.01757, + 0.01068, 0.03673, 0.07151, + 0.47230, 0.18575, 0.42945, 0.04361, 0.01747, + 0.01079, 0.03608, 0.06992, + 0.46653, 0.18272, 0.41348, 0.04272, 0.01736, + 0.01088, 0.03545, 0.06842 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.62786, 0.27019, 0.87934, 0.05126, 0.00479, + -0.00001, 0.03709, 0.09488, + 0.61237, 0.25914, 0.81474, 0.04965, 0.00728, + -0.00001, 0.03695, 0.09039, + 0.59778, 0.24939, 0.75488, 0.04804, 0.00901, + -0.00001, 0.03653, 0.08638, + 0.58398, 0.24060, 0.70015, 0.04645, 0.01022, + 0.00099, 0.03593, 0.08271, + 0.57096, 0.23266, 0.65100, 0.04493, 0.01108, + 0.00251, 0.03523, 0.07936, + 0.55866, 0.22537, 0.60687, 0.04347, 0.01171, + 0.00361, 0.03449, 0.07628, + 0.54699, 0.21868, 0.56723, 0.04208, 0.01214, + 0.00449, 0.03372, 0.07345 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.53591, 0.21248, 0.53158, 0.04078, 0.01244, + 0.00518, 0.03294, 0.07083, + 0.52541, 0.20671, 0.49950, 0.03953, 0.01263, + 0.00571, 0.03218, 0.06841, + 0.51542, 0.20136, 0.47056, 0.03835, 0.01275, + 0.00614, 0.03143, 0.06616, + 0.50592, 0.19638, 0.44440, 0.03726, 0.01282, + 0.00649, 0.03070, 0.06404, + 0.49689, 0.19169, 0.42069, 0.03623, 0.01285, + 0.00677, 0.02999, 0.06206, + 0.48821, 0.18725, 0.39898, 0.03522, 0.01281, + 0.00697, 0.02931, 0.06023, + 0.47996, 0.18310, 0.37923, 0.03428, 0.01276, + 0.00714, 0.02866, 0.05850 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.47207, 0.17918, 0.36118, 0.03340, 0.01270, + 0.00728, 0.02803, 0.05687, + 0.46449, 0.17544, 0.34454, 0.03255, 0.01260, + 0.00737, 0.02742, 0.05534, + 0.45730, 0.17190, 0.32930, 0.03174, 0.01250, + 0.00744, 0.02684, 0.05390, + 0.45030, 0.16853, 0.31518, 0.03098, 0.01239, + 0.00748, 0.02627, 0.05254, + 0.44364, 0.16534, 0.30216, 0.03025, 0.01228, + 0.00752, 0.02572, 0.05124 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.63571, 0.26057, 0.76061, 0.03916, 0.00380, + -0.00002, 0.02961, 0.07759, + 0.61492, 0.24785, 0.69015, 0.03764, 0.00570, + -0.00002, 0.02921, 0.07320, + 0.59599, 0.23680, 0.62849, 0.03617, 0.00697, + -0.00003, 0.02862, 0.06932, + 0.57852, 0.22701, 0.57445, 0.03476, 0.00784, + 0.00073, 0.02792, 0.06585, + 0.56240, 0.21822, 0.52734, 0.03341, 0.00842, + 0.00187, 0.02718, 0.06277, + 0.54738, 0.21029, 0.48607, 0.03215, 0.00884, + 0.00268, 0.02643, 0.05995, + 0.53336, 0.20304, 0.44979, 0.03096, 0.00911, + 0.00332, 0.02569, 0.05738 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.52023, 0.19641, 0.41774, 0.02986, 0.00927, + 0.00380, 0.02497, 0.05502, + 0.50790, 0.19028, 0.38931, 0.02883, 0.00937, + 0.00417, 0.02426, 0.05285, + 0.49631, 0.18461, 0.36400, 0.02785, 0.00941, + 0.00446, 0.02358, 0.05087, + 0.48539, 0.17936, 0.34139, 0.02694, 0.00940, + 0.00469, 0.02293, 0.04904, + 0.47508, 0.17446, 0.32109, 0.02608, 0.00938, + 0.00487, 0.02231, 0.04735, + 0.46525, 0.16987, 0.30275, 0.02527, 0.00932, + 0.00500, 0.02172, 0.04574, + 0.45596, 0.16558, 0.28620, 0.02451, 0.00925, + 0.00510, 0.02115, 0.04426 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.44716, 0.16154, 0.27120, 0.02380, 0.00917, + 0.00517, 0.02060, 0.04289, + 0.43870, 0.15773, 0.25747, 0.02313, 0.00908, + 0.00523, 0.02009, 0.04157, + 0.43072, 0.15415, 0.24498, 0.02251, 0.00899, + 0.00527, 0.01961, 0.04034, + 0.42305, 0.15072, 0.23347, 0.02188, 0.00887, + 0.00528, 0.01913, 0.03922, + 0.41577, 0.14748, 0.22293, 0.02130, 0.00876, + 0.00528, 0.01868, 0.03816 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.63353, 0.24733, 0.65531, 0.02949, 0.00299, + -0.00002, 0.02335, 0.06253, + 0.60799, 0.23340, 0.58311, 0.02817, 0.00444, + -0.00001, 0.02283, 0.05845, + 0.58526, 0.22144, 0.52246, 0.02688, 0.00539, + -0.00002, 0.02219, 0.05492, + 0.56463, 0.21101, 0.47102, 0.02570, 0.00601, + 0.00056, 0.02149, 0.05179, + 0.54586, 0.20174, 0.42728, 0.02458, 0.00641, + 0.00142, 0.02080, 0.04902, + 0.52859, 0.19343, 0.38971, 0.02355, 0.00667, + 0.00201, 0.02011, 0.04653, + 0.51268, 0.18589, 0.35721, 0.02258, 0.00683, + 0.00246, 0.01944, 0.04429 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.49791, 0.17904, 0.32891, 0.02166, 0.00693, + 0.00280, 0.01878, 0.04228, + 0.48417, 0.17275, 0.30416, 0.02082, 0.00696, + 0.00307, 0.01817, 0.04043, + 0.47137, 0.16696, 0.28238, 0.02003, 0.00696, + 0.00326, 0.01759, 0.03873, + 0.45939, 0.16163, 0.26312, 0.01931, 0.00694, + 0.00341, 0.01703, 0.03717, + 0.44809, 0.15673, 0.24601, 0.01864, 0.00689, + 0.00353, 0.01652, 0.03571, + 0.43745, 0.15212, 0.23069, 0.01799, 0.00681, + 0.00361, 0.01601, 0.03441, + 0.42745, 0.14781, 0.21697, 0.01739, 0.00673, + 0.00367, 0.01554, 0.03319 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.41802, 0.14379, 0.20461, 0.01684, 0.00665, + 0.00372, 0.01509, 0.03205, + 0.40900, 0.14001, 0.19339, 0.01631, 0.00656, + 0.00374, 0.01466, 0.03098, + 0.40052, 0.13648, 0.18323, 0.01582, 0.00647, + 0.00376, 0.01426, 0.02999, + 0.39238, 0.13312, 0.17395, 0.01536, 0.00638, + 0.00377, 0.01388, 0.02906, + 0.38469, 0.12996, 0.16548, 0.01492, 0.00628, + 0.00377, 0.01352, 0.02819 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.62259, 0.23148, 0.56179, 0.02188, 0.00236, + 0.00002, 0.01819, 0.04966, + 0.59295, 0.21682, 0.49090, 0.02080, 0.00345, + 0.00002, 0.01762, 0.04601, + 0.56695, 0.20441, 0.43319, 0.01979, 0.00413, + 0.00003, 0.01699, 0.04291, + 0.54376, 0.19365, 0.38555, 0.01882, 0.00455, + 0.00046, 0.01637, 0.04019, + 0.52290, 0.18418, 0.34581, 0.01793, 0.00483, + 0.00106, 0.01575, 0.03780, + 0.50390, 0.17575, 0.31224, 0.01711, 0.00500, + 0.00150, 0.01512, 0.03569, + 0.48655, 0.16816, 0.28363, 0.01632, 0.00509, + 0.00181, 0.01454, 0.03380 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.47059, 0.16127, 0.25905, 0.01560, 0.00512, + 0.00206, 0.01399, 0.03211, + 0.45583, 0.15503, 0.23781, 0.01494, 0.00512, + 0.00224, 0.01348, 0.03056, + 0.44214, 0.14932, 0.21931, 0.01434, 0.00510, + 0.00237, 0.01299, 0.02915, + 0.42941, 0.14408, 0.20310, 0.01378, 0.00507, + 0.00247, 0.01253, 0.02787, + 0.41754, 0.13924, 0.18885, 0.01326, 0.00502, + 0.00255, 0.01210, 0.02670, + 0.40638, 0.13472, 0.17617, 0.01276, 0.00495, + 0.00259, 0.01169, 0.02563, + 0.39593, 0.13055, 0.16489, 0.01231, 0.00487, + 0.00262, 0.01131, 0.02463 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.38609, 0.12666, 0.15481, 0.01190, 0.00480, + 0.00265, 0.01096, 0.02369, + 0.37681, 0.12300, 0.14571, 0.01148, 0.00472, + 0.00265, 0.01061, 0.02284, + 0.36809, 0.11958, 0.13751, 0.01110, 0.00464, + 0.00266, 0.01029, 0.02206, + 0.35975, 0.11638, 0.13007, 0.01074, 0.00456, + 0.00266, 0.00998, 0.02130, + 0.35189, 0.11337, 0.12331, 0.01042, 0.00448, + 0.00265, 0.00970, 0.02060 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.60398, 0.21422, 0.47915, 0.01623, 0.00169, + -0.00014, 0.01382, 0.03885, + 0.57099, 0.19920, 0.41142, 0.01535, 0.00253, + -0.00013, 0.01334, 0.03569, + 0.54250, 0.18657, 0.35785, 0.01449, 0.00304, + -0.00012, 0.01280, 0.03307, + 0.51735, 0.17574, 0.31456, 0.01373, 0.00337, + 0.00021, 0.01225, 0.03077, + 0.49494, 0.16629, 0.27910, 0.01301, 0.00357, + 0.00069, 0.01171, 0.02879, + 0.47473, 0.15792, 0.24960, 0.01237, 0.00368, + 0.00102, 0.01122, 0.02701, + 0.45639, 0.15045, 0.22480, 0.01176, 0.00373, + 0.00127, 0.01075, 0.02546 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43964, 0.14373, 0.20377, 0.01119, 0.00374, + 0.00143, 0.01029, 0.02409, + 0.42426, 0.13764, 0.18575, 0.01068, 0.00374, + 0.00158, 0.00987, 0.02285, + 0.41009, 0.13211, 0.17022, 0.01021, 0.00371, + 0.00168, 0.00948, 0.02170, + 0.39698, 0.12706, 0.15674, 0.00977, 0.00367, + 0.00174, 0.00912, 0.02066, + 0.38479, 0.12239, 0.14494, 0.00939, 0.00363, + 0.00179, 0.00877, 0.01973, + 0.37341, 0.11808, 0.13454, 0.00901, 0.00356, + 0.00183, 0.00845, 0.01886, + 0.36281, 0.11411, 0.12534, 0.00866, 0.00350, + 0.00185, 0.00815, 0.01806 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.35289, 0.11042, 0.11716, 0.00833, 0.00343, + 0.00186, 0.00787, 0.01734, + 0.34351, 0.10696, 0.10984, 0.00803, 0.00337, + 0.00186, 0.00760, 0.01666, + 0.33474, 0.10374, 0.10327, 0.00774, 0.00331, + 0.00186, 0.00736, 0.01605, + 0.32640, 0.10072, 0.09735, 0.00747, 0.00324, + 0.00185, 0.00712, 0.01546, + 0.31854, 0.09789, 0.09200, 0.00723, 0.00318, + 0.00185, 0.00690, 0.01492 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.57919, 0.19555, 0.40568, 0.01166, 0.00134, + -0.00002, 0.01052, 0.02990, + 0.54360, 0.18057, 0.34266, 0.01099, 0.00196, + -0.00003, 0.01007, 0.02729, + 0.51323, 0.16808, 0.29389, 0.01036, 0.00234, + -0.00003, 0.00960, 0.02508, + 0.48668, 0.15748, 0.25527, 0.00977, 0.00255, + 0.00021, 0.00913, 0.02324, + 0.46327, 0.14828, 0.22417, 0.00922, 0.00267, + 0.00055, 0.00870, 0.02161, + 0.44231, 0.14017, 0.19863, 0.00873, 0.00273, + 0.00078, 0.00828, 0.02021, + 0.42339, 0.13300, 0.17743, 0.00828, 0.00276, + 0.00095, 0.00789, 0.01895 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40622, 0.12657, 0.15963, 0.00788, 0.00277, + 0.00108, 0.00753, 0.01781, + 0.39055, 0.12079, 0.14454, 0.00750, 0.00275, + 0.00117, 0.00719, 0.01681, + 0.37620, 0.11554, 0.13166, 0.00715, 0.00272, + 0.00123, 0.00688, 0.01592, + 0.36300, 0.11075, 0.12056, 0.00682, 0.00268, + 0.00127, 0.00659, 0.01512, + 0.35080, 0.10637, 0.11090, 0.00651, 0.00262, + 0.00130, 0.00632, 0.01440, + 0.33944, 0.10234, 0.10245, 0.00624, 0.00257, + 0.00132, 0.00607, 0.01372, + 0.32888, 0.09864, 0.09503, 0.00599, 0.00252, + 0.00133, 0.00584, 0.01309 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31903, 0.09521, 0.08848, 0.00575, 0.00246, + 0.00133, 0.00562, 0.01253, + 0.30975, 0.09199, 0.08264, 0.00555, 0.00241, + 0.00133, 0.00541, 0.01201, + 0.30110, 0.08901, 0.07742, 0.00537, 0.00236, + 0.00133, 0.00522, 0.01154, + 0.29293, 0.08622, 0.07275, 0.00517, 0.00230, + 0.00132, 0.00504, 0.01109, + 0.28528, 0.08362, 0.06854, 0.00498, 0.00225, + 0.00131, 0.00488, 0.01067 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.54919, 0.17662, 0.34122, 0.00829, 0.00100, + -0.00004, 0.00784, 0.02270, + 0.51179, 0.16196, 0.28359, 0.00782, 0.00147, + -0.00003, 0.00746, 0.02055, + 0.48021, 0.14985, 0.24004, 0.00734, 0.00173, + -0.00004, 0.00708, 0.01880, + 0.45291, 0.13964, 0.20611, 0.00689, 0.00189, + 0.00014, 0.00670, 0.01730, + 0.42896, 0.13085, 0.17915, 0.00649, 0.00198, + 0.00040, 0.00635, 0.01600, + 0.40769, 0.12316, 0.15733, 0.00613, 0.00202, + 0.00058, 0.00602, 0.01488, + 0.38863, 0.11637, 0.13943, 0.00580, 0.00202, + 0.00070, 0.00570, 0.01391 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.37145, 0.11032, 0.12454, 0.00547, 0.00201, + 0.00078, 0.00543, 0.01304, + 0.35584, 0.10490, 0.11204, 0.00519, 0.00198, + 0.00083, 0.00517, 0.01226, + 0.34160, 0.10001, 0.10145, 0.00495, 0.00195, + 0.00087, 0.00493, 0.01155, + 0.32857, 0.09558, 0.09239, 0.00473, 0.00192, + 0.00091, 0.00471, 0.01091, + 0.31656, 0.09153, 0.08456, 0.00451, 0.00188, + 0.00093, 0.00451, 0.01036, + 0.30543, 0.08782, 0.07777, 0.00431, 0.00184, + 0.00094, 0.00431, 0.00985, + 0.29514, 0.08440, 0.07184, 0.00413, 0.00179, + 0.00095, 0.00413, 0.00938 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28557, 0.08125, 0.06662, 0.00396, 0.00175, + 0.00095, 0.00397, 0.00897, + 0.27662, 0.07832, 0.06200, 0.00378, 0.00171, + 0.00094, 0.00381, 0.00858, + 0.26829, 0.07561, 0.05789, 0.00363, 0.00167, + 0.00093, 0.00367, 0.00821, + 0.26039, 0.07308, 0.05424, 0.00350, 0.00163, + 0.00092, 0.00354, 0.00787, + 0.25302, 0.07073, 0.05095, 0.00339, 0.00159, + 0.00091, 0.00342, 0.00755 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.51514, 0.15768, 0.28475, 0.00577, 0.00076, + 0.00000, 0.00578, 0.01695, + 0.47674, 0.14362, 0.23299, 0.00541, 0.00109, + 0.00000, 0.00547, 0.01527, + 0.44456, 0.13212, 0.19461, 0.00510, 0.00130, + 0.00000, 0.00517, 0.01384, + 0.41700, 0.12248, 0.16529, 0.00479, 0.00140, + 0.00013, 0.00487, 0.01267, + 0.39304, 0.11420, 0.14226, 0.00449, 0.00146, + 0.00032, 0.00458, 0.01168, + 0.37184, 0.10705, 0.12386, 0.00425, 0.00147, + 0.00043, 0.00433, 0.01079, + 0.35302, 0.10073, 0.10893, 0.00399, 0.00147, + 0.00051, 0.00409, 0.01004 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33610, 0.09514, 0.09660, 0.00379, 0.00146, + 0.00058, 0.00388, 0.00937, + 0.32086, 0.09015, 0.08636, 0.00358, 0.00143, + 0.00062, 0.00368, 0.00878, + 0.30700, 0.08566, 0.07775, 0.00339, 0.00140, + 0.00064, 0.00349, 0.00825, + 0.29435, 0.08162, 0.07042, 0.00323, 0.00138, + 0.00066, 0.00333, 0.00778, + 0.28276, 0.07793, 0.06417, 0.00306, 0.00134, + 0.00067, 0.00317, 0.00737, + 0.27204, 0.07456, 0.05875, 0.00293, 0.00131, + 0.00067, 0.00303, 0.00698, + 0.26216, 0.07148, 0.05404, 0.00281, 0.00128, + 0.00067, 0.00289, 0.00663 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25303, 0.06864, 0.04993, 0.00268, 0.00124, + 0.00068, 0.00276, 0.00632, + 0.24449, 0.06600, 0.04631, 0.00257, 0.00121, + 0.00067, 0.00266, 0.00603, + 0.23657, 0.06357, 0.04311, 0.00247, 0.00118, + 0.00067, 0.00256, 0.00575, + 0.22912, 0.06131, 0.04025, 0.00237, 0.00114, + 0.00065, 0.00245, 0.00550, + 0.22217, 0.05921, 0.03770, 0.00228, 0.00111, + 0.00064, 0.00236, 0.00527 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.47803, 0.13922, 0.23556, 0.00390, 0.00060, + 0.00004, 0.00422, 0.01243, + 0.43933, 0.12596, 0.18990, 0.00368, 0.00084, + 0.00005, 0.00397, 0.01113, + 0.40722, 0.11520, 0.15658, 0.00345, 0.00097, + 0.00004, 0.00373, 0.01005, + 0.37997, 0.10622, 0.13151, 0.00322, 0.00105, + 0.00013, 0.00350, 0.00915, + 0.35637, 0.09859, 0.11214, 0.00303, 0.00108, + 0.00026, 0.00329, 0.00839, + 0.33571, 0.09201, 0.09679, 0.00286, 0.00109, + 0.00034, 0.00309, 0.00770, + 0.31740, 0.08624, 0.08445, 0.00268, 0.00107, + 0.00040, 0.00291, 0.00715 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.30106, 0.08115, 0.07441, 0.00251, 0.00105, + 0.00043, 0.00274, 0.00667, + 0.28636, 0.07663, 0.06611, 0.00238, 0.00104, + 0.00046, 0.00259, 0.00622, + 0.27306, 0.07258, 0.05918, 0.00227, 0.00101, + 0.00048, 0.00245, 0.00582, + 0.26098, 0.06894, 0.05334, 0.00217, 0.00098, + 0.00049, 0.00233, 0.00547, + 0.24998, 0.06563, 0.04835, 0.00203, 0.00096, + 0.00049, 0.00221, 0.00517, + 0.23985, 0.06262, 0.04409, 0.00194, 0.00092, + 0.00049, 0.00211, 0.00488, + 0.23054, 0.05988, 0.04041, 0.00186, 0.00090, + 0.00048, 0.00201, 0.00462 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22194, 0.05737, 0.03720, 0.00178, 0.00088, + 0.00048, 0.00192, 0.00438, + 0.21393, 0.05505, 0.03438, 0.00170, 0.00085, + 0.00047, 0.00184, 0.00416, + 0.20651, 0.05291, 0.03190, 0.00164, 0.00083, + 0.00046, 0.00176, 0.00396, + 0.19958, 0.05090, 0.02970, 0.00157, 0.00080, + 0.00046, 0.00169, 0.00378, + 0.19313, 0.04905, 0.02775, 0.00150, 0.00078, + 0.00046, 0.00162, 0.00361 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.43891, 0.12168, 0.19331, 0.00267, 0.00040, + 0.00001, 0.00298, 0.00902, + 0.40065, 0.10937, 0.15350, 0.00250, 0.00058, + 0.00000, 0.00280, 0.00797, + 0.36916, 0.09945, 0.12501, 0.00234, 0.00069, + 0.00001, 0.00262, 0.00717, + 0.34256, 0.09123, 0.10386, 0.00221, 0.00074, + 0.00008, 0.00246, 0.00650, + 0.31978, 0.08429, 0.08771, 0.00207, 0.00076, + 0.00017, 0.00230, 0.00590, + 0.29991, 0.07830, 0.07507, 0.00195, 0.00076, + 0.00023, 0.00215, 0.00542, + 0.28244, 0.07309, 0.06503, 0.00181, 0.00076, + 0.00027, 0.00202, 0.00500 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.26685, 0.06852, 0.05691, 0.00171, 0.00075, + 0.00030, 0.00189, 0.00464, + 0.25296, 0.06448, 0.05027, 0.00161, 0.00072, + 0.00032, 0.00179, 0.00432, + 0.24044, 0.06090, 0.04476, 0.00153, 0.00071, + 0.00033, 0.00169, 0.00402, + 0.22909, 0.05767, 0.04014, 0.00146, 0.00069, + 0.00033, 0.00159, 0.00376, + 0.21876, 0.05474, 0.03623, 0.00139, 0.00065, + 0.00032, 0.00152, 0.00354, + 0.20932, 0.05210, 0.03290, 0.00132, 0.00064, + 0.00033, 0.00144, 0.00333, + 0.20067, 0.04968, 0.03003, 0.00125, 0.00062, + 0.00033, 0.00137, 0.00315 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19271, 0.04747, 0.02754, 0.00118, 0.00060, + 0.00033, 0.00129, 0.00300, + 0.18533, 0.04545, 0.02537, 0.00112, 0.00058, + 0.00032, 0.00124, 0.00284, + 0.17851, 0.04358, 0.02347, 0.00107, 0.00056, + 0.00032, 0.00119, 0.00269, + 0.17215, 0.04183, 0.02179, 0.00103, 0.00055, + 0.00032, 0.00114, 0.00257, + 0.16623, 0.04022, 0.02030, 0.00099, 0.00054, + 0.00032, 0.00110, 0.00245 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.39872, 0.10510, 0.15704, 0.00175, 0.00030, + 0.00003, 0.00210, 0.00636, + 0.36144, 0.09386, 0.12291, 0.00167, 0.00042, + 0.00003, 0.00196, 0.00563, + 0.33109, 0.08486, 0.09888, 0.00160, 0.00049, + 0.00002, 0.00183, 0.00499, + 0.30567, 0.07746, 0.08131, 0.00148, 0.00052, + 0.00007, 0.00169, 0.00452, + 0.28395, 0.07123, 0.06805, 0.00139, 0.00052, + 0.00012, 0.00157, 0.00411, + 0.26514, 0.06591, 0.05779, 0.00131, 0.00052, + 0.00016, 0.00146, 0.00376, + 0.24864, 0.06130, 0.04969, 0.00124, 0.00051, + 0.00018, 0.00137, 0.00345 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.23408, 0.05726, 0.04320, 0.00116, 0.00050, + 0.00020, 0.00128, 0.00319, + 0.22111, 0.05369, 0.03793, 0.00109, 0.00049, + 0.00021, 0.00120, 0.00295, + 0.20950, 0.05054, 0.03359, 0.00102, 0.00048, + 0.00022, 0.00113, 0.00275, + 0.19903, 0.04772, 0.02997, 0.00097, 0.00046, + 0.00022, 0.00107, 0.00256, + 0.18950, 0.04518, 0.02693, 0.00092, 0.00044, + 0.00022, 0.00101, 0.00241, + 0.18081, 0.04288, 0.02435, 0.00089, 0.00042, + 0.00021, 0.00095, 0.00226, + 0.17289, 0.04079, 0.02215, 0.00084, 0.00040, + 0.00021, 0.00090, 0.00213 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.16563, 0.03888, 0.02025, 0.00079, 0.00039, + 0.00022, 0.00086, 0.00203, + 0.15888, 0.03714, 0.01860, 0.00077, 0.00039, + 0.00021, 0.00082, 0.00191, + 0.15266, 0.03553, 0.01715, 0.00075, 0.00038, + 0.00021, 0.00078, 0.00180, + 0.14690, 0.03404, 0.01588, 0.00070, 0.00036, + 0.00020, 0.00074, 0.00172, + 0.14157, 0.03267, 0.01476, 0.00066, 0.00035, + 0.00020, 0.00071, 0.00164 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.35819, 0.08968, 0.12614, 0.00109, 0.00022, + 0.00004, 0.00145, 0.00442, + 0.32249, 0.07955, 0.09729, 0.00105, 0.00032, + 0.00004, 0.00135, 0.00389, + 0.29363, 0.07151, 0.07732, 0.00101, 0.00036, + 0.00003, 0.00126, 0.00344, + 0.26966, 0.06492, 0.06288, 0.00093, 0.00038, + 0.00006, 0.00116, 0.00310, + 0.24927, 0.05942, 0.05212, 0.00089, 0.00038, + 0.00010, 0.00108, 0.00279, + 0.23174, 0.05474, 0.04389, 0.00082, 0.00038, + 0.00013, 0.00100, 0.00254, + 0.21648, 0.05071, 0.03747, 0.00076, 0.00037, + 0.00014, 0.00093, 0.00232 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.20301, 0.04719, 0.03236, 0.00072, 0.00037, + 0.00015, 0.00088, 0.00213, + 0.19108, 0.04410, 0.02824, 0.00068, 0.00036, + 0.00016, 0.00082, 0.00198, + 0.18043, 0.04137, 0.02487, 0.00064, 0.00035, + 0.00016, 0.00077, 0.00184, + 0.17087, 0.03894, 0.02209, 0.00060, 0.00033, + 0.00016, 0.00072, 0.00171, + 0.16226, 0.03676, 0.01976, 0.00056, 0.00031, + 0.00016, 0.00068, 0.00160, + 0.15438, 0.03479, 0.01780, 0.00054, 0.00030, + 0.00016, 0.00065, 0.00150, + 0.14721, 0.03301, 0.01613, 0.00052, 0.00029, + 0.00016, 0.00061, 0.00141 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.14065, 0.03139, 0.01469, 0.00049, 0.00028, + 0.00016, 0.00057, 0.00133, + 0.13460, 0.02990, 0.01345, 0.00047, 0.00027, + 0.00015, 0.00055, 0.00126, + 0.12905, 0.02853, 0.01237, 0.00046, 0.00026, + 0.00014, 0.00052, 0.00118, + 0.12389, 0.02728, 0.01143, 0.00043, 0.00025, + 0.00014, 0.00050, 0.00113, + 0.11913, 0.02613, 0.01059, 0.00041, 0.00024, + 0.00014, 0.00047, 0.00107 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.31817, 0.07563, 0.10021, 0.00068, 0.00016, + 0.00003, 0.00099, 0.00300, + 0.28451, 0.06662, 0.07613, 0.00064, 0.00023, + 0.00003, 0.00092, 0.00262, + 0.25747, 0.05950, 0.05972, 0.00061, 0.00026, + 0.00001, 0.00086, 0.00232, + 0.23515, 0.05374, 0.04805, 0.00057, 0.00028, + 0.00005, 0.00080, 0.00206, + 0.21633, 0.04894, 0.03946, 0.00053, 0.00028, + 0.00008, 0.00074, 0.00186, + 0.20020, 0.04489, 0.03296, 0.00050, 0.00028, + 0.00010, 0.00069, 0.00167, + 0.18621, 0.04141, 0.02792, 0.00048, 0.00027, + 0.00011, 0.00063, 0.00153 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.17399, 0.03839, 0.02396, 0.00043, 0.00026, + 0.00012, 0.00060, 0.00140, + 0.16319, 0.03574, 0.02078, 0.00039, 0.00025, + 0.00013, 0.00056, 0.00130, + 0.15357, 0.03342, 0.01821, 0.00036, 0.00024, + 0.00013, 0.00053, 0.00121, + 0.14498, 0.03136, 0.01609, 0.00034, 0.00023, + 0.00012, 0.00050, 0.00112, + 0.13725, 0.02952, 0.01433, 0.00033, 0.00022, + 0.00013, 0.00046, 0.00103, + 0.13021, 0.02786, 0.01286, 0.00032, 0.00022, + 0.00012, 0.00044, 0.00096, + 0.12384, 0.02636, 0.01161, 0.00030, 0.00021, + 0.00012, 0.00042, 0.00091 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.11805, 0.02499, 0.01054, 0.00027, 0.00020, + 0.00012, 0.00040, 0.00085, + 0.11270, 0.02375, 0.00962, 0.00026, 0.00020, + 0.00012, 0.00037, 0.00080, + 0.10780, 0.02261, 0.00882, 0.00025, 0.00019, + 0.00011, 0.00035, 0.00075, + 0.10324, 0.02158, 0.00813, 0.00024, 0.00018, + 0.00011, 0.00034, 0.00072, + 0.09904, 0.02063, 0.00752, 0.00023, 0.00017, + 0.00011, 0.00033, 0.00069 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.27940, 0.06308, 0.07877, 0.00049, 0.00008, + -0.00002, 0.00062, 0.00199, + 0.24813, 0.05520, 0.05899, 0.00047, 0.00012, + -0.00001, 0.00057, 0.00175, + 0.22326, 0.04904, 0.04574, 0.00044, 0.00015, + -0.00002, 0.00054, 0.00151, + 0.20279, 0.04407, 0.03644, 0.00043, 0.00016, + 0.00001, 0.00049, 0.00135, + 0.18568, 0.03995, 0.02966, 0.00039, 0.00017, + 0.00003, 0.00046, 0.00121, + 0.17110, 0.03648, 0.02458, 0.00036, 0.00016, + 0.00004, 0.00042, 0.00110, + 0.15851, 0.03352, 0.02069, 0.00034, 0.00015, + 0.00005, 0.00039, 0.00100 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.14755, 0.03096, 0.01764, 0.00032, 0.00015, + 0.00006, 0.00036, 0.00091, + 0.13792, 0.02873, 0.01522, 0.00030, 0.00014, + 0.00006, 0.00034, 0.00083, + 0.12937, 0.02678, 0.01327, 0.00027, 0.00014, + 0.00006, 0.00032, 0.00077, + 0.12174, 0.02505, 0.01167, 0.00026, 0.00014, + 0.00006, 0.00030, 0.00071, + 0.11490, 0.02352, 0.01036, 0.00025, 0.00013, + 0.00007, 0.00028, 0.00067, + 0.10873, 0.02213, 0.00926, 0.00023, 0.00012, + 0.00006, 0.00026, 0.00062, + 0.10313, 0.02089, 0.00833, 0.00022, 0.00011, + 0.00005, 0.00025, 0.00058 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.09803, 0.01977, 0.00754, 0.00021, 0.00011, + 0.00005, 0.00023, 0.00054, + 0.09337, 0.01874, 0.00686, 0.00021, 0.00010, + 0.00005, 0.00022, 0.00050, + 0.08911, 0.01781, 0.00628, 0.00020, 0.00010, + 0.00005, 0.00021, 0.00047, + 0.08518, 0.01695, 0.00577, 0.00018, 0.00010, + 0.00005, 0.00020, 0.00045, + 0.08156, 0.01617, 0.00532, 0.00017, 0.00010, + 0.00005, 0.00019, 0.00043 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.24204, 0.05168, 0.06086, 0.00025, 0.00009, + 0.00002, 0.00043, 0.00128, + 0.21349, 0.04492, 0.04492, 0.00023, 0.00011, + 0.00002, 0.00040, 0.00111, + 0.19087, 0.03967, 0.03440, 0.00025, 0.00013, + 0.00002, 0.00037, 0.00095, + 0.17248, 0.03546, 0.02713, 0.00023, 0.00012, + 0.00003, 0.00034, 0.00086, + 0.15714, 0.03200, 0.02188, 0.00021, 0.00012, + 0.00003, 0.00030, 0.00076, + 0.14414, 0.02909, 0.01798, 0.00020, 0.00011, + 0.00004, 0.00027, 0.00070, + 0.13298, 0.02662, 0.01502, 0.00019, 0.00011, + 0.00005, 0.00025, 0.00064 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.12329, 0.02450, 0.01273, 0.00017, 0.00011, + 0.00005, 0.00023, 0.00057, + 0.11479, 0.02266, 0.01092, 0.00017, 0.00010, + 0.00005, 0.00022, 0.00052, + 0.10731, 0.02106, 0.00947, 0.00017, 0.00009, + 0.00004, 0.00020, 0.00048, + 0.10067, 0.01964, 0.00830, 0.00015, 0.00009, + 0.00005, 0.00019, 0.00044, + 0.09475, 0.01837, 0.00733, 0.00013, 0.00008, + 0.00005, 0.00018, 0.00042, + 0.08940, 0.01724, 0.00653, 0.00012, 0.00008, + 0.00005, 0.00017, 0.00039, + 0.08456, 0.01623, 0.00585, 0.00013, 0.00008, + 0.00005, 0.00016, 0.00036 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08018, 0.01532, 0.00528, 0.00013, 0.00008, + 0.00004, 0.00014, 0.00033, + 0.07616, 0.01449, 0.00479, 0.00013, 0.00007, + 0.00004, 0.00013, 0.00031, + 0.07251, 0.01374, 0.00437, 0.00012, 0.00007, + 0.00004, 0.00013, 0.00030, + 0.06916, 0.01305, 0.00401, 0.00012, 0.00007, + 0.00004, 0.00012, 0.00027, + 0.06608, 0.01242, 0.00369, 0.00011, 0.00006, + 0.00004, 0.00012, 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.20691, 0.04176, 0.04632, 0.00013, 0.00006, + 0.00004, 0.00028, 0.00080, + 0.18121, 0.03604, 0.03370, 0.00013, 0.00009, + 0.00004, 0.00027, 0.00069, + 0.16102, 0.03163, 0.02549, 0.00012, 0.00008, + 0.00002, 0.00023, 0.00061, + 0.14467, 0.02812, 0.01987, 0.00013, 0.00009, + 0.00003, 0.00021, 0.00054, + 0.13116, 0.02525, 0.01588, 0.00010, 0.00008, + 0.00004, 0.00019, 0.00048, + 0.11973, 0.02285, 0.01294, 0.00010, 0.00008, + 0.00004, 0.00018, 0.00043, + 0.10998, 0.02083, 0.01074, 0.00011, 0.00008, + 0.00004, 0.00017, 0.00038 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.10157, 0.01909, 0.00903, 0.00009, 0.00008, + 0.00004, 0.00015, 0.00035, + 0.09422, 0.01759, 0.00770, 0.00009, 0.00008, + 0.00004, 0.00014, 0.00032, + 0.08777, 0.01628, 0.00665, 0.00009, 0.00007, + 0.00004, 0.00013, 0.00029, + 0.08206, 0.01513, 0.00580, 0.00009, 0.00006, + 0.00004, 0.00012, 0.00028, + 0.07698, 0.01412, 0.00510, 0.00008, 0.00006, + 0.00004, 0.00011, 0.00025, + 0.07242, 0.01321, 0.00452, 0.00007, 0.00006, + 0.00003, 0.00011, 0.00023, + 0.06833, 0.01240, 0.00404, 0.00007, 0.00006, + 0.00003, 0.00010, 0.00022 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.06462, 0.01167, 0.00363, 0.00007, 0.00005, + 0.00003, 0.00009, 0.00020, + 0.06123, 0.01101, 0.00329, 0.00007, 0.00005, + 0.00003, 0.00009, 0.00019, + 0.05814, 0.01042, 0.00299, 0.00006, 0.00005, + 0.00003, 0.00008, 0.00018, + 0.05533, 0.00987, 0.00274, 0.00005, 0.00004, + 0.00002, 0.00008, 0.00017, + 0.05275, 0.00937, 0.00251, 0.00005, 0.00004, + 0.00002, 0.00007, 0.00016 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.17455, 0.03329, 0.03478, 0.00009, 0.00002, + 0.00000, 0.00015, 0.00050, + 0.15174, 0.02853, 0.02492, 0.00010, 0.00004, + 0.00000, 0.00014, 0.00042, + 0.13397, 0.02490, 0.01862, 0.00009, 0.00005, + 0.00001, 0.00013, 0.00038, + 0.11972, 0.02200, 0.01436, 0.00008, 0.00005, + 0.00000, 0.00012, 0.00032, + 0.10798, 0.01965, 0.01137, 0.00008, 0.00005, + 0.00001, 0.00011, 0.00029, + 0.09813, 0.01771, 0.00920, 0.00008, 0.00004, + 0.00002, 0.00010, 0.00026, + 0.08976, 0.01607, 0.00757, 0.00007, 0.00004, + 0.00002, 0.00009, 0.00025 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.08255, 0.01467, 0.00633, 0.00007, 0.00004, + 0.00001, 0.00008, 0.00021, + 0.07629, 0.01347, 0.00537, 0.00007, 0.00004, + 0.00002, 0.00008, 0.00019, + 0.07083, 0.01243, 0.00461, 0.00007, 0.00004, + 0.00002, 0.00007, 0.00017, + 0.06600, 0.01152, 0.00400, 0.00006, 0.00003, + 0.00001, 0.00006, 0.00015, + 0.06171, 0.01071, 0.00351, 0.00007, 0.00003, + 0.00001, 0.00006, 0.00015, + 0.05790, 0.01000, 0.00310, 0.00005, 0.00003, + 0.00001, 0.00006, 0.00014, + 0.05448, 0.00936, 0.00276, 0.00004, 0.00003, + 0.00001, 0.00005, 0.00013 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05137, 0.00878, 0.00248, 0.00005, 0.00003, + 0.00001, 0.00005, 0.00012, + 0.04855, 0.00827, 0.00224, 0.00005, 0.00003, + 0.00001, 0.00005, 0.00011, + 0.04600, 0.00780, 0.00203, 0.00005, 0.00002, + 0.00001, 0.00004, 0.00011, + 0.04367, 0.00737, 0.00185, 0.00004, 0.00002, + 0.00001, 0.00004, 0.00010, + 0.04154, 0.00698, 0.00169, 0.00004, 0.00002, + 0.00001, 0.00004, 0.00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.14466, 0.02595, 0.02551, 0.00002, 0.00004, + 0.00003, 0.00011, 0.00029, + 0.12481, 0.02208, 0.01800, 0.00004, 0.00004, + 0.00002, 0.00010, 0.00025, + 0.10951, 0.01914, 0.01327, 0.00002, 0.00004, + 0.00001, 0.00009, 0.00021, + 0.09728, 0.01682, 0.01013, 0.00003, 0.00004, + 0.00002, 0.00008, 0.00019, + 0.08727, 0.01495, 0.00794, 0.00003, 0.00003, + 0.00002, 0.00007, 0.00017, + 0.07893, 0.01341, 0.00637, 0.00003, 0.00003, + 0.00002, 0.00007, 0.00015, + 0.07186, 0.01211, 0.00520, 0.00003, 0.00003, + 0.00002, 0.00006, 0.00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.06582, 0.01101, 0.00432, 0.00003, 0.00003, + 0.00002, 0.00006, 0.00011, + 0.06059, 0.01007, 0.00364, 0.00003, 0.00003, + 0.00002, 0.00005, 0.00011, + 0.05604, 0.00926, 0.00311, 0.00003, 0.00003, + 0.00002, 0.00005, 0.00010, + 0.05205, 0.00855, 0.00269, 0.00003, 0.00002, + 0.00001, 0.00004, 0.00008, + 0.04850, 0.00793, 0.00235, 0.00003, 0.00003, + 0.00001, 0.00004, 0.00008, + 0.04536, 0.00737, 0.00207, 0.00003, 0.00002, + 0.00001, 0.00004, 0.00007, + 0.04255, 0.00688, 0.00183, 0.00002, 0.00002, + 0.00001, 0.00004, 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.04002, 0.00644, 0.00164, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00007, + 0.03773, 0.00604, 0.00148, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00006, + 0.03565, 0.00569, 0.00134, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00006, + 0.03376, 0.00537, 0.00122, 0.00002, 0.00001, + 0.00001, 0.00003, 0.00005, + 0.03204, 0.00507, 0.00111, 0.00001, 0.00001, + 0.00001, 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.09437, 0.01492, 0.01292, 0.00001, 0.00001, + 0.00000, 0.00003, 0.00009, + 0.08017, 0.01250, 0.00883, 0.00001, 0.00001, + 0.00000, 0.00003, 0.00007, + 0.06937, 0.01068, 0.00634, 0.00001, 0.00001, + 0.00000, 0.00003, 0.00006, + 0.06086, 0.00928, 0.00472, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.05399, 0.00816, 0.00363, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.04833, 0.00724, 0.00286, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.04360, 0.00648, 0.00230, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.03957, 0.00584, 0.00189, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.03614, 0.00530, 0.00158, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.03318, 0.00483, 0.00133, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.03059, 0.00443, 0.00114, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.02832, 0.00408, 0.00099, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02630, 0.00377, 0.00086, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02452, 0.00350, 0.00076, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02293, 0.00325, 0.00068, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02149, 0.00304, 0.00061, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02020, 0.00284, 0.00055, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01903, 0.00267, 0.00049, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01796, 0.00251, 0.00045, 0.00001, 0.00000, + 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.05631, 0.00773, 0.00585, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00002, + 0.04704, 0.00637, 0.00386, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.04008, 0.00537, 0.00269, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.03471, 0.00460, 0.00196, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.03043, 0.00400, 0.00148, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.02693, 0.00351, 0.00114, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02406, 0.00311, 0.00091, 0.00000, 0.00000, + 0.00000, 0.00000, 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.02164, 0.00277, 0.00073, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01958, 0.00250, 0.00060, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01782, 0.00226, 0.00051, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01630, 0.00205, 0.00043, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01498, 0.00188, 0.00037, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01382, 0.00172, 0.00032, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01279, 0.00159, 0.00028, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + 0.01188, 0.00147, 0.00025, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01107, 0.00136, 0.00022, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01035, 0.00127, 0.00020, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00970, 0.00118, 0.00018, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00911, 0.00111, 0.00016, 0.00000, 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=1,7)/ + 0.02987, 0.00349, 0.00227, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02449, 0.00282, 0.00145, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.02052, 0.00234, 0.00098, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01752, 0.00198, 0.00069, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01514, 0.00169, 0.00051, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01324, 0.00147, 0.00039, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01169, 0.00129, 0.00030, 0.00000, 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.01040, 0.00114, 0.00024, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00932, 0.00101, 0.00020, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00840, 0.00091, 0.00016, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00762, 0.00082, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00695, 0.00074, 0.00012, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00636, 0.00068, 0.00010, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00584, 0.00062, 0.00009, 0.00000, 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.00539, 0.00057, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00499, 0.00052, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00463, 0.00048, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00431, 0.00045, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00402, 0.00042, 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.01334, 0.00129, 0.00070, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01070, 0.00102, 0.00043, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00880, 0.00083, 0.00028, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00738, 0.00069, 0.00019, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00628, 0.00058, 0.00014, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00542, 0.00050, 0.00010, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00472, 0.00043, 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.00414, 0.00038, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00367, 0.00033, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00328, 0.00029, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00294, 0.00026, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00265, 0.00023, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00241, 0.00021, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00219, 0.00019, 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.00201, 0.00018, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00184, 0.00016, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00170, 0.00015, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00157, 0.00014, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00145, 0.00013, 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.00099, 0.00005, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00074, 0.00004, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00058, 0.00003, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00046, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00038, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00031, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00026, 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=8,14)/ + 0.00022, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00019, 0.00001, 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, + 0.00014, 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.00011, 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 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + 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, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00006, 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,9,0,0,9,9/ 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(33,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)= (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 C