mod_f90_kind.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
module mod_f90_kind

  implicit none

! Single byte integer
  integer, parameter :: int_def = selected_int_kind(9)

! Long byte integer
  integer, parameter :: int_long = selected_int_kind(18)

! Single precision
  integer, parameter :: single  = selected_real_kind(6,37)

! Double precision
  integer, parameter :: double  = selected_real_kind(15,300)

!logical
  integer, parameter :: logical_def = kind(.true.)


!-----------------------------------------------------------------------
! Working precision
!-----------------------------------------------------------------------

  integer, parameter :: rkind   = double      ! double
  integer, parameter :: r4kind  = single      ! single
  integer, parameter :: ikind   = int_def     ! integer
  integer, parameter :: i8kind   = int_long   ! integer double
  integer, parameter :: lkind   = logical_def ! integer
  integer, parameter :: skind   = 512         ! string


end module mod_f90_kind