Simple RECIO Example

The following FORTRAN listing is the previous example modified to use RECIO.

      INTEGER BUFFER(32)
      INTEGER STATUS
      INTEGER INFILE, OUTFILE, ENDFILE

      STATUS = 0
      ENDFILE = 0

      RECIO_OPENR ( 'iamfile', INFILE, STATUS )
      RECIO_OPENW ( 'newfile', OUTFILE, STATUS )


      DO WHILE ( ( ENDFILE .EQ. 0 ) .AND. ( STATUS .EQ. 0 ) )
         CALL RECIO_READ ( INFILE, 128, BUFFER, ENDFILE, STATUS )
         IF ( ( ENDFILE .EQ. 0 ) .AND. ( STATUS .EQ. 0 ) ) THEN
            IF ( ( BUFFER(29) .GT. 0 ) .AND. ( BUFFER(30) .GE. 0 ) ) 
     :        THEN
               CALL RECIO_WRITE ( OUTFILE, 128, BUFFER, STATUS )
            ENDIF
         ENDIF
      ENDDO

      END