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

!-

subroutine in4gex3(prompt, i1, i2, i3) 
implicit none
integer i1,i2,i3, ivec(3), istat
character(*) prompt

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

end subroutine