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

Далее: Асинхронное В/В, Предыдущее: Операции с файлами на символических ссылках, Наверх: Характеристики компилятора [Содержание][Индекс]