stel_kinds.f Source File


Source Code

      MODULE stel_kinds

!----------------------------------------------------------------------
!  Kind specifications
!----------------------------------------------------------------------

      INTEGER, PARAMETER :: rprec = SELECTED_REAL_KIND(12,100)
!      INTEGER, PARAMETER :: rprec = SELECTED_REAL_KIND(15,307)
      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