a2.f90 109 B

1234567891011
  1. submodule (a1) a2
  2. contains
  3. module procedure pi2tau
  4. pi2tau = 2*pi
  5. end procedure pi2tau
  6. end submodule a2