Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
2.74 REWIND Statement
REWIND u
REWIND (alist)
where:
u
alist
is an external unit identifier.
is a list of rewind specifiers separated by commas:
[UNIT =] u
IOSTAT = ios
ERR = s
Execution of a REWIND statement causes the file connected to the specified unit to be positioned at the
beginning (or before the first record) of the file.
Rewind Specifiers
[UNIT =] u
IOSTAT = ios
ERR = s
u is an external unit identifier. An external unit identifier is a non-negative integer
expression. If the optional UNIT= specifier is omitted then the specifier must be the first
item in the list of specifiers.
is an input/output status specifier. The integer variable or integer array element ios is
defined with zero if no error condition exists or a positive integer value if an error condition
exists.
is an error specifier and s is a statement label. When an error occurs, execution is
transferred to the statement labelled by s.
Example:
LOOP
READ( UNIT=7, END=100, FMT=200 )RECORD
PRINT *, RECORD
ENDLOOP
100 REWIND( UNIT=7 )
LOOP
READ( UNIT=7, END=101, FMT=200 )RECORD
WRITE( UNIT=8, FMT=200 )RECORD
ENDLOOP
101 CONTINUE
In the previous example, we illustrate how one might process the records in a file twice. After reaching the
endfile record, a REWIND statement is executed and the file is read a second time.
REWIND Statement 133