26 lines
300 B
Fortran
26 lines
300 B
Fortran
|
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
|
||
|
|
|
||
|
|
pi = get_pi()
|
||
|
|
|
||
|
|
tau = pi2tau(pi)
|
||
|
|
|
||
|
|
print *,'pi=',pi,'tau=',tau
|
||
|
|
|
||
|
|
end program
|