SUBROUTINE COMPILE_ALL_PROM_CUTS ()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods :  compile all prom cuts from the basic information
C-                          in the LSM file.
C-
C-      the job of this subroutine will be to figure out which quantity type
C-      is  built and give the proper prom, tower, and transfer function to a
C-      lower level routine that will actually carry out the calculation.
C-
C-   Comment :              This routines needs the PROM slopes to have been
C-                          compiled before calling this routine.
C-
C-   Inputs  :              common block level1_lookup.inc
C-   Outputs :              PROM_CUT, in level1_lookup.inc
C-
C-   Created   6-AUG-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C
      INCLUDE     'D0$PARAMS:LEVEL1_LOOKUP.PARAMS'
      INCLUDE     'D0$INC:LEVEL1_LOOKUP.INC'
      INCLUDE 'LSMP$SOURCE:LEVEL1_LOOKUP_EXPANSION.INC'
C
      REAL         ET_VS_ET, E_VS_ET, PX_VS_ET, PY_VS_ET
      EXTERNAL     ET_VS_ET, E_VS_ET, PX_VS_ET, PY_VS_ET
C
C----------------------------------------------------------------------
C
      IF ( FIRST_LOOKUP_TYPE .EQ. TRANSVERSE_ENERGY ) THEN
        CALL COMPILE_QUANT_CUTS (EM_ET_QUANT,EM_TOWER,EM_PROM,ET_VS_ET)
        CALL COMPILE_QUANT_CUTS (HD_ET_QUANT,HD_TOWER,HD_PROM,ET_VS_ET)
      ELSE IF ( FIRST_LOOKUP_TYPE .EQ. DEPOSITED_ENERGY ) THEN
        CALL COMPILE_QUANT_CUTS (EM_ET_QUANT,EM_TOWER,EM_PROM, E_VS_ET)
        CALL COMPILE_QUANT_CUTS (HD_ET_QUANT,HD_TOWER,HD_PROM, E_VS_ET)
      END IF
C
      IF ( SECOND_LOOKUP_TYPE .EQ. TRANSVERSE_ENERGY ) THEN
        CALL COMPILE_QUANT_CUTS (EM_L2_QUANT,EM_TOWER,EM_PROM,ET_VS_ET)
        CALL COMPILE_QUANT_CUTS (HD_L2_QUANT,HD_TOWER,HD_PROM,ET_VS_ET)
      ELSE IF ( SECOND_LOOKUP_TYPE .EQ. DEPOSITED_ENERGY ) THEN
        CALL COMPILE_QUANT_CUTS (EM_L2_QUANT,EM_TOWER,EM_PROM, E_VS_ET)
        CALL COMPILE_QUANT_CUTS (HD_L2_QUANT,HD_TOWER,HD_PROM, E_VS_ET)
      END IF
C
      CALL COMPILE_QUANT_CUTS ( PX_QUANT, TOT_TOWER, PX_PROM, PX_VS_ET)
      CALL COMPILE_QUANT_CUTS ( PY_QUANT, TOT_TOWER, PY_PROM, PY_VS_ET)
C
C----------------------------------------------------------------------
  999 RETURN
      END
C