Fortran模块中的格式语句

Question

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

Answer 1

您可以将格式存储为模块级别的字符。 E.g。

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