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