!+
! Subroutine in4gex1 (prompt, i1) result (istat)
!
! Prompt for and get 1 integer in Hexadecimal.
! Retry if ill formed.
! Return input value if <cr> entered.
! 
! Input:
!   prompt -- Character(*): Prompt string.
!   i1    -- Integer: Input value is default.
!
! Output:
!   i1    -- Integer: Return value.

!-

subroutine in4gex1(prompt, i1) 
implicit none
integer i1, ivec(1), istat
character(*) prompt

ivec(1)=i1
call in4hetn(prompt, ivec, 1)
i1=ivec(1)

end subroutine