Read a File in Default Format.

Read the file of section . Note the the conversion routine CFRIBM.

      PROGRAM EPEXA4
      DIMENSION A(300),BUF(480)
      CALL EPINIT
 C--- LOOP UNTIL EOF, OR ANY OTHER ERROR
     1 CONTINUE
      CALL EPREAD(10,3,NW,A,BUF,IERR)
      IF(IERR.NE.0)  GOTO 20
      CALL CFRIBM(A,NW,3)
 C--- PROCESS CONTENTS OF A
 C
      CALL USER(A,NW)
 C
 C--- LOOP
      GOTO 1
    20 STOP
      END