module inf
  implicit none
  real(8), parameter :: pinf8 = transfer(Z'7FF0000000000000', 0.d0)
  real(8), parameter :: ninf8 = transfer(Z'FFF0000000000000', 0.d0)
end module inf