SUBROUTINE PARSE_DUMMY( UNIT_NUM )
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : skips through the file until the next END_OF_LINE,
C-   END_SECTION, END_OF_LINE sequence is found. This routine is a DFA with 4
C-   states, labeled 100, 200, 300 and 999
C-
C-   Inputs  : UNIT_NUM         the IO unit number
C-   Outputs : none
C-   Controls: none
C-
C-   Created  12-JUN-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C----------------------------------------------------------------------
C
C       global declarations
C
      INCLUDE 'D0$LEVEL1:PARSE_TOKENS.PARAMS'
      INCLUDE 'D0$LEVEL1:PARSE_TOKENS.INC'
C
C       argument declarations
C
      INTEGER UNIT_NUM
C
C       local variables
C
      CHARACTER*20 STRING_VALUE
C
C
C
      IF (VERBOSE) WRITE(6,*) 'Skipping to next section'
C
  100 CONTINUE
      CALL NEXT_WORD(UNIT_NUM, STRING_VALUE)
      IF ( (STRING_VALUE .NE. 'END_OF_LINE' ) .AND.
     &     ( STRING_VALUE .NE. 'END_OF_FILE') ) GOTO 100
      IF (STRING_VALUE .EQ. 'END_OF_FILE') GOTO 999
C
  200 CONTINUE
      CALL NEXT_WORD(UNIT_NUM, STRING_VALUE)
      IF ((STRING_VALUE .NE. 'END_SECTION') .AND. 
     &    ( STRING_VALUE .NE. 'END_OF_FILE' ) .AND.
     &    ( STRING_VALUE .NE. 'END_OF_LINE' ) ) GOTO 100
      IF ( STRING_VALUE .EQ. 'END_OF_LINE' ) GOTO 200
      IF ( STRING_VALUE .EQ. 'END_OF_FILE' ) GOTO 999
C
  300 CONTINUE
      CALL NEXT_WORD(UNIT_NUM, STRING_VALUE)
      IF ((STRING_VALUE .NE. 'END_OF_LINE') .AND.
     &    (STRING_VALUE .NE. 'END_OF_FILE') ) GOTO 100
C
  999 RETURN
      END