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