Read Long Block Tape Format

This example treats data written with "long" blocks with a maximum size of 14400 bytes. Note the call to EPSETW to specify the buffer size correctly for a 32-bit computer.

      PROGRAM EPEXA3
      DIMENSION IA(300),BUF(3600)
      CALL EPINIT
      CALL EPSETW(10,1,7200,IERR)
C --- LOOP UNTIL EOF, OR ANY OTHER ERROR
    1 CONTINUE
      CALL EPREAD(10,3,NW,IA,BUF,IERR)
      IF(IERR.NE.0)  GOTO 20
C --- PROCESS CONTENTS OF A
C
      CALL USER(IA,NW)
C
C --- LOOP
      GOTO 1
   20 STOP
      END
      SUBROUTINE USER(IA,NW)
      DIMENSION IA(NW)
      PRINT*,NW,(IA(I),I=1,5)
      RETURN
      END