C----------------------------------------------------------------------
C-
C-   LV1_MPOOL.PARAMS
C-   
C-   Created  11-OCT-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-   Updated  18-FEB-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE 
C-   Updated  18-MAR-1992   Philippe Laurens, Steven Klocek 
C-                      Renamed the following variable:
C-                        COUNT_TRG_ENABLED => COUNT_TRG_EXPOS 
C-   Updated   3-SEP-1993   Philippe Laurens - MSU L1 Trigger  
C-                          Add Large Tiles 
C-   Updated  22-JAN-1994   Philippe Laurens - MSU L1 Trigger  
C-                      shrink energy and count thresholds to 4 comparators
C-   Updated  10-AUG-1994   Freddie Landry   
C-                          reset parameters for specific trigger increments
C-                          and counts
C-   Updated  19-OCT-1995   Philippe Laurens - MSU L1 Trigger  
C-                          Add 36x36 scalers
C----------------------------------------------------------------------
C
C       Parameters that describe how many triggers, how many geographic
C       sections, etc.
C
C
C
C       The number of specific triggers
C
      INTEGER TRG_NUM_MIN, TRG_NUM_MAX
      INTEGER GEO_NUM_MIN, GEO_NUM_MAX
      PARAMETER (TRG_NUM_MIN = 0, TRG_NUM_MAX = 31)
      PARAMETER(GEO_NUM_MIN = 0, GEO_NUM_MAX = 31)
C
      INTEGER NUM_TOT_GEO
      PARAMETER ( NUM_TOT_GEO = 32 )
C
C       The number of andor terms
C
      INTEGER ANDOR_NUM_MIN, ANDOR_NUM_MAX
      PARAMETER (ANDOR_NUM_MIN = 0, ANDOR_NUM_MAX = 255)
      INTEGER NUM_ANDOR
      PARAMETER (NUM_ANDOR = 256)
C
C       The number of Level 1.5 Terms
C
      INTEGER L15_TERM_NUM_MIN, L15_TERM_NUM_MAX
      PARAMETER (L15_TERM_NUM_MIN = 0, L15_TERM_NUM_MAX = 31)
C
C       Scale of Et and Pt per least count
C
      REAL ET_COUNT_SCALE, PT_COUNT_SCALE, L2_COUNT_SCALE
      PARAMETER (ET_COUNT_SCALE = .25, PT_COUNT_SCALE = .5,
     &  L2_COUNT_SCALE = .25)
C
C       Representation of Geographic section start digitize status
C
      LOGICAL GEO_SECT_STATUS_NORMAL, GEO_SECT_STATUS_TEST
      PARAMETER (GEO_SECT_STATUS_NORMAL = .FALSE., 
     &  GEO_SECT_STATUS_TEST = .TRUE.)
C
C       Constants needed for interpretation of reference set array coordinates
C
      INTEGER RS_EM_ET, RS_HD_VETO, RS_TOT_ET, RS_LGTILE
      PARAMETER (RS_EM_ET  = 0, RS_HD_VETO = 1, 
     &           RS_TOT_ET = 2, RS_LGTILE  = 3)
C
      INTEGER RS_SET_MIN, RS_SET_MAX
      PARAMETER (RS_SET_MIN = 0, RS_SET_MAX = 3)
C
      INTEGER LT_RS_SET_MIN, LT_RS_SET_MAX
      PARAMETER (LT_RS_SET_MIN = 0, LT_RS_SET_MAX = 7)
C
      INTEGER RS_SIGN_PLUS, RS_SIGN_MINUS
      INTEGER RS_ETA_MIN, RS_ETA_MAX
      INTEGER RS_PHI_MIN, RS_PHI_MAX
      PARAMETER (RS_SIGN_PLUS = 0, RS_SIGN_MINUS = 1)
      PARAMETER (RS_ETA_MIN = 1, RS_ETA_MAX = 20)
      PARAMETER (RS_PHI_MIN = 1, RS_PHI_MAX = 32)
