module prec_mod
  implicit none
  integer, parameter :: rk = selected_real_kind(12)
end module prec_mod