*
* $Id: frwdzf.F,v 1.1.1.1 1996/04/01 15:03:18 mclareni Exp $
*
* $Log: frwdzf.F,v $
* Revision 1.1.1.1  1996/04/01 15:03:18  mclareni
* Mathlib gen
*
*
#include "sys/CERNLIB_machine.h"
#include "_gen/pilot.h"
      SUBROUTINE FRWDZF(N,I,K)
C  FRWDZF MOVES FORWARD A GIVEN NUMBER (N) OF LOGICAL RECORDS ON
C  LOGICAL TAPE I IN BINARY MODE. THE ARGUMENT K IS A STATUS FLAG
C  TO INDICATE -
C             K=0  N RECORDS WERE SKIPPED
C             K=1  N WAS INVALID (ZERO OR NEGATIVE)
C             K=2  EOF READ BEFORE N RECORDS SKIPPED
C
C  CERN LIBRARY PROGRAM K405
C  L. POPE - DECEMBER 1971
C
      CALL NOARG(M)
      IF (M.LT.3) GO TO 200
C  STATUS FLAG(K) EQUAL TO ONE IF N ZERO OR NEGATIVE
      K=1
      IF (N.LE.0) RETURN
C  STATUS FLAG(K) EQUAL TO - ZERO IF ALL N RECORDS SKIPPED
C                          - TWO IF EOF BEFORE N RECORDS SKIPPED
      K=2
      DO 100 L=1,N
      READ (I)
      IF (EOF(I).NE.0.) RETURN
      J=IOCHEC(I)
100   CONTINUE
      K=0
      RETURN
C  FOLLOWING VERSION DOES NOT REFERENCE K
200   IF (N.LE.0) RETURN
      DO 300 L=1,N
      READ (I)
      IF (EOF(I).NE.0.) RETURN
300   J=IOCHEC(I)
      RETURN
      END