SUBROUTINE FINISH_SECTION( UNIT_NUMBER )
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : If DIAGNOSTICS is .TRUE., then this routine skips
C-      the file to the end of the section and returns. If DIAGNOSTICS is
C-      .FALSE., this routine prints a message and aborts.
C-
C-   Inputs  : UNIT_NUMBER      The IO unit number
C-   Outputs : none
C-   Controls: none
C-
C-   Created  21-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_NUMBER
C
C
C
      IF (ABORT_ON_ERROR .EQV. .FALSE.) THEN
        CALL PARSE_DUMMY( UNIT_NUMBER )
      ENDIF
C
  999 RETURN
      END