C CLEAN1.F  - FOR REMOVING NULL COORDS FROM AREA1.LDT
      CHARACTER*136 ALINE
      OPEN(UNIT=3,FILE='area1.ldt',READONLY)
      OPEN(UNIT=4,FILE='area1new.ldt')
   10 READ(3,100,END=20) ALINE
  100 FORMAT(A136)
      IF (ALINE(47:47) .NE. ' ') GOTO 10
      WRITE(4,100) ALINE
      GOTO 10
C
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END