FTN4
      SUBROUTINE FF(LU1,TAPE,BUFR,BUFSZ,IERR) 
     +,92069-16181 REV.2013 790322
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED.
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18181
C     RELOC:     92069-16181
C 
C 
C****************************************************************:
C 
C 
C********************************************************** 
C FF DOES A FAST FORWARD ON THE TAPE DEVICE TO THE NEXT 
C LOGICAL FILE MARK. THIS CONSISTS OF A 0-LENGTH RECORD ON
C A TYPE 3 FILE, OR A -1 LENGTH RECORD ON THE TAPE. 
C************************************************************ 
      INTEGER LU1,TAPE(1),BUFR(1),BUFSZ,IERR
      LOGICAL EOF 
100   CALL TAPER(LU1,TAPE,BUFR,BUFSZ,LEN,EOF,IERR)
      IF (IERR .NE. 0) RETURN 
      IF (EOF) GO TO 200
      GO TO 100 
C*********************************************************
C HIT AN EOF. 
C 
200   CONTINUE
      IERR=0
      EOF=.FALSE. 
      RETURN
      END 
      