module hompack_kinds !! Real kinds and common numeric constants. use iso_fortran_env, only: real64 implicit none private public :: dp public :: zero, one, pi integer, parameter :: dp = real64 real(dp), parameter :: zero = 0.0_dp real(dp), parameter :: one = 1.0_dp real(dp), parameter :: pi = 4*atan(one) end module hompack_kinds