9.106 FGET — Чтение одного символа в режиме потока из stdin

Описание:

Чтение одного символа в режиме потока из stdin, минуя обычный форматированный вывод. Потоковый ввод-вывод не должен смешиваться с обычным вводом-выводом по записям (форматированным или неформатированным) для одного и того же устройства; результаты будут непредсказуемыми.

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

Обратите внимание, что FGET внутренний вид предоставляется для обратной совместимости с g77. GNU Fortran предоставляет средства потоковой передачи Fortran 2003. Программисты должны рассматривать использование новой функции потокового ввода-вывода в новом коде для обеспечения будущей переносимости. См. также Статус Fortran 2003.

Стандарт:

Расширение GNU

Класс:

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

Синтаксис:

CALL FGET(C [, STATUS])

STATUS = FGET(C)

Аргументы:

C	Тип должен быть CHARACTER и иметь стандартный вид.
STATUS	(Необязательно) флаг состояния типа INTEGER. Возвращает 0 при успешном выполнении, -1 при достижении конца файла и системную положительную ошибку в противном случае.

Пример:

PROGRAM test_fget
  INTEGER, PARAMETER :: strlen = 100
  INTEGER :: status, i = 1
  CHARACTER(len=strlen) :: str = ""

  WRITE (*,*) 'Enter text:'
  DO
    CALL fget(str(i:i), status)
    if (status /= 0 .OR. i > strlen) exit
    i = i + 1
  END DO
  WRITE (*,*) TRIM(str)
END PROGRAM

См. также:

FGETC, FPUT, FPUTC