SUBROUTINE DRAW_INTEGRATE_TIME ()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Shows integration time on displays that contain
C-                        time dependent rates and percentages.  Both the
C-                        integration time calculated from the change in the
C-                        beam crossing number and the integration time
C-                        calculated from the change in the veto crossing
C-                        number are displayed.
C-
C-   Inputs  : 
C-   Outputs : 
C-   Controls: 
C-
C-   Created  24-AUG-1994   Philippe Laurens, Freddie Landry
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C----------------------------------------------------------------------
      INCLUDE 'LV1_MPOOL_RAW.INC'
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MPOOL_DERIVED.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'

      INTEGER PRECISION
      PARAMETER( PRECISION = 1 )
      CHARACTER*4 BUFFER
      REAL    INTEGRATE_TIME, BACKUP_TIME

      CALL PUT_STRING( 2, 46,'Integr Time DBSC/SBSC:     /     s')
C
C ****  integration time from DELTA_BEAM_CROSSING
C
      INTEGRATE_TIME = DELTA_BEAM_CROSSING * BEAM_CROSS_PERIOD
      CALL BUILD_REAL_STRING( INTEGRATE_TIME, PRECISION, BUFFER )
      CALL PUT_STRING( 2, 69, BUFFER)

C
C ****  integration time from DELTA_VETO_CROSSING
C
      BACKUP_TIME = DELTA_VETO_CROSSING * BEAM_CROSS_PERIOD
      CALL BUILD_REAL_STRING( BACKUP_TIME, PRECISION, BUFFER )
      CALL PUT_STRING( 2, 74, BUFFER)

  999 RETURN
      END