module prec
!
! Constants for setting precision
!
   integer, parameter :: r4 = selected_real_kind (6)
   integer, parameter :: r8 = selected_real_kind (12)
   integer, parameter :: i4 = selected_int_kind (6)
end module prec