C
      INTEGER     ETA_PER_LT, PHI_PER_LT
      PARAMETER ( ETA_PER_LT = 4, PHI_PER_LT = 8 )
C
C       Constants needed for interpretation of global threshold array
C       coordinates
C
      INTEGER GT_EM_ET_THRSH
      INTEGER GT_HD_ET_THRSH
      INTEGER GT_TOT_ET_THRSH
      INTEGER GT_EM_L2_THRSH
      INTEGER GT_HD_L2_THRSH
      INTEGER GT_TOT_L2_THRSH
      INTEGER GT_MIS_PT_THRSH
      PARAMETER (GT_EM_ET_THRSH = 1)
      PARAMETER (GT_HD_ET_THRSH = 2)
      PARAMETER (GT_TOT_ET_THRSH = 3)
      PARAMETER (GT_EM_L2_THRSH = 4)
      PARAMETER (GT_HD_L2_THRSH = 5)
      PARAMETER (GT_TOT_L2_THRSH = 6)
      PARAMETER (GT_MIS_PT_THRSH = 7)
C
      INTEGER GT_EM_CNT_THRSH
      INTEGER GT_TOT_CNT_THRSH
      PARAMETER (GT_EM_CNT_THRSH = 0)
      PARAMETER (GT_TOT_CNT_THRSH = 1)
C
      INTEGER GT_RS_MIN
      INTEGER GT_RS_MAX
      PARAMETER (GT_RS_MIN = 0)
      PARAMETER (GT_RS_MAX = 3)
C
      INTEGER GT_ALLOC_INDEX
      INTEGER GT_THRSH_INDEX
      PARAMETER (GT_ALLOC_INDEX = 0)
      PARAMETER (GT_THRSH_INDEX = 1)
C
      INTEGER GT_ALLOCATED_BIT, GT_ALLOCATED_LEN
      PARAMETER (GT_ALLOCATED_BIT = 8, GT_ALLOCATED_LEN = 8)
C
      INTEGER GT_ALLOCATED, GT_NOT_ALLOCATED
      PARAMETER (GT_ALLOCATED =1, GT_NOT_ALLOCATED = 0)
C
C----------------------------------------------------------------------
C
C       Parameter declarations useful in displaying Global Thresholds in the
C       Calorimeter Trigger display.
C
      PARAMETER GT_MAX_E_THRSH = 4
      PARAMETER GT_MAX_CNT_THRSH = 4
C
      
C----------------------------------------------------------------------
C
C       Parameter declarations for positions within the specific trigger
C       programming array and the specific trigger counts array.
C
C       FSTD VETO programming
C
      INTEGER PG_FSTD_VETO
      PARAMETER (PG_FSTD_VETO = 1)
C 
C       Firing rates
C
      INTEGER COUNT_ST_TRGFIRED, COUNT_ST_ANDORFIRED
      INTEGER COUNT_ST_TRG_EXPOS
      PARAMETER (COUNT_ST_TRGFIRED = 1)
      PARAMETER (COUNT_ST_TRG_EXPOS = 2)
      PARAMETER (COUNT_ST_ANDORFIRED = 3)
C
C       Prescaling Veto
C
      INTEGER PG_PRSCLV_BIT, COUNT_ST_PRSCLV
      PARAMETER (PG_PRSCLV_BIT = 0, COUNT_ST_PRSCLV = 4)
C
C       Level 1.5 Veto
C
      INTEGER PG_LEV15V_BIT, COUNT_ST_LEV15V
      PARAMETER (PG_LEV15V_BIT = 1, COUNT_ST_LEV15V = 5)
C
C       Level 2 Veto
C
      INTEGER PG_LEV20V_BIT, COUNT_ST_LEV20V
      PARAMETER (PG_LEV20V_BIT = 2, COUNT_ST_LEV20V = 6)
