C***********************************************************************
C     THIS SUBROUTINE IS DESIGNED TO READ THE DATA AND CONTROL CARDS
C     TO A FLAG CARD END. OR TO THE END OF THE FILE IF THERE IS NO
C     MORE DATA.  THIS IS DONE IF THERE IS AN ERROR IN THE CONTROL
C     CARDS OR DATA.  THIS ALLOWS OTHER DATA SETS TO BE PROCESSED
C     IF EVEN IF THERE ARE ERRORS IN PREVIOUS DATA SETS.
C***********************************************************************
      SUBROUTINE SKIP
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      LOGICAL SK
      INTEGER SYSIN, FILPOS
      CHARACTER*1 ALPH(4), KEY(4)
C***********************************************************************
C     COMMON STATEMENTS
C***********************************************************************
      COMMON /FILE/ SYSIN, SK, FILPOS
C***********************************************************************
C     DATA STATEMENTS
C***********************************************************************
      DATA KEY /'E','N','D','.'/
C***********************************************************************
C     READ FROM FILE 5 THE CONTROL CARD FILE UNTIL AN END. CARD OR AN
C     END OF FILE.
C***********************************************************************
      SK=.FALSE.
   10 READ(5, 60,END=50)  (ALPH(I),I=1,4)
      DO 20 I=1,4
      IF (ALPH(I).NE.KEY(I)) GO TO 10
   20 CONTINUE
      SK=.TRUE.
      IF (SYSIN.EQ.5) RETURN
C***********************************************************************
C     IF THE DATA IS SEPARATE FROM THE CONTROL CARDS THEN READ ON THE
C     DATA FILE UNTIL AN END. OR END OF FILE IS ENCOUNTERED.
C***********************************************************************
      SK=.FALSE.
   30 READ(SYSIN,60,END=50)(ALPH(I),I=1,4)
      DO 40 I=1,4
      IF (ALPH(I).NE.KEY(I)) GO TO 30
   40 CONTINUE
      SK=.TRUE.
      RETURN
   50 WRITE (6,70)
      STOP
C***********************************************************************
C     FORMAT STATEMENTS
C***********************************************************************
C
   60 FORMAT (4A1)
   70 FORMAT (///' *** TERMINATION - No further instructions or',
     1' data were found,'/
     219X,'so program execution is terminated.')
      END