SUBROUTINE L1_EXTRACT_PER_BUNCH(CRATE_HEADER, BUNCH_NUMBER,
     &                                L1_UNITS, L1_GIGAS, 
     &                                L0_UNITS, L0_GIGAS )
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Extract the Per Bunch scalers for a particular bunch
C-     from the Level 1 Data Block. 
C-
C-   Inputs  : CRATE_HEADER     The first word of the Level 1 Crate Header. 
C-                              Cf. GZFIND_CRATE().
C-             BUNCH_NUMBER     The desired bunch number.
C-   
C-   Outputs : L1_UNITS         The L1_PER_BUNCH scaler.
C-             L1_GIGAS
C-             L0_UNITS         The L0_PER_BUNCH scaler.
C-             L0_GIGAS

C-      NOTE:  UNITS = SCALER MOD 2**30
C-             GIGAS = SCALER DIV 2**30
C-
C-   Controls: none
C-
C-   Created  24-MAR-1992   Philippe Laurens, Steven Klocek
C-   Updated   4-SEP-1992   Philippe Laurens, Steven Klocek  
C-      Remove references to L0_SINGLE_PER_BUNCH scaler. 
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LEVEL1_LOOKUP.PARAMS'
      INCLUDE 'LEVEL1_CAL_TRIG.PARAMS'
      INCLUDE 'LEVEL1_FRAMEWORK.PARAMS'
      INCLUDE 'LEVEL1_TRIGGER_DATA_BLOCK.INC'
C
      INTEGER CRATE_HEADER
      INTEGER BUNCH_NUMBER
      INTEGER L1_UNITS, L1_GIGAS
      INTEGER L0_UNITS, L0_GIGAS
      INTEGER L0_SINGLE_UNITS, L0_SINGLE_GIGAS
C
      CALL L1_EXTRACT_5BYTE_SCALER(CRATE_HEADER,
     &  BUNCH_LEVEL1 + SCALER_L * (BUNCH_NUMBER-1), 
     &  L1_UNITS, L1_GIGAS)
C
      CALL L1_EXTRACT_5BYTE_SCALER(CRATE_HEADER,
     &  BUNCH_LEVEL0_GOOD + SCALER_L * (BUNCH_NUMBER-1),
     &  L0_UNITS, L0_GIGAS)
C----------------------------------------------------------------------
  999 RETURN
      END