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