SUBROUTINE DERIVED_QUANTITIES ()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods :      build the additional quantities of the common
C-                              block that are not directly filled by reading
C-                              the ascii file. 
C-
C-   Inputs  :                  common block level1_lookup.inc
C-
C-   Created  31-JUL-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT     NONE 
C
      INCLUDE     'D0$LEVEL1:PARSE_TOKENS.PARAMS'
      INCLUDE     'D0$LEVEL1:PARSE_TOKENS.INC'
      INCLUDE     'D0$LEVEL1:LEVEL1_LOOKUP.PARAMS'
      INCLUDE     'D0$LEVEL1:LEVEL1_LOOKUP.INC'
C
      INTEGER      LOOKUP_QUANT
C
C----------------------------------------------------------------------
C
C       Cannot derive quantities if GLOBAL_ADC_SCALE is 0.
C
      IF (GLOBAL_ADC_SCALE .EQ. 0) THEN
        CALL MESSAGE_OUT(MES_GLOBAL_SCALE_ZERO, I_GAC_INDEX, ' ')
        GOTO 999
      ENDIF
C
C       build the tree global offsets. The offsets of the 
C       total quantities TOT_ET_QUANT and TOT_L2_QUANT are zeroed.
C
      DO LOOKUP_QUANT = EM_ET_QUANT, PY_QUANT
        CALL DERIVE_TREE_OFFSETS ( LOOKUP_QUANT )
      END DO
C
      TREE_OFFSET ( TOT_ET_QUANT ) = 0 
      TREE_OFFSET ( TOT_L2_QUANT ) = 0 
C
C       Build the transfer coefficients ADC_CNT_VS_RAW_E being the ratio of
C       ADC counts over energy deposited in the Trigger Tower.
C
      CALL DERIVE_ADC_RATIOS ( )
C
C----------------------------------------------------------------------
  999 RETURN
      END
C