SUBROUTINE DRAW_GLOBAL_THRESHOLDS()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Draw the global threshold monitoring display.
C-
C-   Inputs  : common block variables
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created   7-FEB-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MPOOL_DERIVED.INC' 
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
      INCLUDE 'LV1_MPOOL_RAW.INC'
C
      INTEGER COUNT, COUNT2, COUNT3
      INTEGER POSITION
      CHARACTER*5 NUMHOLD
      CHARACTER*100 BUFFER
C
      CALL PUT_STRING(GT_DATE_L, GT_DATE_C, CURRENT_TIME)
C
      DO COUNT2 = GT_EM_ET_THRSH, GT_MIS_PT_THRSH
        BUFFER = ' '
        DO COUNT = 0, GT_GEV_NUM-1
          POSITION = (COUNT*GT_GEV_W)+1
          BUFFER(POSITION:POSITION) = '|'
          IF (IBITS(GL_ENG_THRSH(GT_ALLOC_INDEX, COUNT, COUNT2), 
     &              GT_ALLOCATED_BIT, 
     &      GT_ALLOCATED_LEN) .EQ. GT_ALLOCATED) THEN
            CALL BUILD_REAL_STRING(FLOAT(GL_ENG_THRSH(GT_THRSH_INDEX, 
     &                                                COUNT, COUNT2))
     &        / 1000., 2, BUFFER(POSITION+1:POSITION+GT_GEV_W-1))
          ENDIF
        END DO
        CALL PUT_STRING(GT_EM_ET_L + COUNT2 -1, GT_GEV_C, 
     &    BUFFER(1:GT_GEV_NUM * GT_GEV_W) // '|')
      END DO
C
      DO COUNT3 = GT_EM_CNT_THRSH, GT_TOT_CNT_THRSH
        DO COUNT2 = GT_RS_MIN, GT_RS_MAX
          BUFFER = ' '
          DO COUNT = 0, GT_TC_NUM-1
            POSITION = ((COUNT)*GT_TC_W)+1
            BUFFER(POSITION:POSITION) = '|'
            IF (IBITS(GL_CNT_THRSH(GT_ALLOC_INDEX, COUNT, COUNT2, 
     &                             COUNT3), 
     &                GT_ALLOCATED_BIT, GT_ALLOCATED_LEN) 
     &        .EQ. 1) THEN
              CALL INTTOSTR(GL_CNT_THRSH(GT_THRSH_INDEX, COUNT, COUNT2, 
     &                                   COUNT3),
     &          BUFFER(POSITION+1:POSITION+GT_TC_W-2), 1)
            ENDIF
          END DO
          CALL PUT_STRING(GT_EM_R0_L + 4 * COUNT3 + COUNT2,
     &      GT_TC_C, BUFFER(1:GT_TC_NUM*GT_TC_W) // '|')
        END DO
      END DO
      CALL MOVE_CURSOR_SAFE()
      CALL FLUSH_SCREEN()
C----------------------------------------------------------------------
  999 RETURN
      END