Reading back the file from the previous example

Read the file written in the previous example (EPEXA5) on a 32-bit computer, using CFRIBM to convert the real numbers to the local representation.

      PROGRAM EPEXA6
      DIMENSION A(3000),BUF(4500)
      CALL EPINIT
 C--- INCREASE INPUT BUFFER = PHYSICAL BLOCK LENGTH TO 9000 16-BIT
 C    WORDS (18000 BYTES), CORRESPONDING TO 4500 32-bit words
      CALL EPSETW(10,1,9000,IERR)
      IF(IERR.NE.0)  STOP 1
 C--- LOOP UNTIL EOF, OR ANY OTHER ERROR
     1 CONTINUE
      CALL EPREAD(10,3,NW,A,BUF,IERR)
      IF(IERR.NE.0)  GOTO 20
 C--- THE FOLLOWING CALL HAS NO EFFECT ON IBM (MAY BE LEFT
 C    IN FOR CODE COMPATIBILITY)
      CALL CFRIBM(A,NW,3)
 C--- PROCESS CONTENTS OF A
 C
      CALL USER(A,NW)
 C
 C--- LOOP
      GOTO 1
    20 STOP
      END