C---------------------------------------------------------------------- C- C- This common block holds formatted information for the trigger C- monitoring screens. C- C- Created 10-OCT-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE C- Updated 18-FEB-1991 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE C- Updated 1-SEP-1992 Philippe Laurens, Steven Klocek C- Added more items to the Per Bunch scaler C- structure. C- Updated 3-SEP-1993 Philippe Laurens - MSU L1 Trigger C- Add Large Tile Jet list C- Updated 1-SEP-1994 Philippe Laurens - MSU L1 Trigger C- Get rid of MON_DELTA_TIME C- MON_DELTA_BEAM_CROSSING C- MON_DELTA_GLOBAL_FIRED C- MON_DELTA_LEVEL_0 C- Updated 5-MAY-1995 Philippe Laurens - MSU L1 Trigger C- add variables for the new luminosity page C- C---------------------------------------------------------------------- C C A structure to keep track of each trigger tower C STRUCTURE / TRG_STRUCT / LOGICAL ALLOCATED LOGICAL ANDOR_ACTIVE(ANDOR_NUM_MIN:ANDOR_NUM_MAX) INTEGER NUM_ANDOR_ACTIVE INTEGER TRIGGER_FIRE_COUNT INTEGER TRIGGER_FIRE_COUNT_GIGAS INTEGER EVENT_TRANS_COUNT INTEGER EVENT_TRANS_COUNT_GIGAS LOGICAL TRIGGER_FIRED REAL ANDOR_FIRE_RATE INTEGER TRIGGER_EXPOS_COUNT INTEGER TRIGGER_EXPOS_COUNT_GIGAS REAL GLOB_EXPOS_PERCENT REAL GLOB_EXPOS_HZ INTEGER TRIGGER_EXPOS_AND_L0 INTEGER TRIGGER_EXPOS_AND_L0_GIGAS REAL TRIGGER_EXPOS_AND_L0_HZ INTEGER PRSCL_RATIO INTEGER READ_TIME REAL FE_BUSY_DIS REAL L20_DIS REAL AUTODISABLE LOGICAL ST_DIG(GEO_NUM_MIN:GEO_NUM_MAX) INTEGER NUM_ST_DIG LOGICAL WATCHBUSY(GEO_NUM_MIN:GEO_NUM_MAX) INTEGER NUM_WATCHBUSY LOGICAL PRSCLV_PROG REAL PRSCLV_PERCENT LOGICAL LEV15V_PROG REAL LEV15V_PERCENT LOGICAL LEV20V_PROG LOGICAL LEV20V_STATE REAL LEV20V_PERCENT LOGICAL GLOBV_PROG REAL GLOBV_PERCENT LOGICAL FEV_PROG LOGICAL FEV_STATE REAL FEV_PERCENT LOGICAL AUX2V_PROG REAL AUX2V_PERCENT LOGICAL AUTOV_PROG REAL AUTOV_PERCENT LOGICAL ANDOR_POLARIZATION(ANDOR_NUM_MIN:ANDOR_NUM_MAX) INTEGER NUM_POLARIZED LOGICAL IS_L15 REAL ST_L15_REJECT_PCT REAL L15_INPUT_HZ REAL L15_INPUT_PCT REAL L15_SKIP_HZ REAL L15_SKIP_PCT REAL L15_CONFIRM_HZ REAL L15_CONFIRM_PCT REAL L15_REJECT_HZ REAL L15_DEADX_PCT REAL L15_TIMEOUT_PCT INTEGER L15_TIMEOUT_CNT INTEGER NUM_L15_TERM REAL INT_DEAD_TIME_PCT LOGICAL L15_TERM_REQUIRED(L15_TERM_NUM_MIN:L15_TERM_NUM_MAX) END STRUCTURE C RECORD / TRG_STRUCT / TRIGGER_DATA(TRG_NUM_MIN:TRG_NUM_MAX) C C Structure to record information about geographic sections in C STRUCTURE / GEO_SECT_STRUCT / LOGICAL ALLOCATED LOGICAL STATUS REAL FE_BUSY_PERCENT LOGICAL FE_BUSY_STATE LOGICAL ST_DIG_STATE INTEGER NUM_TRG_FEB INTEGER NUM_TRG_STD END STRUCTURE C RECORD / GEO_SECT_STRUCT / GEO_SECT_DATA(GEO_NUM_MIN:GEO_NUM_MAX) C C Structure to record information about Calorimeter Trigger C STRUCTURE / CALTRIG_STRUCT / LOGICAL LV0_GOOD INTEGER LV0_BIN INTEGER ET_LOOKUP_PAGE_PHYS INTEGER ET_LOOKUP_PAGE_LOG INTEGER L2_LOOKUP_PAGE_PHYS INTEGER L2_LOOKUP_PAGE_LOG INTEGER PT_LOOKUP_PAGE_PHYS INTEGER PT_LOOKUP_PAGE_LOG REAL EM_ET_E REAL HD_ET_E REAL TOT_ET_E REAL EM_L2_E REAL HD_L2_E REAL TOT_L2_E REAL PX_PT REAL PY_PT REAL MIS_PT INTEGER EM_TOWER_RS_COUNT(RS_SET_MIN:RS_SET_MAX) INTEGER TOT_TOWER_RS_COUNT(RS_SET_MIN:RS_SET_MAX) INTEGER GLOB_THRSH_E_CLEARED(0:GT_MAX_E_THRSH-1, & GT_EM_ET_THRSH:GT_MIS_PT_THRSH) INTEGER GLOB_THRSH_CNT_CLEARED(0:GT_MAX_CNT_THRSH-1, & GT_RS_MIN:GT_RS_MAX, & GT_EM_CNT_THRSH:GT_TOT_CNT_THRSH) LOGICAL EM_JET_LIST_COMPLETE INTEGER EM_JET_LIST_LENGTH INTEGER EM_JET_LIST_DBLENGTH INTEGER EM_JET_LIST(0:1, 1:DB_MAX_JET_LIST_LENGTH) INTEGER EM_JET_LIST_ETA(1:DB_MAX_JET_LIST_LENGTH) INTEGER EM_JET_LIST_PHI(1:DB_MAX_JET_LIST_LENGTH) LOGICAL TOT_JET_LIST_COMPLETE INTEGER TOT_JET_LIST_LENGTH INTEGER TOT_JET_LIST_DBLENGTH INTEGER TOT_JET_LIST(0:1, 1:DB_MAX_JET_LIST_LENGTH) INTEGER TOT_JET_LIST_ETA(1:DB_MAX_JET_LIST_LENGTH) INTEGER TOT_JET_LIST_PHI(1:DB_MAX_JET_LIST_LENGTH) LOGICAL LG_TILE_LIST_COMPLETE INTEGER LG_TILE_LIST_LENGTH INTEGER LG_TILE_LIST_DBLENGTH INTEGER LG_TILE_LIST(0:1, 1:DB_MAX_JET_LIST_LENGTH) INTEGER LG_TILE_LIST_ETA(1:DB_MAX_JET_LIST_LENGTH) INTEGER LG_TILE_LIST_PHI(1:DB_MAX_JET_LIST_LENGTH) END STRUCTURE C RECORD / CALTRIG_STRUCT / CALTRIG_DATA C C Rates and Counts related to the Per Bunch scalers C STRUCTURE / PER_BUNCH_STRUCT / INTEGER L1_PER_BUNCH_COUNT INTEGER L1_PER_BUNCH_COUNT_GIGAS REAL L1_PER_BUNCH_RATE INTEGER L0_PER_BUNCH_COUNT INTEGER L0_PER_BUNCH_COUNT_GIGAS REAL L0_PER_BUNCH_RATE INTEGER LIVE_CROSSING_COUNT INTEGER LIVE_CROSSING_COUNT_GIGAS REAL LIVE_CROSSING_RATE INTEGER L0_LIVEX_COUNT INTEGER L0_LIVEX_COUNT_GIGAS REAL L0_LIVEX_RATE INTEGER L0S_LIVEX_COUNT INTEGER L0S_LIVEX_COUNT_GIGAS REAL L0S_LIVEX_RATE INTEGER L0S_CENT_COUNT INTEGER L0S_CENT_COUNT_GIGAS REAL L0S_CENT_RATE END STRUCTURE C RECORD / PER_BUNCH_STRUCT / & PER_BUNCH_DATA(PER_BUNCH_MIN:PER_BUNCH_MAX) C STRUCTURE / FOREIGN_SCALER_STRUCT / INTEGER FS_COUNT INTEGER FS_COUNT_GIGAS REAL FS_RATE END STRUCTURE C RECORD / FOREIGN_SCALER_STRUCT / & FOREIGN_SCALER_DATA(FOREIGN_MIN:FOREIGN_MAX) C C Structure holding global Level 1.5 information C STRUCTURE / GLOB_L15_STRUCT / LOGICAL L15_RUNNING LOGICAL EVENT_USED_L15 REAL GLOB_L15_INPUT_HZ, GLOB_L15_INPUT_PCT REAL GLOB_L15_REJECT_HZ, GLOB_L15_REJECT_PCT REAL GLOB_DEAD_BEAM_X_PCT REAL GLOB_PURE_L1_FIRE_HZ, GLOB_PURE_L1_FIRE_PCT REAL GLOB_POTEN_L15_HZ REAL GLOB_L15_SKIP_HZ, GLOB_L15_SKIP_PCT REAL GLOB_L15_CONFIRM_HZ, GLOB_L15_CONFIRM_PCT REAL GLOB_L15_TIMEOUT_PCT LOGICAL L15_TERM_DONE(L15_TERM_NUM_MIN:L15_TERM_NUM_MAX) LOGICAL L15_TERM_STATE(L15_TERM_NUM_MIN:L15_TERM_NUM_MAX) END STRUCTURE C RECORD / GLOB_L15_STRUCT / GLOB_L15_DATA C C Rates used for Ntuple files C REAL NTUP_START_TIME REAL NTUP_LAST_TIME REAL NTUP_DAY_OFFSET REAL NTUP_DELTA_TIME REAL NTUP_FIRING_RATES(TRG_NUM_MIN:TRG_NUM_MAX) REAL NTUP_EXPOS_RATES( TRG_NUM_MIN:TRG_NUM_MAX) REAL NTUP_ANDOR_RATES( TRG_NUM_MIN:TRG_NUM_MAX) REAL NTUP_ARRAY(1+(TRG_NUM_MAX-TRG_NUM_MIN+1)*3) EQUIVALENCE (NTUP_ARRAY(1), NTUP_DELTA_TIME) C C Things derived from the TRIGGER MONITORING POOL C LOGICAL FRAMEWORK_RUNNING ! Is the framework running or ! paused C LOGICAL INFO_FRESH ! Is the data block fresh or ! stale C INTEGER NUM_TRIGS ! Number of allocated triggers C INTEGER INIT_TIME ! Time since last init in seconds C INTEGER TRANSFERRED ! Number of events transferred INTEGER GTRANSFERRED ! xE9 events transferred C LOGICAL ANDOR_STATE(ANDOR_NUM_MIN:ANDOR_NUM_MAX) !Current state of ! the andor terms C C Lminosity page stuff C REAL BUNCH_LUM_SLOWZ_FRACT( PER_BUNCH_MIN:PER_BUNCH_MAX ) REAL TOTAL_LUM_SLOWZ_FRACT REAL BUNCH_LUM_SLOWZ_OCCUP( PER_BUNCH_MIN:PER_BUNCH_MAX ) REAL TOTAL_LUM_SLOWZ_OCCUP REAL BUNCH_LUM_USED_VS_DELIV( PER_BUNCH_MIN:PER_BUNCH_MAX ) REAL TOTAL_LUM_USED_VS_DELIV REAL BUNCH_LIVE_X_PERCENT( PER_BUNCH_MIN:PER_BUNCH_MAX ) REAL TOTAL_LIVE_X_PERCENT REAL BUNCH_L1_TRIG_FRAC( PER_BUNCH_MIN:PER_BUNCH_MAX ) REAL TOTAL_L1_TRIG_FRAC C COMMON /LV1_MPOOL_FORMATTED/ NUM_TRIGS, TRIGGER_DATA, & GEO_SECT_DATA, CALTRIG_DATA, & INIT_TIME, TRANSFERRED, GTRANSFERRED, ANDOR_STATE, & FRAMEWORK_RUNNING, INFO_FRESH, & PER_BUNCH_DATA, GLOB_L15_DATA, FOREIGN_SCALER_DATA, & NTUP_START_TIME, NTUP_DELTA_TIME, NTUP_FIRING_RATES, & NTUP_EXPOS_RATES, NTUP_ANDOR_RATES, NTUP_LAST_TIME, & NTUP_DAY_OFFSET, & BUNCH_LUM_SLOWZ_FRACT, TOTAL_LUM_SLOWZ_FRACT, & BUNCH_LUM_SLOWZ_OCCUP, TOTAL_LUM_SLOWZ_OCCUP, & BUNCH_LUM_USED_VS_DELIV, TOTAL_LUM_USED_VS_DELIV, & BUNCH_LIVE_X_PERCENT, TOTAL_LIVE_X_PERCENT, & BUNCH_L1_TRIG_FRAC, TOTAL_L1_TRIG_FRAC C