scale_precision.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
module scale_precision
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use dc_types, only: &
     dc_sp => sp, &
     dc_dp => dp
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  integer, public, parameter :: sp = dc_sp ! Single Precision: kind(0.E0)
  integer, public, parameter :: dp = dc_dp ! Double Precision: kind(0.D0)

  integer, public, parameter :: sp_prec = precision(0.e0)
  integer, public, parameter :: dp_prec = precision(0.d0)

#ifdef SINGLE
  integer, public, parameter :: rp      = sp      ! single precision
  integer, public, parameter :: rp_prec = sp_prec
#else
  integer, public, parameter :: rp      = dp      ! double precision
  integer, public, parameter :: rp_prec = dp_prec
#endif

  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
end module scale_precision