submodule (a1) a2
contains
module procedure pi2tau
pi2tau = 2*pi
end procedure pi2tau
end submodule a2