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

!-

subroutine in4gex2(prompt, i1, i2) 
implicit none
integer i1,i2, ivec(2), istat
character(*) prompt

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

end subroutine