C ======================================== SUBROUTINE XSECTAKE96(Run, Event, IWant) C ======================================== C ---------------------------------------------------------------------------- C Routine for NC/CC/D*/... measurement 'good run' selection C in '96 ZEUS DATA C C Author : Richard Hall-Wilton (hwilton@zow.desy.de) C (A.Quadt, quadt@zow.desy.de) C 14/05/1997 C Update : --- C C C Version: 1.00 C C ---------------------------------------------------------------------------- C C Input: Run -> INTEGER run number C Event -> INTEGER event number C C Output: IWant -> Quality flag C C 0 => good run, accept it C 1 => bad run, reject it C -99 => unknown run C C This subroutine is designed to be flexible, and can be used within PAW C or within an ease job. C ---------------------------------------------------------------------------- C The quality flag is determined for each run, depending upon whether C the data quality from particular components has no severe problems. C These components are: C CTD,CAL,SRTD,CFLT,SLT,TLT. C Also see: http://www-zeus.desy.de/~hwilton/xsectake96.html C --------------------------------------------------------------------------- INTEGER Run, Event, IWant LOGICAL First DATA First /.true./ SAVE First C --- > cut from here and paste run_select output (fort.21) --- INTEGER NRUNS, I, J INTEGER RUN_INFO INTEGER dummy1(5,50), dummy2(5,50) INTEGER dummy3(5,50), dummy4(5,50) INTEGER dummy5(5,50), dummy6(5,50) INTEGER dummy7(5,50), dummy8(5,50) INTEGER dummy9(5,50), dummy10(5,50) INTEGER dummy11(5,50), dummy12(5,50) INTEGER dummy13(5,50), dummy14(5,50) INTEGER dummy15(5,50), dummy16(5,50) INTEGER dummy17(5,50), dummy18(5,46) COMMON/BINS/RUN_INFO(5, 896),NRUNS DATA NRUNS / 896 / DATA dummy1/ & 20750, 1,999999999,1,1,20751, 1,999999999,1,1 &,20752, 1,999999999,1,1,20753, 1,999999999,1,1 &,20754, 1,999999999,1,1,20755, 1,999999999,1,1 &,20771, 1,999999999,1,1,20785, 1,999999999,1,1 &,20786, 1,999999999,1,1,20787, 1,999999999,1,1 &,20788, 1,999999999,1,1,20789, 1,999999999,1,1 &,20790, 1,999999999,1,1,20791, 1,999999999,1,1 &,20792, 1,999999999,1,1,20809, 1,999999999,1,1 &,20818, 1,999999999,1,1,20819, 1,999999999,1,1 &,20820, 1,999999999,1,1,20821, 1,999999999,1,1 &,20845, 1,999999999,0,0,20846, 1,999999999,0,0 &,20857, 1,999999999,0,0,20858, 1,999999999,0,0 &,20864, 1,999999999,0,0,20869, 1,999999999,0,0 &,20870, 1,999999999,0,0,20871, 1,999999999,0,0 &,20872, 1,999999999,1,1,20873, 1,999999999,0,0 &,20874, 1,999999999,0,0,20875, 1,999999999,0,0 &,20876, 1,999999999,0,0,20877, 1,999999999,0,0 &,20879, 1,999999999,0,0,20905, 1,999999999,0,0 &,20906, 1,999999999,0,0,20907, 1,999999999,0,0 &,20908, 1,999999999,0,0,20909, 1,999999999,0,0 &,20910, 1,999999999,0,0,20911, 1,999999999,0,0 &,20929, 1,999999999,1,1,20930, 1,999999999,1,1 &,20931, 1,999999999,1,1,20932, 1,999999999,1,1 &,20933, 1,999999999,1,1,20934, 1,999999999,1,1 &,20935, 1,999999999,1,1,20967, 1,999999999,1,1/ DATA dummy2/ & 20968, 1,999999999,1,1,20970, 1,999999999,1,1 &,20995, 1,999999999,1,1,20996, 1,999999999,1,1 &,20997, 1,999999999,1,1,20998, 1,999999999,1,1 &,20999, 1,999999999,1,1,21000, 1,999999999,1,1 &,21001, 1,999999999,1,1,21010, 1,999999999,1,1 &,21012, 1,999999999,1,1,21013, 1,999999999,1,1 &,21014, 1,999999999,1,1,21016, 1,999999999,1,1 &,21023, 1,999999999,1,1,21027, 1,999999999,1,1 &,21028, 1,999999999,1,1,21029, 1,999999999,1,1 &,21030, 1,999999999,1,1,21031, 1,999999999,1,1 &,21036, 1,999999999,1,1,21037, 1,999999999,1,1 &,21038, 1,999999999,1,1,21039, 1,999999999,1,1 &,21040, 1,999999999,1,1,21041, 1,999999999,1,1 &,21042, 1,999999999,1,1,21057, 1,999999999,1,1 &,21058, 1,999999999,1,1,21059, 1,999999999,1,1 &,21061, 1,999999999,1,1,21070, 1,999999999,1,1 &,21071, 1,999999999,1,1,21072, 1,999999999,1,1 &,21073, 1,999999999,1,1,21074, 1,999999999,1,1 &,21076, 1,999999999,1,1,21077, 1,999999999,1,1 &,21078, 1,999999999,1,1,21079, 1,999999999,1,1 &,21085, 1,999999999,1,1,21086, 1,999999999,1,1 &,21087, 1,999999999,1,1,21088, 1,999999999,1,1 &,21105, 1,999999999,1,1,21106, 1,999999999,1,1 &,21108, 1,999999999,1,1,21118, 1,999999999,1,1 &,21128, 1,999999999,1,1,21129, 1,999999999,1,1/ DATA dummy3/ & 21130, 1,999999999,1,1,21164, 1,999999999,1,1 &,21165, 1,999999999,0,0,21166, 1,999999999,0,0 &,21167, 1,999999999,0,0,21168, 1,999999999,0,0 &,21186, 1,999999999,0,0,21187, 1,999999999,0,0 &,21189, 1,999999999,0,0,21190, 1,999999999,0,0 &,21191, 1,999999999,0,0,21192, 1,999999999,0,0 &,21193, 1,999999999,0,0,21202, 1,999999999,0,0 &,21203, 1,999999999,0,0,21204, 1,999999999,0,0 &,21205, 1,999999999,0,0,21206, 1,999999999,0,0 &,21207, 1,999999999,1,1,21208, 1,999999999,1,1 &,21209, 1,999999999,1,1,21217, 1,999999999,1,1 &,21218, 1,999999999,1,1,21219, 1,999999999,1,1 &,21226, 1,999999999,0,0,21227, 1,999999999,0,0 &,21259, 1,999999999,0,0,21260, 1,999999999,0,0 &,21261, 1,999999999,0,0,21262, 1,999999999,1,1 &,21263, 1,999999999,0,0,21273, 1,999999999,1,1 &,21274, 1,999999999,0,0,21277, 1,999999999,0,0 &,21278, 1,999999999,0,0,21279, 1,999999999,0,0 &,21285, 1,999999999,0,0,21286, 1,999999999,0,0 &,21288, 1,999999999,0,0,21289, 1,999999999,0,0 &,21290, 1,999999999,0,0,21296, 1,999999999,0,0 &,21297, 1,999999999,0,0,21298, 1,999999999,0,0 &,21299, 1,999999999,0,0,21300, 1,999999999,0,0 &,21301, 1,999999999,0,0,21303, 1,999999999,0,0 &,21304, 1,999999999,0,0,21338, 1,999999999,0,0/ DATA dummy4/ & 21339, 1,999999999,0,0,21356, 1,999999999,1,1 &,21357, 1,999999999,1,1,21358, 1,999999999,1,1 &,21371, 1,999999999,0,0,21373, 1,999999999,0,0 &,21374, 1,999999999,0,0,21375, 1,999999999,0,0 &,21376, 1,999999999,0,0,21377, 1,999999999,1,1 &,21378, 1,999999999,0,0,21383, 1,999999999,0,0 &,21384, 1,999999999,0,0,21385, 1,999999999,0,0 &,21386, 1,999999999,1,1,21392, 1,999999999,0,0 &,21393, 1,999999999,0,0,21440, 1,999999999,0,0 &,21441, 1,999999999,0,0,21442, 1,999999999,1,1 &,21443, 1,999999999,0,0,21445, 1,999999999,0,0 &,21446, 1,999999999,0,0,21447, 1,999999999,0,0 &,21448, 1,999999999,0,0,21449, 1,999999999,0,0 &,21450, 1,999999999,0,0,21469, 1,999999999,0,0 &,21470, 1,999999999,0,0,21471, 1,999999999,0,0 &,21472, 1,999999999,0,0,21473, 1,999999999,0,0 &,21477, 1,999999999,0,0,21478, 1,999999999,0,0 &,21495, 1,999999999,0,0,21496, 1,999999999,0,0 &,21497, 1,999999999,0,0,21504, 1,999999999,0,0 &,21505, 1,999999999,0,0,21506, 1,999999999,0,0 &,21507, 1,999999999,0,0,21508, 1,999999999,0,0 &,21512, 1,999999999,0,0,21513, 1,999999999,0,0 &,21514, 1,999999999,0,0,21515, 1,999999999,0,0 &,21516, 1,999999999,0,0,21520, 1,999999999,0,0 &,21521, 1,999999999,0,0,21522, 1,999999999,0,0/ DATA dummy5/ & 21523, 1,999999999,0,0,21524, 1,999999999,0,0 &,21525, 1,999999999,0,0,21526, 1,999999999,0,0 &,21527, 1,999999999,0,0,21528, 1,999999999,0,0 &,21529, 1,999999999,0,0,21539, 1,999999999,0,0 &,21540, 1,999999999,1,1,21545, 1,999999999,0,0 &,21546, 1,999999999,0,0,21547, 1,999999999,0,0 &,21548, 1,999999999,0,0,21551, 1,999999999,0,0 &,21552, 1,999999999,0,0,21553, 1,999999999,0,0 &,21554, 1,999999999,1,1,21555, 1,999999999,0,0 &,21556, 1,999999999,0,0,21558, 1,999999999,0,0 &,21559, 1,999999999,0,0,21560, 1,999999999,0,0 &,21561, 1,999999999,0,0,21562, 1,999999999,0,0 &,21563, 1,999999999,0,0,21565, 1,999999999,0,0 &,21566, 1,999999999,0,0,21567, 1,999999999,0,0 &,21568, 1,999999999,0,0,21569, 1,999999999,0,0 &,21570, 1,999999999,0,0,21576, 1,999999999,0,0 &,21577, 1,999999999,0,0,21578, 1,999999999,0,0 &,21579, 1,999999999,0,0,21580, 1,999999999,0,0 &,21581, 1,999999999,0,0,21582, 1,999999999,0,0 &,21585, 1,999999999,0,0,21587, 1,999999999,0,0 &,21588, 1,999999999,0,0,21589, 1,999999999,0,0 &,21590, 1,999999999,0,0,21591, 1,999999999,0,0 &,21592, 1,999999999,0,0,21609, 1,999999999,0,0 &,21610, 1,999999999,0,0,21611, 1,999999999,0,0 &,21612, 1,999999999,0,0,21613, 1,999999999,0,0/ DATA dummy6/ & 21614, 1,999999999,0,0,21615, 1,999999999,0,0 &,21616, 1,999999999,0,0,21617, 1,999999999,0,0 &,21618, 1,999999999,0,0,21619, 1,999999999,0,0 &,21626, 1,999999999,0,0,21627, 1,999999999,1,1 &,21629, 1,999999999,0,0,21630, 1,999999999,0,0 &,21631, 1,999999999,0,0,21634, 1,999999999,0,0 &,21635, 1,999999999,0,0,21636, 1,999999999,0,0 &,21637, 1,999999999,0,0,21639, 1,999999999,0,0 &,21640, 1,999999999,0,0,21641, 1,999999999,0,0 &,21642, 1,999999999,0,0,21646, 1,999999999,0,0 &,21647, 1,999999999,0,0,21648, 1,999999999,0,0 &,21649, 1,999999999,0,0,21651, 1,999999999,0,0 &,21652, 1,999999999,0,0,21653, 1,999999999,0,0 &,21654, 1,999999999,0,0,21659, 1,999999999,1,1 &,21660, 1,999999999,1,1,21662, 1,999999999,1,1 &,21663, 1,999999999,1,1,21665, 1,999999999,0,0 &,21668, 1,999999999,0,0,21669, 1,999999999,0,0 &,21670, 1,999999999,0,0,21689, 1,999999999,0,0 &,21690, 1,999999999,0,0,21702, 1,999999999,0,0 &,21703, 1,999999999,0,0,21704, 1,999999999,0,0 &,21705, 1,999999999,0,0,21706, 1,999999999,1,1 &,21707, 1,999999999,1,1,21708, 1,999999999,0,0 &,21709, 1,999999999,1,1,21710, 1,999999999,0,0 &,21713, 1,999999999,0,0,21714, 1,999999999,0,0 &,21716, 1,999999999,0,0,21717, 1,999999999,0,0/ DATA dummy7/ & 21718, 1,999999999,0,0,21719, 1,999999999,0,0 &,21720, 1,999999999,0,0,21724, 1,999999999,0,0 &,21725, 1,999999999,0,0,21726, 1,999999999,0,0 &,21727, 1,999999999,0,0,21728, 1,999999999,0,0 &,21732, 1,999999999,0,0,21733, 1,999999999,0,0 &,21734, 1,999999999,0,0,21735, 1,999999999,0,0 &,21736, 1,999999999,0,0,21737, 1,999999999,0,0 &,21744, 1,999999999,0,0,21745, 1,999999999,0,0 &,21746, 1,999999999,0,0,21752, 1,999999999,0,0 &,21754, 1,999999999,0,0,21755, 1,999999999,0,0 &,21756, 1,999999999,0,0,21757, 1,999999999,0,0 &,21758, 1,999999999,0,0,21759, 1,999999999,0,0 &,21761, 1,999999999,0,0,21762, 1,999999999,0,0 &,21763, 1,999999999,0,0,21767, 1,999999999,0,0 &,21768, 1,999999999,0,0,21777, 1,999999999,1,1 &,21778, 1,999999999,1,1,21779, 1,999999999,1,1 &,21780, 1,999999999,1,1,21781, 1,999999999,1,1 &,21782, 1,999999999,1,1,21783, 1,999999999,1,1 &,21784, 1,999999999,0,0,21785, 1,999999999,0,0 &,21786, 1,999999999,0,0,21791, 1,999999999,1,1 &,21792, 1,999999999,0,0,21793, 1,999999999,0,0 &,21794, 1,999999999,0,0,21795, 1,999999999,0,0 &,21796, 1,999999999,0,0,21797, 1,999999999,0,0 &,21798, 1,999999999,0,0,21812, 1,999999999,0,0 &,21813, 1,999999999,0,0,21814, 1,999999999,1,1/ DATA dummy8/ & 21816, 1,999999999,0,0,21817, 1,999999999,0,0 &,21819, 1,999999999,0,0,21821, 1,999999999,1,1 &,21837, 1,999999999,1,1,21838, 1,999999999,0,0 &,21839, 1,999999999,0,0,21840, 1,999999999,0,0 &,21841, 1,999999999,0,0,21842, 1,999999999,0,0 &,21843, 1,999999999,0,0,21844, 1,999999999,0,0 &,21845, 1,999999999,0,0,21847, 1,999999999,0,0 &,21848, 1,999999999,0,0,21849, 1,999999999,0,0 &,21850, 1,999999999,0,0,21851, 1,999999999,0,0 &,21853, 1,999999999,0,0,21871, 1,999999999,0,0 &,21872, 1,999999999,0,0,21873, 1,999999999,0,0 &,21874, 1,999999999,0,0,21876, 1,999999999,0,0 &,21878, 1,999999999,1,1,21879, 1,999999999,0,0 &,21883, 1,999999999,0,0,21884, 1,999999999,0,0 &,21885, 1,999999999,0,0,21886, 1,999999999,0,0 &,21887, 1,999999999,0,0,21890, 1,999999999,0,0 &,21892, 1,999999999,0,0,21893, 1,999999999,0,0 &,21894, 1,999999999,0,0,21895, 1,999999999,0,0 &,21896, 1,999999999,0,0,21897, 1,999999999,0,0 &,21898, 1,999999999,0,0,21899, 1,999999999,0,0 &,21900, 1,999999999,0,0,21901, 1,999999999,0,0 &,21904, 1,999999999,0,0,21905, 1,999999999,0,0 &,21906, 1,999999999,0,0,21907, 1,999999999,0,0 &,21909, 1,999999999,0,0,21910, 1,999999999,0,0 &,21911, 1,999999999,0,0,21912, 1,999999999,0,0/ DATA dummy9/ & 21913, 1,999999999,0,0,21914, 1,999999999,0,0 &,21915, 1,999999999,0,0,21928, 1,999999999,0,0 &,21929, 1,999999999,0,0,21930, 1,999999999,0,0 &,21933, 1,999999999,0,0,21938, 1,999999999,0,0 &,21939, 1,999999999,0,0,21940, 1,999999999,0,0 &,21941, 1,999999999,0,0,21942, 1,999999999,0,0 &,21943, 1,999999999,0,0,21944, 1,999999999,0,0 &,21945, 1,999999999,0,0,21949, 1,999999999,0,0 &,21950, 1,999999999,0,0,21951, 1,999999999,0,0 &,21952, 1,999999999,0,0,21953, 1,999999999,0,0 &,21957, 1,999999999,0,0,21958, 1,999999999,0,0 &,21959, 1,999999999,0,0,21960, 1,999999999,0,0 &,21961, 1,999999999,0,0,21964, 1,999999999,0,0 &,21965, 1,999999999,0,0,21966, 1,999999999,1,1 &,21967, 1,999999999,0,0,21972, 1,999999999,0,0 &,21973, 1,999999999,0,0,21974, 1,999999999,0,0 &,21975, 1,999999999,0,0,21976, 1,999999999,0,0 &,21977, 1,999999999,0,0,21979, 1,999999999,0,0 &,21989, 1,999999999,0,0,21990, 1,999999999,0,0 &,22000, 1,999999999,0,0,22001, 1,999999999,1,1 &,22002, 1,999999999,1,1,22003, 1,999999999,0,0 &,22005, 1,999999999,0,0,22018, 1,999999999,0,0 &,22019, 1,999999999,0,0,22020, 1,999999999,0,0 &,22025, 1,999999999,0,0,22027, 1,999999999,0,0 &,22028, 1,999999999,0,0,22029, 1,999999999,0,0/ DATA dummy10/ & 22030, 1,999999999,0,0,22031, 1,999999999,0,0 &,22032, 1,999999999,0,0,22036, 1,999999999,0,0 &,22044, 1,999999999,0,0,22045, 1,999999999,0,0 &,22047, 1,999999999,0,0,22048, 1,999999999,0,0 &,22050, 1,999999999,0,0,22051, 1,999999999,0,0 &,22052, 1,999999999,0,0,22058, 1,999999999,0,0 &,22059, 1,999999999,0,0,22061, 1,999999999,0,0 &,22063, 1,999999999,0,0,22065, 1,999999999,0,0 &,22066, 1,999999999,0,0,22067, 1,999999999,0,0 &,22072, 1,999999999,1,1,22073, 1,999999999,1,1 &,22075, 1,999999999,1,1,22076, 1,999999999,1,1 &,22077, 1,999999999,1,1,22078, 1,999999999,1,1 &,22079, 1,999999999,1,1,22080, 1,999999999,1,1 &,22087, 1,999999999,1,1,22088, 1,999999999,1,1 &,22089, 1,999999999,1,1,22090, 1,999999999,1,1 &,22091, 1,999999999,1,1,22092, 1,999999999,1,1 &,22094, 1,999999999,1,1,22111, 1,999999999,0,0 &,22112, 1,999999999,0,0,22113, 1,999999999,0,0 &,22114, 1,999999999,0,0,22115, 1,999999999,0,0 &,22116, 1,999999999,0,0,22124, 1,999999999,0,0 &,22125, 1,999999999,0,0,22126, 1,999999999,0,0 &,22127, 1,999999999,0,0,22128, 1,999999999,0,0 &,22129, 1,999999999,0,0,22130, 1,999999999,0,0 &,22136, 1,999999999,0,0,22137, 1,999999999,0,0 &,22138, 1,999999999,0,0,22140, 1,999999999,0,0/ DATA dummy11/ & 22141, 1,999999999,0,0,22142, 1,999999999,0,0 &,22147, 1,999999999,0,0,22148, 1,999999999,0,0 &,22149, 1,999999999,0,0,22150, 1,999999999,0,0 &,22151, 1,999999999,0,0,22152, 1,999999999,0,0 &,22153, 1,999999999,0,0,22154, 1,999999999,0,0 &,22155, 1,999999999,0,0,22156, 1,999999999,0,0 &,22162, 1,999999999,1,1,22163, 1,999999999,1,1 &,22165, 1,999999999,1,1,22166, 1,999999999,1,1 &,22169, 1,999999999,1,1,22170, 1,999999999,0,0 &,22171, 1,999999999,0,0,22172, 1,999999999,0,0 &,22173, 1,999999999,0,0,22174, 1,999999999,0,0 &,22181, 1,999999999,1,1,22182, 1,999999999,1,1 &,22183, 1,999999999,1,1,22186, 1,999999999,0,0 &,22187, 1,999999999,0,0,22188, 1,999999999,0,0 &,22189, 1,999999999,0,0,22190, 1,999999999,0,0 &,22192, 1,999999999,0,0,22194, 1,999999999,0,0 &,22203, 1,999999999,0,0,22204, 1,999999999,0,0 &,22206, 1,999999999,0,0,22207, 1,999999999,0,0 &,22208, 1,999999999,0,0,22209, 1,999999999,0,0 &,22211, 1,999999999,0,0,22215, 1,999999999,0,0 &,22216, 1,999999999,0,0,22217, 1,999999999,0,0 &,22218, 1,999999999,0,0,22219, 1,999999999,0,0 &,22220, 1,999999999,0,0,22221, 1,999999999,0,0 &,22224, 1,999999999,0,0,22225, 1,999999999,0,0 &,22226, 1,999999999,0,0,22227, 1,999999999,0,0/ DATA dummy12/ & 22233, 1,999999999,0,0,22234, 1,999999999,0,0 &,22235, 1,999999999,0,0,22237, 1,999999999,0,0 &,22238, 1,999999999,0,0,22239, 1,999999999,0,0 &,22240, 1,999999999,0,0,22241, 1,999999999,0,0 &,22242, 1,999999999,0,0,22244, 1,999999999,0,0 &,22245, 1,999999999,0,0,22246, 1,999999999,0,0 &,22247, 1,999999999,0,0,22248, 1,999999999,0,0 &,22250, 1,999999999,0,0,22251, 1,999999999,0,0 &,22252, 1,999999999,0,0,22253, 1,999999999,0,0 &,22254, 1,999999999,0,0,22260, 1,999999999,0,0 &,22261, 1,999999999,0,0,22262, 1,999999999,0,0 &,22263, 1,999999999,0,0,22264, 1,999999999,0,0 &,22265, 1,999999999,0,0,22266, 1,999999999,0,0 &,22269, 1,999999999,0,0,22270, 1,999999999,0,0 &,22273, 1,999999999,0,0,22274, 1,999999999,0,0 &,22275, 1,999999999,0,0,22276, 1,999999999,0,0 &,22277, 1,999999999,0,0,22278, 1,999999999,0,0 &,22279, 1,999999999,0,0,22280, 1,999999999,0,0 &,22281, 1,999999999,0,0,22282, 1,999999999,0,0 &,22283, 1,999999999,0,0,22289, 1,999999999,0,0 &,22290, 1,999999999,0,0,22291, 1,999999999,0,0 &,22292, 1,999999999,0,0,22294, 1,999999999,0,0 &,22295, 1,999999999,0,0,22297, 1,999999999,0,0 &,22298, 1,999999999,1,1,22300, 1,999999999,0,0 &,22301, 1,999999999,0,0,22302, 1,999999999,0,0/ DATA dummy13/ & 22309, 1,999999999,1,1,22310, 1,999999999,0,0 &,22311, 1,999999999,0,0,22312, 1,999999999,0,0 &,22326, 1,999999999,1,1,22327, 1,999999999,1,1 &,22328, 1,999999999,1,1,22329, 1,999999999,1,1 &,22330, 1,999999999,1,1,22331, 1,999999999,1,1 &,22332, 1,999999999,1,1,22333, 1,999999999,1,1 &,22334, 1,999999999,1,1,22336, 1,999999999,0,0 &,22337, 1,999999999,0,0,22338, 1,999999999,0,0 &,22339, 1,999999999,0,0,22340, 1,999999999,0,0 &,22345, 1,999999999,0,0,22346, 1,999999999,0,0 &,22347, 1,999999999,0,0,22352, 1,999999999,0,0 &,22353, 1,999999999,0,0,22354, 1,999999999,0,0 &,22362, 1,999999999,0,0,22363, 1,999999999,0,0 &,22364, 1,999999999,0,0,22365, 1,999999999,0,0 &,22366, 1,999999999,0,0,22367, 1,999999999,0,0 &,22368, 1,999999999,0,0,22392, 1,999999999,1,1 &,22394, 1,999999999,1,1,22395, 1,999999999,1,1 &,22396, 1,999999999,1,1,22402, 1,999999999,0,0 &,22403, 1,999999999,0,0,22404, 1,999999999,0,0 &,22407, 1,999999999,0,0,22408, 1,999999999,0,0 &,22409, 1,999999999,0,0,22414, 1,999999999,1,1 &,22415, 1,999999999,0,0,22416, 1,999999999,0,0 &,22417, 1,999999999,0,0,22418, 1,999999999,0,0 &,22419, 1,999999999,0,0,22420, 1,999999999,0,0 &,22423, 1,999999999,0,0,22424, 1,999999999,0,0/ DATA dummy14/ & 22425, 1,999999999,0,0,22426, 1,999999999,0,0 &,22437, 1,999999999,0,0,22438, 1,999999999,0,0 &,22439, 1,999999999,1,1,22441, 1,999999999,1,1 &,22442, 1,999999999,1,1,22447, 1,999999999,0,0 &,22451, 1,999999999,1,1,22452, 1,999999999,0,0 &,22454, 1,999999999,1,1,22458, 1,999999999,0,0 &,22459, 1,999999999,0,0,22460, 1,999999999,0,0 &,22462, 1,999999999,0,0,22466, 1,999999999,0,0 &,22468, 1,999999999,0,0,22469, 1,999999999,1,1 &,22479, 1,999999999,0,0,22490, 1,999999999,0,0 &,22491, 1,999999999,0,0,22492, 1,999999999,0,0 &,22493, 1,999999999,0,0,22494, 1,999999999,0,0 &,22495, 1,999999999,0,0,22496, 1,999999999,0,0 &,22504, 1,999999999,0,0,22505, 1,999999999,0,0 &,22506, 1,999999999,0,0,22510, 1,999999999,0,0 &,22512, 1,999999999,0,0,22513, 1,999999999,0,0 &,22514, 1,999999999,0,0,22515, 1,999999999,0,0 &,22516, 1,999999999,0,0,22523, 1,999999999,0,0 &,22524, 1,999999999,0,0,22525, 1,999999999,0,0 &,22526, 1,999999999,1,1,22527, 1,999999999,1,1 &,22528, 1,999999999,1,1,22529, 1,999999999,1,1 &,22531, 1,999999999,1,1,22535, 1,999999999,1,1 &,22537, 1,999999999,1,1,22538, 1,999999999,1,1 &,22539, 1,999999999,1,1,22542, 1,999999999,1,1 &,22543, 1,999999999,1,1,22544, 1,999999999,1,1/ DATA dummy15/ & 22545, 1,999999999,1,1,22546, 1,999999999,1,1 &,22547, 1,999999999,1,1,22548, 1,999999999,1,1 &,22549, 1,999999999,1,1,22555, 1,999999999,1,1 &,22556, 1,999999999,1,1,22557, 1,999999999,1,1 &,22559, 1,999999999,1,1,22562, 1,999999999,1,1 &,22563, 1,999999999,1,1,22571, 1,999999999,1,1 &,22574, 1,999999999,1,1,22575, 1,999999999,1,1 &,22576, 1,999999999,1,1,22577, 1,999999999,1,1 &,22583, 1,999999999,0,0,22584, 1,999999999,1,1 &,22594, 1,999999999,1,1,22596, 1,999999999,1,1 &,22597, 1,999999999,1,1,22598, 1,999999999,0,0 &,22599, 1,999999999,0,0,22600, 1,999999999,0,0 &,22601, 1,999999999,0,0,22605, 1,999999999,0,0 &,22606, 1,999999999,0,0,22610, 1,999999999,0,0 &,22611, 1,999999999,0,0,22612, 1,999999999,0,0 &,22613, 1,999999999,0,0,22614, 1,999999999,0,0 &,22615, 1,999999999,1,1,22617, 1,999999999,0,0 &,22618, 1,999999999,0,0,22619, 1,999999999,0,0 &,22621, 1,999999999,0,0,22622, 1,999999999,0,0 &,22624, 1,999999999,0,0,22625, 1,999999999,0,0 &,22626, 1,999999999,0,0,22627, 1,999999999,0,0 &,22635, 1,999999999,1,1,22636, 1,999999999,1,1 &,22637, 1,999999999,1,1,22638, 1,999999999,1,1 &,22639, 1,999999999,1,1,22640, 1,999999999,1,1 &,22641, 1,999999999,1,1,22647, 1,999999999,1,1/ DATA dummy16/ & 22648, 1,999999999,1,1,22649, 1,999999999,1,1 &,22650, 1,999999999,1,1,22651, 1,999999999,1,1 &,22652, 1,999999999,1,1,22653, 1,999999999,1,1 &,22654, 1,999999999,1,1,22655, 1,999999999,1,1 &,22656, 1,999999999,1,1,22657, 1,999999999,1,1 &,22658, 1,999999999,1,1,22659, 1,999999999,1,1 &,22660, 1,999999999,1,1,22661, 1,999999999,1,1 &,22662, 1,999999999,1,1,22673, 1,999999999,1,1 &,22674, 1,999999999,1,1,22675, 1,999999999,1,1 &,22679, 1,999999999,1,1,22680, 1,999999999,1,1 &,22681, 1,999999999,1,1,22682, 1,999999999,1,1 &,22683, 1,999999999,1,1,22685, 1,999999999,1,1 &,22686, 1,999999999,1,1,22695, 1,999999999,1,1 &,22696, 1,999999999,1,1,22698, 1,999999999,1,1 &,22699, 1,999999999,1,1,22704, 1,999999999,1,1 &,22706, 1,999999999,1,1,22707, 1,999999999,1,1 &,22708, 1,999999999,1,1,22709, 1,999999999,1,1 &,22710, 1,999999999,1,1,22711, 1,999999999,1,1 &,22712, 1,999999999,1,1,22713, 1,999999999,1,1 &,22715, 1,999999999,0,0,22716, 1,999999999,0,0 &,22717, 1,999999999,0,0,22718, 1,999999999,0,0 &,22719, 1,999999999,0,0,22722, 1,999999999,0,0 &,22723, 1,999999999,0,0,22724, 1,999999999,0,0 &,22725, 1,999999999,0,0,22726, 1,999999999,0,0 &,22731, 1,999999999,0,0,22732, 1,999999999,0,0/ DATA dummy17/ & 22736, 1,999999999,0,0,22737, 1,999999999,0,0 &,22740, 1,999999999,0,0,22745, 1,999999999,0,0 &,22746, 1,999999999,0,0,22747, 1,999999999,0,0 &,22748, 1,999999999,0,0,22749, 1,999999999,0,0 &,22753, 1,999999999,0,0,22756, 1,999999999,0,0 &,22757, 1,999999999,0,0,22764, 1,999999999,0,0 &,22765, 1,999999999,0,0,22767, 1,999999999,0,0 &,22768, 1,999999999,0,0,22769, 1,999999999,0,0 &,22777, 1,999999999,0,0,22780, 1,999999999,0,0 &,22795, 1,999999999,0,0,22796, 1,999999999,0,0 &,22797, 1,999999999,1,1,22798, 1,999999999,1,1 &,22800, 1,999999999,1,1,22801, 1,999999999,1,1 &,22810, 1,999999999,1,1,22812, 1,999999999,0,0 &,22813, 1,999999999,0,0,22814, 1,999999999,0,0 &,22818, 1,999999999,1,1,22819, 1,999999999,1,1 &,22820, 1,999999999,1,1,22821, 1,999999999,1,1 &,22822, 1,999999999,1,1,22824, 1,999999999,1,1 &,22835, 1,999999999,0,0,22836, 1,999999999,0,0 &,22837, 1,999999999,0,0,22838, 1,999999999,0,0 &,22839, 1,999999999,0,0,22840, 1,999999999,0,0 &,22841, 1,999999999,0,0,22842, 1,999999999,0,0 &,22843, 1,999999999,0,0,22848, 1,999999999,0,0 &,22849, 1,999999999,0,0,22850, 1,999999999,0,0 &,22851, 1,999999999,0,0,22856, 1,999999999,1,1 &,22858, 1,999999999,1,1,22860, 1,999999999,1,1/ DATA dummy18/ & 22861, 1,999999999,1,1,22862, 1,999999999,1,1 &,22863, 1,999999999,1,1,22864, 1,999999999,1,1 &,22868, 1,999999999,1,1,22869, 1,999999999,1,1 &,22871, 1,999999999,1,1,22872, 1,999999999,1,1 &,22873, 1,999999999,1,1,22874, 1,999999999,1,1 &,22875, 1,999999999,1,1,22879, 1,999999999,0,0 &,22880, 1,999999999,0,0,22881, 1,999999999,0,0 &,22882, 1,999999999,0,0,22883, 1,999999999,0,0 &,22884, 1,999999999,0,0,22885, 1,999999999,0,0 &,22886, 1,999999999,0,0,22888, 1,999999999,0,0 &,22890, 1,999999999,0,0,22892, 1,999999999,0,0 &,22894, 1,999999999,0,0,22898, 1,999999999,0,0 &,22901, 1,999999999,0,0,22902, 1,999999999,0,0 &,22903, 1,999999999,0,0,22904, 1,999999999,1,1 &,22906, 1,999999999,0,0,22908, 1,999999999,0,0 &,22909, 1,999999999,0,0,22916, 1,999999999,0,0 &,22917, 1,999999999,0,0,22918, 1,999999999,0,0 &,22920, 1,999999999,0,0,22921, 1,999999999,0,0 &,22922, 1,999999999,0,0,22934, 1,999999999,0,0 &,22942, 1,999999999,1,1,22943, 1,999999999,1,1 &,22944, 1,999999999,1,1,22945, 1,999999999,1,1 &,22946, 1,999999999,1,1,22947, 1,999999999,1,1 &,22953, 1,999999999,1,1,22954, 1,999999999,1,1/ IF (FIRST) THEN WRITE(6,*) WRITE(6,*) " ************************" WRITE(6,*) " * *" WRITE(6,*) " * This is XSECTAKE96 *" WRITE(6,*) " * *" WRITE(6,*) " ************************" WRITE(6,*) First = .false. DO J=1,5 DO K=1,50 RUN_INFO(J,K+ 0) = dummy1(J,K) RUN_INFO(J,K+ 50) = dummy2(J,K) RUN_INFO(J,K+ 100) = dummy3(J,K) RUN_INFO(J,K+ 150) = dummy4(J,K) RUN_INFO(J,K+ 200) = dummy5(J,K) RUN_INFO(J,K+ 250) = dummy6(J,K) RUN_INFO(J,K+ 300) = dummy7(J,K) RUN_INFO(J,K+ 350) = dummy8(J,K) RUN_INFO(J,K+ 400) = dummy9(J,K) RUN_INFO(J,K+ 450) = dummy10(J,K) RUN_INFO(J,K+ 500) = dummy11(J,K) RUN_INFO(J,K+ 550) = dummy12(J,K) RUN_INFO(J,K+ 600) = dummy13(J,K) RUN_INFO(J,K+ 650) = dummy14(J,K) RUN_INFO(J,K+ 700) = dummy15(J,K) RUN_INFO(J,K+ 750) = dummy16(J,K) RUN_INFO(J,K+ 800) = dummy17(J,K) ENDDO DO K=1,46 RUN_INFO(J,K+ 850) = dummy18(J,K) ENDDO ENDDO FIRST = .FALSE. ENDIF C --- > cut down to here and paste run_select output --- Iwant = -99 DO I=1, NRUNS IF (RUN_INFO(1,I) .EQ. RUN) THEN IF (RUN_INFO(2,I) .LE. EVENT .AND. & RUN_INFO(3,I) .GE. EVENT) THEN IWANT = RUN_INFO(5, I) RETURN ENDIF ENDIF ENDDO RETURN END