11 lines
119 B
Fortran
11 lines
119 B
Fortran
|
submodule (a1:a2) a3
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
module procedure get_pi
|
||
|
|
get_pi = 4.*atan(1.)
|
||
|
|
end procedure get_pi
|
||
|
|
|
||
|
|
|
||
|
|
end submodule a3
|