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