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)
#ifdef SINGLE
  integer, public, parameter :: rp = sp ! single precision
#else
  integer, public, parameter :: rp = dp ! double precision
#endif
  !
  !-----------------------------------------------------------------------------
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
end module scale_precision
!-------------------------------------------------------------------------------