FSEEK

Portability Function: Repositions a file specified by a Fortran external unit.

Module: USE DFPORT

Syntax

result = FSEEK (lunit, offset, from)

lunit
(Input) INTEGER(4). External unit number of a file.

offset
(Input) INTEGER(4). 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. Portability defines the following parameters:

SEEK_SET = 0	Beginning of the file
SEEK_CUR = 1	Current position
SEEK_END = 2	End of the file

Results:

The result is of type INTEGER(4). The result is zero if the repositioning was successful; otherwise, an error code, such as:

EINVAL: The specified unit is invalid (either not already open, or an invalid unit number), or the from parameter is invalid.

The file specified in lunit must be open.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

USE DFPORT
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