!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! File:  precision.f90
! Definitions for integer and real kinds.
!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

module precision
  implicit none

  intrinsic                   :: selected_int_kind, selected_real_kind

  ! 32-bit
  ! integer,  parameter, public :: ip   = selected_int_kind(7)
  ! integer,  parameter, public :: rp   = selected_real_kind(15)

  ! 64-bit
  integer,  parameter, public :: ip   = selected_int_kind(15)
  integer,  parameter, public :: rp   = selected_real_kind(15)

  !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

end module precision
