!  call reaget('prompt ',x,y,z..) !to typein variable # of real*4 vars
!  call with variable # of real*4 (floating)  variables (not vectors).
!  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).
!  requires "use fio"
subroutine reaget(string,f1,f2,f3,f4,f5,f6,f7,f8,f9)
use fio, dummy => reaget
implicit none
character*(*), intent(in)::  string
real, intent(inout), optional:: f1,f2,f3,f4,f5,f6,f7,f8,f9
real v(10)
integer nar

nar=0   

if(present(f1)) then ; nar=1 ; v(1)=f1 ; endif
if(present(f2)) then ; nar=2 ; v(2)=f2 ; endif
if(present(f3)) then ; nar=3 ; v(3)=f3 ; endif
if(present(f4)) then ; nar=4 ; v(4)=f4 ; endif
if(present(f5)) then ; nar=5 ; v(5)=f5 ; endif
if(present(f6)) then ; nar=6 ; v(6)=f6 ; endif
if(present(f7)) then ; nar=7 ; v(7)=f7 ; endif
if(present(f8)) then ; nar=8 ; v(8)=f8 ; endif
if(present(f9)) then ; nar=9 ; v(9)=f9 ; endif

if(nar.gt.0) call reavec(string,nar,v)
if (nar.ge.1) f1=v(1) ; if(nar.ge.2) f2=v(2) ; if(nar.ge.3) f3=v(3)
if (nar.ge.4) f4=v(4) ; if(nar.ge.5) f5=v(5) ; if(nar.ge.6) f6=v(6)
if (nar.ge.7) f7=v(7) ; if(nar.ge.8) f8=v(8) ; if(nar.ge.9) f9=v(9)
return
end