C
C       Front End Veto
C
      INTEGER PG_FEV_BIT, COUNT_ST_FEV
      PARAMETER (PG_FEV_BIT = 3, COUNT_ST_FEV = 7)
C
C       Auxilary #2 Veto
C
      INTEGER PG_AUX2V_BIT, COUNT_ST_AUX2V
      PARAMETER (PG_AUX2V_BIT = 4, COUNT_ST_AUX2V = 8)
C
C       Global Veto
C
      INTEGER PG_GLOBV_BIT, COUNT_ST_GLOBV
      PARAMETER (PG_GLOBV_BIT = 5, COUNT_ST_GLOBV = 9)
C
C       Auto Veto
C
      INTEGER PG_AUTOV_BIT, COUNT_ST_AUTOV
      PARAMETER (PG_AUTOV_BIT = 6, COUNT_ST_AUTOV = 10)
C
C       Trigger exposition and not level 0
C
      INTEGER COUNT_ST_EXPOS_NOT_L0
      PARAMETER (COUNT_ST_EXPOS_NOT_L0 = 11)
C
C       Level 1.5 Confirmation
C
      INTEGER COUNT_ST_L15_CONFIRM
      PARAMETER (COUNT_ST_L15_CONFIRM = 12)
C
C       Trigger L1.5 Reject
C
      INTEGER COUNT_ST_L15_REJECT
      PARAMETER (COUNT_ST_L15_REJECT = 13)
C
C       Trigger L1.5 Cycle
C
      INTEGER COUNT_ST_L15_CYCLE
      PARAMETER (COUNT_ST_L15_CYCLE = 14)
C
C     Trigger L1.5 Skip
C
      INTEGER COUNT_ST_L15_SKIP
      PARAMETER (COUNT_ST_L15_SKIP = 15)
C
C       Trigger L1.5 Dead Beam X
C
      INTEGER COUNT_ST_DEADX
      PARAMETER (COUNT_ST_DEADX = 16)
C
C       Trigger L1.5 Timeout
C       
      INTEGER COUNT_ST_L15_TIMEOUT 
      PARAMETER (COUNT_ST_L15_TIMEOUT = 17)
C  
C  NOTE:  The following parameter must always be set to point to the 
C         highest element for SPTRG_INCR and SPTRG_COUNT
C         
      INTEGER NUM_SPTRG_COUNTS
      PARAMETER(NUM_SPTRG_COUNTS = COUNT_ST_L15_TIMEOUT)
C
C 
C       Prescaled ratio
C
      INTEGER PG_PRSCL_RATIO
      PARAMETER (PG_PRSCL_RATIO = 2)
C
C       Level 1.5 Terms required
C
      INTEGER PG_L15_TERM_REQ
      PARAMETER (PG_L15_TERM_REQ = 3)
C
C       Read Time
C
      INTEGER PG_READ_TIME
      PARAMETER (PG_READ_TIME = 4)
C
C       Start digitize terms
C
      INTEGER PG_ST_DIG
      PARAMETER (PG_ST_DIG = 5)
C
C       Watch busy terms
C
      INTEGER PG_WATCHBUSY
      PARAMETER (PG_WATCHBUSY = 5)
C
C       The position of ANDOR terms in the datablock
C
      INTEGER PG_ANDOR
      PARAMETER (PG_ANDOR = 7)
C
C       Trigger allocation
C
      INTEGER PG_TRG_ALLOC, PG_TRG_ALLOC_LSB, PG_TRG_ALLOC_MSB
      PARAMETER (PG_TRG_ALLOC = 1, PG_TRG_ALLOC_LSB = 16,
     &  PG_TRG_ALLOC_MSB = 23)
C
C       Is this a L15 Trigger
C
      INTEGER PG_TRG_IS_L15_BYTE
      PARAMETER (PG_TRG_IS_L15_BYTE = 24)
