!+
! call in4hex1 (text, i1)  ! Hexprints text // 1 integer.
!-
subroutine in4hex1(text, i1)
implicit none
integer::  i1
character*(*)::  text
call  in4vex(text,1,i1)
end subroutine