SUBROUTINE LV1_XSYSMON
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Provide the cross-system monitoring program
C-                         information from the Level 1 Trigger System.
C-                         This subroutines calls standard routines from the
C-                         TRGMON package.
C-                         This subroutine also opens the link to the TCC.
C-
C-   Inputs  : none
C-   Outputs : fill variables in the various TRGMON common blocks
C-
C-   Created   9-SEP-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-      V 0.0 only required to refresh the Specific Trigger Fired Scalers
C-
C----------------------------------------------------------------------
      IMPLICIT  NONE
C
C       parameters
C
      INCLUDE  'LV1_MON_SCREEN.INC'
      INCLUDE  'LV1_MPOOL.PARAMS'
      INCLUDE  'LV1_MPOOL_FORMATTED.INC'
C
      INCLUDE  'LV1_MPOOL_XSYSMON.INC'
C
C       Local Variables
C
      INTEGER   SPTRGNUM
C
C       external functions
c
      INTEGER   GET_MONITBLOCK
      EXTERNAL  GET_MONITBLOCK
C
C       Executable Starts here
C
      IF ( GET_MONITBLOCK( COMMAND_GLOBAL_ALLOC ) .NE. 0 ) GOTO 999
C
      DO SPTRGNUM =  0 , 15
C
        SPTRG_FIRE_COUNT_GIGAS( SPTRGNUM ) = 
     &    TRIGGER_DATA(SPTRGNUM).TRIGGER_FIRE_COUNT_GIGAS
C
        SPTRG_FIRE_COUNT      ( SPTRGNUM ) = 
     &    TRIGGER_DATA(SPTRGNUM).TRIGGER_FIRE_COUNT
C
      ENDDO
C
C----------------------------------------------------------------------
  999 RETURN
      END