SUBROUTINE DUMRD (IUO,NR,NC,G)

*** LOAD WORK SPACE

      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
      DIMENSION G(NR,NC)

      DO 1 I = 1,NR
        READ (IUO,END = 666) (G(I,J),J=1,NC)
   1  CONTINUE

      RETURN

*** PREMATURE END OF FILE

  666 WRITE (6,667) NVEC
  667 FORMAT ('0ERROR - PREMATURE FILE END IN DUMRD -- NVEC=',I5)
      CALL ABORT2
      RETURN
      END