SUBROUTINE ASSIGN_ERROR(STATUS)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Set the global error status. If the STATUS given is
C-      more severe than the current status, then update to the new status.
C-
C-   Inputs  : STATUS  A number indicating the error status to set.
C-   Outputs : none
C-   Controls: none
C-
C-   Created  30-JUL-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C----------------------------------------------------------------------
C
C       Global declarations
C
      INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS'
      INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC'
C
C       Argument declarations
C
      INTEGER STATUS
C
C
C
      IF (STATUS .GT. LSM_ERROR_SEVERITY) THEN
        LSM_ERROR_SEVERITY = STATUS
      ENDIF
C
  999 RETURN
      END