Visible to Intel only — GUID: GUID-118CDDD3-D29C-4691-89BC-AFB077AA55CD
Visible to Intel only — GUID: GUID-118CDDD3-D29C-4691-89BC-AFB077AA55CD
FSEEK
Portability Function: Repositions a file specified by a Fortran external unit.
USE IFPORT
result = FSEEK (lunit,offset,from)
lunit |
(Input) INTEGER(4). External unit number of a file. |
||||||||||||
offset |
(Input) INTEGER(4) or INTEGER(8). Offset in bytes, relative to from, that is to be the new location of the file marker. |
||||||||||||
from |
(Input) INTEGER(4). A position in the file. It must be one of the following:
|
The result type is INTEGER(4). The result is zero if the repositioning was successful; otherwise, an error code, such as:
EINVAL: The specified unit is invalid because either the unit is not already open, an invalid unit number was specified, or the from parameter is invalid.
The file specified in lunit must be open.
USE IFPORT
integer(4) istat, offset, ipos
character ichar
OPEN (unit=1,file='datfile.dat')
offset = 5
ipos = 0
istat=fseek(1,offset,ipos)
if (.NOT. stat) then
istat=fgetc(1,ichar)
print *, 'data is ',ichar
end if