9.118 FTELL — Текущая позиция потока

Описание:

Получает текущую позицию в открытом файле.

Этот встроенный элемент доступен как в виде подпрограммы, так и в виде функции; однако, только один из вариантов может быть использован в любом данном программном блоке.

Стандарт:

Расширение GNU

Класс:

Подпрограмма, функция

Синтаксис:

CALL FTELL(UNIT, OFFSET)

OFFSET = FTELL(UNIT)

Аргументы:

OFFSET	Должен быть типа INTEGER.
UNIT	Должен быть типа INTEGER.

Возвращаемое значение:

В любом из синтаксисов, OFFSET устанавливается в текущее смещение номера единицы UNIT или в -1, если единица в настоящее время не открыта.

Пример:

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

См. также:

FSEEK