Read and convert text strings

This example shows the use of SFRASC to read and convert the character strings from the file created in the example in section .

      PROGRAM TEST
      DIMENSION IBUF(1000),IASC(1000)
      CALL EPINIT
   10 CONTINUE
      CALL EPREAD(11,1,NW,IASC,IBUF,IERR)
      IF(IERR.NE.0)  STOP
      CALL SFRASC(IASC,1,IASC,1,2*NW)
      NW=NW/2
      PRINT 2001,NW,IERR
 2001 FORMAT(/" NO. OF WORDS =",I5,"  ERROR =",I3)
      PRINT 2002,(IASC(I),I=1,NP)
 2002 FORMAT(/1X,25A4)
      GOTO 10
      END