Форматирование операторов в модулях Fortran - PullRequest
Новая
       32

Форматирование операторов в модулях Fortran

3 голосов
/ 12 июля 2011

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

1 Ответ

7 голосов
/ 12 июля 2011

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


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
...