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