nrtype.f90

MODULE nrtype
  IMPLICIT NONE
  INTEGER, PARAMETER :: DBL = selected_real_kind(p=15,r=200)
  REAL(KIND=DBL), PARAMETER :: ZERO = 0.0E0_DBL   !absolute zero
  COMPLEX(KIND=DBL), PARAMETER :: zZERO = 0.0E0_DBL   !absolute zero
  REAL(KIND=DBL), PARAMETER :: PI=4.0E0_DBL*DATAN(1.0E0_DBL)!PI=3.141592653589793238462643383279502884197E0_DBL
  REAL(KIND=DBL), PARAMETER :: SQRT3 = SQRT(3.0E0_DBL)
  REAL(KIND=DBL), PARAMETER :: ZERO_CRITERIA = 1.0E-14_DBL   !machine zero
  REAL(KIND=DBL), PARAMETER :: PATCH_XACC = 5.0E-13_DBL  !The accuracy of patch root finding 
  REAL(KIND=DBL), PARAMETER :: XACC = 1.0E-9_DBL         !The accuracy of integral root finding
  INTEGER, PARAMETER :: YES=0, NO =1, TURN_NO=3
  INTEGER, PARAMETER :: PLUS=1, MINUS=2
  INTEGER, PARAMETER :: ZONE0=0, ZONE1=1, ZONE2=2, ZONE3=3, ZONE4=4, ZONE5=5, ZONE6=6
  INTEGER, PARAMETER :: PP = 100, PH = 200
END MODULE nrtype