SUBROUTINE PAINT_GLOBAL_L15
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Paint the background of the Level 1.5 Framework
C-      display.
C-
C-   Inputs  : none
C-   Outputs : none
C-   Controls: none
C-
C-   Created   5-MAY-1992   Philippe Laurens, Steven Klocek
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
C
      CALL CLEAR_SCREEN
C
      CALL PUT_STRING( 1, 1, 
     &  'Global Monitoring of Level 1.5 Framework')
C
      CALL PUT_STRING(G15_GL_TRANS_L, 1,
     &  ' Global Event Transfer Rate:           Hz')
      CALL PUT_STRING(G15_MONIT_STATUS_L, G15_SECOND_COL,
     &  'Level 1:          Information:')
C
      CALL PUT_STRING(G15_L1_RATE_L, 1,
     &  ' Global Level 1 Trigger Rate:          Hz')
      CALL PUT_STRING(G15_L0_RATE_L, G15_SECOND_COL,
     &  'Fast Level 0 Good:                Hz')
C
      CALL PUT_STRING(G15_PUREL1_RATE_L, 1,
     &  ' Pure Level 1 Rate:            Hz=      %')
      CALL PUT_STRING(G15_POTENT_RATE_L, G15_SECOND_COL,
     &  'Potential Rate into L1.5:         Hz')
C
      CALL PUT_STRING(G15_L15_INPUT_L, 1,
     &  ' L1.5 Input Rate:              Hz=      %')
      CALL PUT_STRING(G15_L15_SKIP_L, G15_SECOND_COL,
     &  'L1.5 Skip Rate:          Hz=      %')
C
      CALL PUT_STRING(G15_L15_CONF_L, 1,
     &  ' L1.5 Confirm Rate:            Hz=      %')
      CALL PUT_STRING(G15_L15_REJ_L, G15_SECOND_COL,
     &  'L1.5 Reject Rate:        Hz=      %')
C
      CALL PUT_STRING(G15_DEAD_BEAMX_L, 1,
     &  ' Dead Beam X During Level 1.5:          %')
      CALL PUT_STRING(G15_TIMEOUT_L, G15_SECOND_COL,
     &  'Global L1.5 Exit by Timeout:      %')
C
      CALL PUT_STRING(G15_LIST_START_L-4, 1,
     &  '                                         '
     &  // '                       |Tot |')
C
      CALL PUT_STRING(G15_LIST_START_L-3, 1,
     &  'Sp.|Levl 1|Level 1.5   |L 1.5|L 1.5 |L 1.5'
     &  // ' |L 1.5 |Exit L 1.5   |L1.5|')
C
      CALL PUT_STRING(G15_LIST_START_L-2, 1,
     &  'Trg|Rate  |Input       |Skip |confrm|rejec'
     &  // 't|dead X|by timeout   |Term|')
C
      CALL PUT_STRING(G15_LIST_START_L-1, 1,
     &  '---|----Hz|----Hz-----%|----%|----Hz|-----'
     &  // '%|-----%|----%---total|----|-------')
C
      CALL FLUSH_SCREEN
C----------------------------------------------------------------------
  999 RETURN
      END