kinds.f90

Go to the documentation of this file.

MODULE kinds

  IMPLICIT NONE

  !Module parameters

  INTEGER, PARAMETER :: intg=selected_int_kind(9) 
  INTEGER, PARAMETER :: sintg=selected_int_kind(4) 
  INTEGER, PARAMETER :: lintg=selected_int_kind(18) 
  INTEGER, PARAMETER :: ptr=intg 
  INTEGER, PARAMETER :: idx=intg 
  INTEGER, PARAMETER :: lidx=lintg 
  
  INTEGER, PARAMETER :: sp=selected_real_kind(6,15) 
  INTEGER, PARAMETER :: dp=selected_real_kind(15,307) 
  INTEGER, PARAMETER :: qp=selected_real_kind(30,1000) 
#ifdef SINGLE_REAL_PRECISION
  INTEGER, PARAMETER :: rp=sp 
#else
  INTEGER, PARAMETER :: rp=dp 
#endif


  INTEGER, PARAMETER :: spc=kind((1.0_sp,1.0_sp)) 
  INTEGER, PARAMETER :: dpc=kind((1.0_dp,1.0_dp)) 
  !INTEGER, PARAMETER :: QPC=KIND((1.0_QP,1.0_QP))
#ifdef SINGLE_REAL_PRECISION
  INTEGER, PARAMETER :: rpc=spc 
#else
  INTEGER, PARAMETER :: rpc=dpc 
#endif


END MODULE kinds