SUBROUTINE PAINT_GLOBAL_HEADER C---------------------------------------------------------------------- C- C- Purpose and Methods : Paint the background common to several displays. C- C- Inputs : none C- Outputs : screen output C- Controls: none C- C- Created 15-MAY-1992 Philippe Laurens, Steven Klocek C- Updated 5-MAY-1995 Philippe Laurens - MSU L1 Trigger C- Add Luminosity information C---------------------------------------------------------------------- IMPLICIT NONE C INCLUDE 'LV1_MON_SCREEN.INC' INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS' C CALL PUT_STRING( GH_GL_TRANS_L, 1, & ' Global Event Transfer Rate: Hz') C CALL PUT_STRING( GH_MONIT_STATUS_L, GH_SECOND_COL, & 'Level 1: Information:') C CALL PUT_STRING( GH_L1_RATE_L,1, & ' Global Level 1 Trigger Rate: Hz') C CALL PUT_STRING( GH_L0_RATE_L, GH_SECOND_COL, & 'Fast L0: kHz SlowZ_L: E30') C CALL PUT_STRING( GH_L15_INPUT_L,1, & ' Level 1.5 Input/Reject: Hz/ % ') C CALL PUT_STRING( GH_DEAD_BEAM_L, GH_SECOND_COL, & 'Dead Beam X During Level 1.5: %') C CALL PUT_STRING( GH_TIME_INIT_L, 1, & ' Time Since Last Initialize: ' ) C CALL PUT_STRING( GH_EVEN_TRAN_L, GH_SECOND_COL, & 'Events Transf Since:' ) C---------------------------------------------------------------------- 999 RETURN END