!+
! Function in4get5 (prompt, i1, i2, i3, i4, i5)(istat)
!
! Prompt for and get 6 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.
!   i5     -- Integer: Input value is default.
!
! Output:
!   i1    -- Integer: Return value.
!   i2    -- Integer: Return value.
!   i3    -- Integer: Return value.
!   i4    -- Integer: Return value.
!   i5    -- Integer: Return value.
!   istat   -- Integer: Status. 1 = OK. -1 = 'QUIT' typed.
!-

function in4get5(prompt, i1, i2, i3, i4, i5) result (istat)

implicit none
integer:: i1, i2, i3, i4,i5, i6, ivec(5), istat, in4getn
character(*):: prompt

!

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

end function