MODULE PiFactrs_Module
!----------------------------------------------------------------------
!  fourthpi    One fourth of pi.
!  halfpi      One half of pi.
!  pi          pi.
!  twopi       Two times pi.
!----------------------------------------------------------------------
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(KIND=dp) fourthpi, halfpi, pi, twopi
END MODULE PiFactrs_Module