stel_kinds.f90

Go to the documentation of this file.

 
MODULE stel_kinds
 
  implicit none
 
!----------------------------------------------------------------------
!  Kind specifications
!----------------------------------------------------------------------
 
  INTEGER, PARAMETER :: rprec = selected_real_kind(12,100)
  INTEGER, PARAMETER :: iprec = selected_int_kind(8)
  INTEGER, PARAMETER :: cprec = kind((1.0_rprec,1.0_rprec))
  INTEGER, PARAMETER :: dp = rprec
 
END MODULE stel_kinds