!  call in4get('prompt ',i1,i2,i3..) !to typein variable # of int*4 vars
!  call with variable # of int*4 (floating)  variables (not vectors).
!  Values of i1...in unchanged if <cr> occurs before value entered.
!  Prompting string is retyped and input restarted if non-numeric found.
!  requires "use fio"
subroutine in4get(string,i1,i2,i3,i4,i5,i6,i7,i8,i9)
use fio, dummy => in4get
implicit none
character*(*), intent(in)::  string
integer, intent(inout), optional:: i1,i2,i3,i4,i5,i6,i7,i8,i9
integer  v(10)
integer nar

nar=0   

if(present(i1)) then ; nar=1 ; v(1)=i1 ; endif
if(present(i2)) then ; nar=2 ; v(2)=i2 ; endif
if(present(i3)) then ; nar=3 ; v(3)=i3 ; endif
if(present(i4)) then ; nar=4 ; v(4)=i4 ; endif
if(present(i5)) then ; nar=5 ; v(5)=i5 ; endif
if(present(i6)) then ; nar=6 ; v(6)=i6 ; endif
if(present(i7)) then ; nar=7 ; v(7)=i7 ; endif
if(present(i8)) then ; nar=8 ; v(8)=i8 ; endif
if(present(i9)) then ; nar=9 ; v(9)=i9 ; endif

if(nar.gt.0) call in4vec(string,nar,v)
if (nar.ge.1) i1=v(1) ; if(nar.ge.2) i2=v(2) ; if(nar.ge.3) i3=v(3)
if (nar.ge.4) i4=v(4) ; if(nar.ge.5) i5=v(5) ; if(nar.ge.6) i6=v(6)
if (nar.ge.7) i7=v(7) ; if(nar.ge.8) i8=v(8) ; if(nar.ge.9) i9=v(9)
return
end