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.
26 lines
316 B
26 lines
316 B
module a1 |
|
implicit none |
|
|
|
interface |
|
module elemental real function pi2tau(pi) |
|
real, intent(in) :: pi |
|
end function pi2tau |
|
|
|
module real function get_pi() |
|
end function get_pi |
|
end interface |
|
|
|
end module a1 |
|
|
|
program hierN |
|
|
|
use a1 |
|
real :: tau, pi |
|
|
|
pi = get_pi() |
|
|
|
tau = pi2tau(pi) |
|
|
|
print *,'pi=',pi,'tau=',tau |
|
|
|
end program
|
|
|