SUBROUTINE MESSAGE_PRINT(BUFFER)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Output a line to the dump file
C-
C-   Inputs  : BUFFER   A character variable that holds the line to write
C-   Outputs : none
C-   Controls: none
C-
C-   Created  22-AUG-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
      CHARACTER*(*) BUFFER
C
C       Local variables
C
      INTEGER POSITION
      INTEGER BEGINNING
C
C       Can only print out 132 character lines.
C
      BEGINNING = 1
      POSITION = LEN(BUFFER)
C
  100 CONTINUE ! REPEAT...UNTIL LOOP
        CALL DMPMSG(MESSAGE_UNIT_NUM, BUFFER(BEGINNING:
     &                             MIN(LEN(BUFFER),BEGINNING + 131)) )
        POSITION = POSITION - 132
        BEGINNING = BEGINNING + 132
      IF (POSITION .GT. 0) GOTO 100
C
  999 RETURN
      END