Ich möchte wissen, ob es möglich ist, eine Variable zu deklarieren und die Deklaration auf ein anderes Unterprogramm oder Programm zu übertragen (daher wird sie global).

Beispielsweis

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

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

Würde "1" drucken

Ist das möglich? Ich möchte dies tun, weil ein Programm, an dem ich arbeite, große Mengen von Variablen enthält, die ich lieber vermeiden möchte, zu kopieren, wenn dies nicht erforderlich ist.