global-variables - Fortran 中受保护的全局变量

Question

我想知道在 Fortran 中是否有一种方法可以使用全局变量，可以将其描述为某种“受保护”。我正在考虑一个包含变量列表的模块 A。使用 A 的每个其他模块或子例程都可以使用它的变量。如果你知道变量的值是什么，你可以使用参数来实现它不能被覆盖。但是，如果您必须首先运行代码来确定变量值怎么办？您无法将其声明为参数，因为您需要更改它。有没有办法在运行时的特定点做类似的事情？

Answer 1

您可以PROTECTED在模块中使用该属性。它是随 Fortran 2003 标准引入的。模块中的过程可以更改受保护的对象，但不能更改模块中的过程或使用您的模块的程序。

例子：

module m_test
    integer, protected :: a
    contains
        subroutine init(val)
            integer val            
            a = val
        end subroutine
end module m_test

program test
    use m_test

    call init(5)
    print *, a
    ! if you uncomment these lines, the compiler should flag an error
    !a = 10
    !print *, a
    call init(10)
    print *, a
end program