INTEGER FUNCTION GET_RAW_DATA (COMMAND)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Get the raw data from TCC necessary for the
C-                         particular display selected.
C-                         Depending on the command, this will need getting one
C-                         or more separate raw data sections from TCC.
C-
C-   Returned value: Error status. 0 if no error.
C-   Inputs  : COMMAND    --->  The command to get data for.
C-   Outputs : fill common block in LV1_MPOOL_RAW.INC
C-
C-   Created  25-AUG-1994   Philippe Laurens - MSU L1 Trigger
C-                      Rework structure of TRGMON data collection
C-   Updated  27-APR-1995   Philippe Laurens - MSU L1 Trigger  
C-                      Add per bunch data for displays showing Luminosity now
C-                      Ask for it last, so that the general section is
C-                      contemporary with it.
C-   Updated  19-OCT-1995   Philippe Laurens - MSU L1 Trigger   
C-              Add 36x36 scalers
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C
      INCLUDE 'LV1_MPOOL.PARAMS'
      INCLUDE 'LV1_MPOOL_RAW.INC'
      INCLUDE 'LV1_MON_SCREEN.INC'
C
      INTEGER  COMMAND
C
      INTEGER FILL_MONIT_POOL
      EXTERNAL FILL_MONIT_POOL
C----------------------------------------------------------------------
C
C       Get the monitoring pool from the remote node
C
      GET_RAW_DATA = 0
C
      IF (   (COMMAND .EQ. COMMAND_GLOBAL_ALLOC) 
     &  .OR. (COMMAND .EQ. COMMAND_GLOBAL_L15)
     &  .OR. (COMMAND .EQ. COMMAND_SPECIFIC_TRIGGER) 
     &  .OR. (COMMAND .EQ. COMMAND_SPECTRIG_L15)
     &  .OR. (COMMAND .EQ. COMMAND_GEO_SECT) 
     &  .OR. (COMMAND .EQ. COMMAND_DIAGNOST) ) THEN
        IF ( FILL_MONIT_POOL (MP_DATABLOCK) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
        IF ( FILL_MONIT_POOL (MP_SPTRG_GSECT) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
        IF ( FILL_MONIT_POOL (MP_PER_BUNCH) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
C
      ELSEIF (COMMAND .EQ. COMMAND_REF_SETS) THEN
        IF ( FILL_MONIT_POOL (MP_REFSET) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
C
      ELSEIF (COMMAND .EQ. COMMAND_EXCLUDED_TOWERS) THEN
        IF ( FILL_MONIT_POOL (MP_TRGTWR) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
C
      ELSEIF (COMMAND .EQ. COMMAND_GLOBAL_THRESH) THEN
        IF ( FILL_MONIT_POOL (MP_GL_THRSH) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
C
      ELSEIF (COMMAND .EQ. COMMAND_GLOBAL_MONIT) THEN
        IF ( FILL_MONIT_POOL (MP_GL_THRSH) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
        IF ( FILL_MONIT_POOL (MP_DATABLOCK) .NE. 0) THEN
          GET_RAW_DATA =1 
          GOTO 999
        ENDIF
C
      ELSEIF ((COMMAND .EQ. COMMAND_ANDOR) 
     &  .OR.  (COMMAND .EQ. COMMAND_SPY_DUMP) 
     &  .OR.  (COMMAND .EQ. COMMAND_JET_LIST) 
     &  .OR.  (COMMAND .EQ. COMMAND_ADC) 
     &  .OR.  (COMMAND .EQ. COMMAND_PRTRGR_DBLOCK)
     &  .OR.  (COMMAND .EQ. COMMAND_SPY_WINDOW) ) THEN
        IF ( FILL_MONIT_POOL (MP_DATABLOCK) .NE. 0) THEN
          GET_RAW_DATA =1 
          GOTO 999
        ENDIF
C
      ELSEIF ( (COMMAND .EQ. COMMAND_PER_BUNCH) 
     &    .OR. (COMMAND .EQ. COMMAND_LUMINOSITY) ) THEN
        IF ( FILL_MONIT_POOL (MP_DATABLOCK) .NE. 0) THEN
          GET_RAW_DATA =1
          GOTO 999
        ENDIF
        IF ( FILL_MONIT_POOL (MP_PER_BUNCH) .NE. 0 ) THEN
          GET_RAW_DATA =1
          GOTO 999
        ENDIF
C
      ELSEIF (COMMAND .EQ. COMMAND_FOREIGN_SCALERS) THEN
        IF ( FILL_MONIT_POOL (MP_DATABLOCK) .NE. 0) THEN
          GET_RAW_DATA =1
          GOTO 999
        ENDIF
        IF ( FILL_MONIT_POOL (MP_FOREIGN_SCALERS) .NE. 0 ) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
        IF ( FILL_MONIT_POOL (MP_PER_BUNCH) .NE. 0) THEN
          GET_RAW_DATA = 1
          GOTO 999
        ENDIF
C
      ELSEIF (COMMAND .EQ. COMMAND_36X36_SCALERS) THEN
        IF ( FILL_MONIT_POOL (MP_36X36_SCALERS) .NE. 0) THEN
          GET_RAW_DATA =1
          GOTO 999
        ENDIF
C
      ELSE
        GET_RAW_DATA = 1
        GOTO 999
      ENDIF
C
C----------------------------------------------------------------------
  999 RETURN
      END