CHARACTER*216 ALINE
      OPEN(UNIT=3,FILE='cuni.dat',READONLY)
C INPUT FILE
      OPEN(UNIT=4,FILE='/tmp/cuni.ldt')
C OUTPUT FILE
   10 READ(3,100,END=20) ALINE
      IF (ALINE(39:39) .EQ. ' ') GOTO 10
      WRITE(4,100) ALINE
  100 FORMAT(A216)
C COPY ONLY IF HAVE COORD
      GOTO 10
C
   20 CONTINUE
      STOP
      END