subroutine getWwire ! Uses use chambers_mod use precision_mod ! Variables type (plane_type), INTENT(in) :: plane type (wire_type), INTENT(in) :: wire real, INTENT(out) :: wmin real, INTENT(out) :: wmax real (kind=R8), dimension (3) :: w end subroutine getWwire
type (plane_type), INTENT(in) :: plane
type (wire_type), INTENT(in) :: wire
real, INTENT(out) :: wmin
real, INTENT(out) :: wmax
real (kind=R8), dimension (3) :: w