C*ERROR -- print error message on standard output, and abort [Convex]
C+
      SUBROUTINE ERROR(STRING)
      CHARACTER*(*) STRING
      CHARACTER*80 STR
C
C This subroutine prints its argument (a character string) on the 
C standard output, prefixed with '++ERROR++', and then terminates 
C execution of the program, returning an error status to its parent
C (shell or command interpreter).
C
C Argument:
C  STRING (input)  : text of message
C
C Subroutines required:
C  EXIT
C  PUTOUT
C
C History:
C  1987 Apr 8 - TJP.
C  1988 may 04 - r. gaume
C              modified for ndp fortran under dos 
C-----------------------------------------------------------------------
      I = LEN(STRING)
      STR(1:I) = STRING
      CALL PUTOUT('+++ERROR+++ '//STR(1:I))
      CALL EXIT(1)
C
      END