C CLEAN.F - REMOVE LINES WITHOUT COORDS
      CHARACTER*85 LINE
      OPEN(UNIT=3,FILE='barrington.dat',READONLY)
      OPEN(UNIT=4,FILE='/tmp/barrington.ldt')
C
   10 READ(3,100,END=20) LINE
  100 FORMAT(A85)
      IF (LINE(34:34) .EQ. ' ') GOTO 10
      WRITE(4,100) LINE
      GOTO 10
C
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      STOP
      END