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

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

Каждая подзапись состоит из ведущего маркера записи, данных, записанных программой пользователя, и заключительного маркера записи. Маркеры записей по умолчанию являются целыми числами длиной четыре байта и целыми числами длиной восемь байт, если используется опция -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

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