  module constants00

    use dc_types

    implicit none

    public :: pi

    real(dp), parameter :: pi = 3.1415926535897932385d0

  end module constants00
