C MAGCLEAN.F - REMOVE NULLS FROM MAGNETICS
      CHARACTER*74 ALINE
      REAL*8 MAG
      OPEN(UNIT=3,FILE='a101a.ldt',ACTION='READ')
      OPEN(UNIT=4,FILE='magclean.ldt')
   10 READ(3,100,END=20) ALINE,MAG
  100 FORMAT(A74,22X,F11.2)
      IF (MAG .GT. 900000.0D00) GOTO 10
      WRITE(4,200) ALINE,MAG
  200 FORMAT(A74,F11.2)
      GOTO 10
   20 CONTINUE
      END