C----------------------------------------------------------------------
C- 
C-   Purpose and Methods : This common block is internally used by the lookup
C-                         system management routines. It is initialized with 
C-                         the values read from the Lookup System manager
C-                         File, for use by the lookup system management
C-                         program.
C-                         
C-                         These variables are not used by the minimal 
C-                         Lookup System Simulation Object Library. 
C-                         
C                          None of these variables are referenced outside of
C                          the LSM library. 
C-                         
C-   Created 20-AUG-1990 MICHIGAN STATE UNIVERSTITY, TRIGGER CONTROL SOFTWARE
C----------------------------------------------------------------------
C
C       ----------------------------------------------------------------------
C       This array variable gives the nominal coordinate along the z-axis
C       to be used in correcting the constructed quantities according to the
C       fast vertex position information given by the level 0. 
C       For each lookup page (set of contiguous Level 0 Bins) a point within
C       the corresponding segment along the z-axis is chosen as the optimal
C       compromise to represent all interactions having a vertex within this
C       segment. cf. D0 note 933.
C       
      REAL         PAGE_Z_NOM ( EM_ET_QUANT:PY_QUANT,
     &                          PAGE_NUM_MIN:PAGE_NUM_MAX )
C
C       ----------------------------------------------------------------------
C       This coefficient defines the minimum cut made on the z-corrected
C       quantities to suppress electronics noise. The cut is uniformly applied
C       in incoming energy scale. It is here expressed as a number of standard
C       deviations of electronics noise. 
C       A coefficient of 0 means no cut at all.
C      
      REAL         ELEC_NOISE_CUT_FACT ( EM_ET_QUANT:PY_QUANT )
C
C       ----------------------------------------------------------------------
C       These array variables define the centers of each Trigger Tower to use
C       in the calculation of the z-corrected quantities.
C       The EM and HD towers used for Et and L2 lookups only need Z and R
C       information (R is the distance from the z-axis). The total trigger
C       tower used for Px an Py needs the additional phi-coordinate
C       information. 
C      
      REAL         TOWER_RZ_COORD   ( POS_ETA:NEG_ETA, 
     &                                ETA_RANGE_MIN:ETA_RANGE_MAX,
     &                                PHI_MIN:PHI_MAX,
     &                                EM_TOWER:TOT_TOWER,
     &                                R_COORD:Z_COORD )
      REAL         TOWER_PHI_COORD  ( POS_ETA:NEG_ETA, 
     &                                ETA_RANGE_MIN:ETA_RANGE_MAX,
     &                                PHI_MIN:PHI_MAX )
C
C       ----------------------------------------------------------------------
C       The FINAL_FITTING array variable defines the final correction made for
C       each page of each lookup. It covers all aspects of the lookup process
C       that cannot be accounted for by simple geometry.
C       
      REAL         FINAL_FITTING     ( POS_ETA:NEG_ETA,
     &                                 ETA_RANGE_MIN:ETA_RANGE_MAX,
     &                                 PHI_MIN:PHI_MAX,
     &                                 EM_ET_QUANT:PY_QUANT,
     &                                 PAGE_NUM_MIN:PAGE_NUM_MAX )
C
C       ----------------------------------------------------------------------
C       The TRANSV_ENERGY_CUT array variable hold the minimal physics cut
C       applied to each quantity expressed in units of GeV of Transverse
C       energy. The transverse energy cut will be used to compute the actual
C       cut for each page of each lookup.
C       
      REAL         TRANSV_ENERGY_CUT ( POS_ETA:NEG_ETA, 
     &                                 ETA_RANGE_MIN:ETA_RANGE_MAX,
     &                                 EM_ET_QUANT:PY_QUANT )
C
C       ----------------------------------------------------------------------
C       ----------------------------------------------------------------------
      COMMON / LEVEL1_LOOKUP_EXPANSION / 
     &                         PAGE_Z_NOM,
     &                         ELEC_NOISE_CUT_FACT,             
     &                         TOWER_RZ_COORD, TOWER_PHI_COORD, 
     &                         FINAL_FITTING, TRANSV_ENERGY_CUT