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