!+
! call in4hex4 (text, i1, i2, i3)  ! Hexprints text // 3 integers.
!-
subroutine in4hex3(text, i1, i2, i3)
implicit none
integer::  i1, i2, i3,ivec(3)
character*(*)::  text
ivec = [ i1, i2, i3]
call  in4vex(text, 3,ivec)
end subroutine