module - Declaraciones de formato en los módulos Fortran

fortran90 fortran95

Question

Tengo un módulo con varias subrutinas que usan el mismo conjunto de formatos para la salida. En este momento, tengo que declarar los formatos en cada subrutina. ¿Hay alguna manera de declararlos en el módulo para que todas las subrutinas tengan acceso a ellos?

Answer 1

Puede almacenar el formato como un personaje en el nivel del módulo. P.ej

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