!-------------------------------------------
! precision parameter

! single precision: selected_real_kind(6)
! double precision: selected_real_kind(12)
!-------------------------------------------
module prec_mod
  implicit none
  integer, parameter :: rk = selected_real_kind(12)
end module prec_mod