C
C----------------------------------------------------------------------
C       
C       Parameters describing the location of quantities in the Level 1 
C       Data Block.
C       
      INTEGER DB_LV0_GOOD_BIT, DB_LV0_BIN_START, DB_LV0_BIN_LEN,
     &  DB_LV0_BIN_SIGN
      PARAMETER (DB_LV0_GOOD_BIT = 5, DB_LV0_BIN_START = 0, 
     &  DB_LV0_BIN_LEN = 5, DB_LV0_BIN_SIGN = 4)
C
      LOGICAL DB_SIGNED, DB_UNSIGNED
      PARAMETER (DB_SIGNED = .TRUE., DB_UNSIGNED = .FALSE.)
C
      INTEGER DB_MAX_JET_LIST_LENGTH
      PARAMETER (DB_MAX_JET_LIST_LENGTH = 16)
C
C----------------------------------------------------------------------
C
C ****  Parameters describing the location of status bits and trouble warning
C ****  bits.
C
      INTEGER FS_PAUSED_LOC, FS_PAUSED_LEN
      PARAMETER (FS_PAUSED_LOC = 0, FS_PAUSED_LEN = 8)
C
      INTEGER FS_STALE_LOC, FS_STALE_LEN
      PARAMETER (FS_STALE_LOC = 8, FS_STALE_LEN = 8)
C
      INTEGER FS_MPOOL_LOC, FS_MPOOL_LEN
      PARAMETER (FS_MPOOL_LOC = 16, FS_MPOOL_LEN = 8)
C
      INTEGER TWB_POWER_BIT
      PARAMETER (TWB_POWER_BIT = 5)
C
      INTEGER TWB_68KDEAD_BIT
      PARAMETER (TWB_68KDEAD_BIT = 0)
C
      INTEGER TWB_VBD_TIMEOUT_BIT
      PARAMETER (TWB_VBD_TIMEOUT_BIT = 2)
C
      INTEGER TWB_VBD_BUFFER_BIT
      PARAMETER (TWB_VBD_BUFFER_BIT = 1)
C
      INTEGER TWB_MTG_BIT
      PARAMETER (TWB_MTG_BIT = 4)
C
      INTEGER TWB_DBB_INACTIVE_BIT
      PARAMETER (TWB_DBB_INACTIVE_BIT = 3)
C
      INTEGER TWB_WAIT_VBD_BUFFER
      PARAMETER (TWB_WAIT_VBD_BUFFER = 6)
C
      INTEGER TWB_WAIT_VBD_DMA
      PARAMETER (TWB_WAIT_VBD_DMA = 7)
C
C----------------------------------------------------------------------
C
C       Parameters dealing with the per bunch scalers.
C
      PARAMETER PER_BUNCH_MIN = 1
      PARAMETER PER_BUNCH_MAX = 6
C
C----------------------------------------------------------------------
C
C       Parameters dealing with Foreign Scalers
C
      PARAMETER FOREIGN_MIN = 1
      PARAMETER FOREIGN_MAX = 44
C
C
C *** Parameters for use with FILL_MONIT_POOL
C
      INTEGER        MP_FIRST,
     &               MP_SPTRG_GSECT,
     &               MP_DATABLOCK,
     &               MP_TRGTWR,
     &               MP_REFSET,
     &               MP_GL_THRSH,
     &               MP_PER_BUNCH,
     &               MP_FOREIGN_SCALERS,
     &               MP_36X36_SCALERS,
     &               MP_LAST
      PARAMETER     (MP_FIRST = 0,
     &               MP_SPTRG_GSECT = 0,
     &               MP_DATABLOCK = 1,
     &               MP_TRGTWR = 2,
     &               MP_REFSET = 3,
     &               MP_GL_THRSH = 4,
     &               MP_PER_BUNCH = 6,
     &               MP_FOREIGN_SCALERS = 7,
     &               MP_36X36_SCALERS = 8,
     &               MP_LAST = 8)