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