!       call reaget3(prompt,f1,f2,f3)
!       Prompt for and get 3 reals; retry if
!       ill formed; return user originals if <cr>
        subroutine reaget3(prompt,f1,f2,f3)
        implicit none  
        real*4  f1,f2,f3,vec(3)
        character*(*) prompt
        vec(1)=f1 ; vec(2)=f2 ; vec(3)=f3
        call reavec(prompt,3,vec)
        f1=vec(1) ; f2=vec(2) ; f3=vec(3)
        return
        end