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