小编mkn*_*ght的帖子

我想知道是否可以声明一个变量并将声明转移到另一个子例程或程序（因此成为全局变量）

例如

program main
    implicit none
    call mysub
    print *, x
end program main

subroutine mysub
    implicit none
    integer, parameter :: x = 1
end subroutine mysub

会打印“1”

这可能吗？我想这样做是因为我正在处理的程序有大量变量，除非有必要，否则我宁愿避免复制这些变量。