module mod_precision

  implicit none

  integer, parameter :: pr = 8
  real(pr), parameter :: pi = acos(-1._pr)
  
end module mod_precision
