      SUBROUTINE RDCOLU(VECTOR, N, LU)
C-
C- THIS SUBROUTINE READS ONE RECORD FROM LU EACH TIME IT IS CALLED.
C- IF N .EQ. 0 THE RECORD IS SKIPPED.
C-
      DIMENSION VECTOR(*)
C-
      IEOF = 0
      IF (N .NE. 0)  GO TO 10
      READ (LU,END=10000)
10000 RETURN
   10 READ (LU, END=20) (VECTOR(I), I = 1, N)
      RETURN
   20 PRINT 1500
      CLOSE (LU)
      OPEN (LU, FORM='UNFORMATTED')
      IEOF = IEOF + 1
      IF (IEOF .EQ. 3)   STOP
      GO TO 10
 1500 FORMAT (' RDCOLU EOF NOT EXPECTED')
      END
