!  call reagetn('prompt ',3,x,y,z..) !to typein variable # of real*4 vars
!  Read in as many real*4 as 2nd arg indicates, up to 10.
!  Values of f1...fn unchanged if <cr> occurs before value entered.
!  Prompting string is retyped and input restarted if non-numeric found.
!  (entering integer values is allowed).
!  call reaget(' prompt ',f1,f2,f3...) replaces
subroutine reagetn(str,nar,f1,f2,f3,f4,f5,f6,f7,f8,f9)
use fio, dummy => reagetn
implicit none
character*(*), intent(in)::  str
real, intent(inout), optional:: f1,f2,f3,f4,f5,f6,f7,f8,f9
integer, intent(in)::   nar
real v(10)
integer i

do i=1,nar
 if(i.eq.1) v(1)=f1 ; if(i.eq.2) v(2)=f2 ; if(i.eq.3) v(3)=f3
 if(i.eq.4) v(4)=f4 ; if(i.eq.5) v(5)=f5 ; if(i.eq.6) v(6)=f6
 if(i.eq.7) v(7)=f7 ; if(i.eq.8) v(8)=f8 ; if(i.eq.9) v(9)=f9
enddo

call reavec(str,nar,v)

do i=1,nar
 if(i.eq.1) f1=v(1) ; if(i.eq.2) f2=v(2) ; if(i.eq.3) f3=v(3)
 if(i.eq.4) f4=v(4) ; if(i.eq.5) f5=v(5) ; if(i.eq.6) f6=v(6)
 if(i.eq.7) f7=v(7) ; if(i.eq.8) f8=v(8) ; if(i.eq.9) f9=v(9)
enddo
return
end