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.
|
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
|
|
|
