Fortran 模块中的格式化语句

Question

我有一个带有许多子例程的模块，这些子例程都使用相同的输出格式集。 现在，我必须在每个子例程中声明格式。有没有办法在模块中声明它们，以便所有子例程都可以访问它们？

Answer 1

您可以在模块级别将格式存储为字符。例如

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