C BLANK.F - GET RID OF LINES WITH BLANK COORDS
      CHARACTER*268 ALINE
C
      OPEN(UNIT=3,FILE='loongana.ldt',READONLY)
      OPEN(UNIT=4,FILE='/tmp/loongana.ldt')
   10 READ (3,100,END=20) ALINE
  100 FORMAT(A268)
      IF (ALINE(52:52) .EQ. ' ') GOTO 10
C SKIP
      WRITE(4,100) ALINE
      GOTO 10
C
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END