a3.f90 119 B

1234567891011
  1. submodule (a1:a2) a3
  2. contains
  3. module procedure get_pi
  4. get_pi = 4.*atan(1.)
  5. end procedure get_pi
  6. end submodule a3