module m_parameters
  !! Module contains user defined parameters for consistent use
use variableKind
use, intrinsic :: ieee_arithmetic, only: ieee_value, ieee_quiet_nan, ieee_is_nan
implicit none
real(r64), parameter :: inf = huge(0.d0)
! real(r64),parameter :: NaN = transfer((/ Z'00000000', Z'7FF80000' /),1.0_r64)
real(r64), parameter :: NaN = real(z'7FF0000000000001', kind=r64)
real(r64),parameter :: pi = dacos(-1.d0)
end module