scale_precision.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale_precision
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  integer, public, parameter :: sp = kind(0.0e0) ! Single Precision
  integer, public, parameter :: dp = kind(0.0d0) ! Double Precision
 
  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