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