8.110 FLUSH — Flush I/O unit(s)

Очищает буфер вывода для открытых единиц ввода-вывода Fortran. Без необязательного аргумента очищаются все единицы, иначе только указанная единица.

Расширение GNU

Подпрограмма

CALL FLUSH(UNIT)

Начиная со стандарта Fortran 2003, есть FLUSH утверждение, которое следует предпочесть FLUSH встроенной функции.

FLUSH встроенная функция и FLUSH утверждение Fortran 2003 имеют одинаковый эффект: они очищают буфер ввода-вывода библиотеки выполнения, чтобы данные стали видимыми для других процессов. Это не гарантирует, что данные записаны на диск.

В системах POSIX вы можете потребовать, чтобы все данные были переданы устройству хранения, вызвав функцию fsync, с дескриптором POSIX единицы ввода-вывода в качестве аргумента (полученный с помощью встроенной функции GNU FNUM). Следующий пример демонстрирует это:

! Declare the interface for POSIX fsync function
interface
  function fsync (fd) bind(c,name="fsync")
  use iso_c_binding, only: c_int
    integer(c_int), value :: fd
    integer(c_int) :: fsync
  end function fsync
end interface

! Variable declaration
integer :: ret

! Opening unit 10
open (10,file="foo")

! ...
! Perform I/O on unit 10
! ...

! Flush and sync
flush(10)
ret = fsync(fnum(10))

! Handle possible error
if (ret /= 0) stop "Error calling FSYNC"