stel_kinds.f

      MODULE stel_kinds
 
!----------------------------------------------------------------------
!  Kind specifications
!----------------------------------------------------------------------
 
      INTEGER, PARAMETER :: rprec = selected_real_kind(15,300)
      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