pbepack_kinds.F90 Source File

module pbepack_kinds
!! Real kinds and common numeric constants.
   use, intrinsic :: iso_fortran_env, only: real32, real64
   implicit none
   private

   public :: rk, dp
   public :: EPS, ZERO, ONE, TWO, HALF
   public :: VOIDREAL

! #ifdef REAL32
!    integer, parameter :: rk = real32
! #elif REAL64
   integer, parameter :: rk = real64
! #else
!    integer, parameter :: rk = real64
! #endif
   integer, parameter :: dp = real64
   real(rk), parameter :: ZERO = 0._rk, ONE = 1._rk, TWO = 2._rk
   real(rk), parameter :: HALF = ONE/2
   real(rk), parameter :: EPS = epsilon(ONE)
   real(rk) :: VOIDREAL(1:0)

end module pbepack_kinds