Я хочу знать, возможно ли объявить переменную и перенести объявление в другую подпрограмму или программу (следовательно, стать глобальным)

Например

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

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

Напечатал бы "1"

Это возможно? Я хочу сделать это, потому что программа, над которой я работаю, имеет большие наборы переменных, которые я бы предпочел избегать копировать без необходимости.