module rvec3_mod use prec_mod, only: rk implicit none type rvec3 integer :: nvals = 3 real(rk), dimension(3) :: x end type rvec3 end module rvec3_mod