6.1.3 Расширения для списков имен

GNU Fortran полностью поддерживает стандарт Fortran 95 для ввода/вывода списков имен, включая квалификаторы массивов, подстроки и полностью квалифицированные производные типы. Выходные данные из записи списка имен совместимы с чтением списка имен. Вывод содержит все имена в верхнем регистре и отступы до колонки 1 после имени списка имен. Разрешены два расширения:

Использование старого стиля «$» вместо «&»

$MYNML
 X(:)%Y(2) = 1.0 2.0 3.0
 CH(1:4) = "abcd"
$END

Следует отметить, что по умолчанию разделителем является «/», а не «&END».

Запрос списка имен при вводе со стандартного ввода. После хотя бы одного пробела ввод «?» отправляет на стандартный вывод имя списка имен и имена переменных в списке имен:

?

&mynml
 x
 x%y
 ch
&end

Ввод «=?» выводит список имен на стандартный вывод, как если бы WRITE(*,NML = mynml) был вызван:

=?

&MYNML
 X(1)%Y=  0.000000    ,  1.000000    ,  0.000000    ,
 X(2)%Y=  0.000000    ,  2.000000    ,  0.000000    ,
 X(3)%Y=  0.000000    ,  3.000000    ,  0.000000    ,
 CH=abcd,  /

Для облегчения этого диалога, когда вход происходит со стандартного ввода, сообщения об ошибках отправляются на стандартный поток ошибок, и выполнение продолжается, даже если IOSTAT установлен.

PRINT список имен разрешен. Это вызывает ошибку, если используется -std=f95.

PROGRAM test_print
  REAL, dimension (4)  ::  x = (/1.0, 2.0, 3.0, 4.0/)
  NAMELIST /mynml/ x
  PRINT mynml
END PROGRAM test_print

Разрешено расширенное чтение списков имен. Это вызывает ошибку, если используется -std=f95. В следующем примере первому элементу массива будет присвоено значение 0,00, а двум последующим элементам — значения 1,00 и 2,00.

&MYNML
  X(1,1) = 0.00 , 1.00 , 2.00
/

При записи списка имен, если не указано DELIM=, по умолчанию для разграничения строковых констант используется двойная кавычка. Если используется -std=F95, F2003 или F2008 и т. д., статус разделителя устанавливается в «none». Использование кавычек по умолчанию гарантирует, что списки имен с строковыми константами могут быть затем точно повторно прочитаны.

Далее: X-формат описателя без поля счётчика, Предыдущее: Старое-стилевое инициализация переменных, Вверх: Расширения, реализованные в GNU Fortran [Содержание][Индекс]