The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
293 B
24 lines
293 B
6 years ago
|
module mother
|
||
|
|
real, parameter :: pi = 4.*atan(1.)
|
||
|
|
real :: tau
|
||
|
|
|
||
|
|
interface
|
||
|
|
module elemental real function pi2tau(pi)
|
||
|
|
real, intent(in) :: pi
|
||
|
|
end function pi2tau
|
||
|
|
end interface
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
end module mother
|
||
|
|
|
||
|
|
|
||
|
|
program hier1
|
||
|
|
use mother
|
||
|
|
|
||
|
|
tau = pi2tau(pi)
|
||
|
|
|
||
|
|
print *,'pi=',pi, 'tau=', tau
|
||
|
|
|
||
|
|
end program
|