Операторы формата в модулях Fortran

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


module fortran fortran90 formats fortran95
person astay13    schedule 12.07.2011    source источник

Ответы (1)


arrow_upward
7
arrow_downward

Вы можете сохранить формат как символ на уровне модуля. Например.


module foo
  implicit none
  character(len=20), parameter :: form = "(1X,A)"
contains
subroutine bar
  ...
   write(my_unit, form) "Hello, World"
end subroutine bar
end module foo
person janneb    schedule 12.07.2011