blob: a29ca840ece049804e110780fd17e0bdcd967291 [file]
module m3
use m2, only : twopi
implicit none
contains
pure real function fourpi()
fourpi = 2*twopi()
end function
end module