!+
! Function in4get4 (prompt, i1, i2, i3, i4) result (istat)
!
! Prompt for and get 4 integers.
! Retry if ill formed.
! Return input values if <cr> entered.
! If "@" is the last non-blank character of prompt, "<CR = nnn, mmm, ppp>" will be
!   substituted in plase of the "@" where "nnnn", etc are the default (input) values.
! 
! Input:
!   prompt -- Character(*): Prompt string.
!   i1     -- Integer: Input value is default.
!   i2     -- Integer: Input value is default.
!   i3     -- Integer: Input value is default.
!   i4     -- Integer: Input value is default.
!
! Output:
!   i1    -- Integer: Return value.
!   i2    -- Integer: Return value.
!   i3    -- Integer: Return value.
!   i4    -- Integer: Return value.
!   istat   -- Integer: Status. 1 = OK. -1 = 'QUIT' typed.
!-

function in4get4(prompt, i1, i2, i3, i4) result (istat)

implicit none
integer i1, i2, i3, i4, ivec(4), istat, in4getn
character(*) prompt

!

ivec = (/ i1, i2, i3, i4 /)
istat = in4getn(prompt, ivec, 4)
i1 = ivec(1); i2 = ivec(2); i3 = ivec(3); i4 = ivec(4)

end function