4.9 Формат файла неформатированных последовательных файлов

Неформатированные последовательные файлы хранятся как логические записи с использованием маркеров записей. Каждая логическая запись состоит из одной или нескольких подзаписей.

Каждая подзапись состоит из ведущего маркера записи, данных, записанных программой пользователя, и заключительного маркера записи. Маркеры записей по умолчанию являются целыми числами длиной четыре байта, и восемью байтами, если используется опция -fmax-subrecord-length=8 (которая существует только для обратной совместимости).

Представление маркеров записей соответствует представлению неформатированных файлов, заданных с помощью опции -fconvert, спецификатора CONVERT в операторе открытия или переменной среды GFORTRAN_CONVERT_UNIT—Настройка преобразования для неформатированного ввода-вывода.

Максимальное количество байтов данных пользователя в подзаписи составляет 2147483639 (2 ГБ - 9) для маркера записи длиной четыре байта. Это ограничение может быть снижено с помощью опции -fmax-subrecord-length, хотя это редко бывает полезно. Если длина логической записи превышает это ограничение, данные распределяются между несколькими подзаписями.

Абсолютное значение числа, хранящегося в маркерах записей, равно количеству байтов данных пользователя в соответствующей подзаписи. Если ведущий маркер записи подзаписи содержит отрицательное число, за текущей подзаписью следует другая. Если заключительный маркер записи содержит отрицательное число, то существует предшествующая подзапись.

В самом простом случае, с одной подзаписью на логическую запись, оба маркера записи содержат количество байтов данных пользователя в записи.

Формат неформатированных последовательных данных может быть продублирован с использованием потока неформатированных данных, как показано в примере программы для неформатированной записи, содержащей одну подзапись:

program main
  use iso_fortran_env, only: int32
  implicit none
  integer(int32) :: i
  real, dimension(10) :: a, b
  call random_number(a)
  open (10,file='test.dat',form='unformatted',access='stream')
  inquire (iolength=i) a
  write (10) i, a, i
  close (10)
  open (10,file='test.dat',form='unformatted')
  read (10) b
  if (all (a == b)) print *,'success!'
end program main