8.95 FTELL — Current stream position

Description:

Retrieves the current position within an open file.

This intrinsic is provided in both subroutine and function forms; however, only one form can be used in any given program unit.

Standard:

GNU extension

Class:

Subroutine, function

Syntax:

CALL FTELL(UNIT, OFFSET)

OFFSET = FTELL(UNIT)

Arguments:

OFFSET	Shall of type INTEGER.
UNIT	Shall of type INTEGER.

Return value:

In either syntax, OFFSET is set to the current offset of unit number UNIT, or to -1 if the unit is not currently open.

Example:

          PROGRAM test_ftell
            INTEGER :: i
            OPEN(10, FILE="temp.dat")
            CALL ftell(10,i)
            WRITE(*,*) i
          END PROGRAM

See also:

FSEEK