C DELDUMMY.F - FOR REMOVING NULL VALUES FROM MAG DATA AFTER ALL CHECKS
C HAVE BEEN MADE TO ENSURE THAT THE ONLY NULLS IN EASTING ARE AT EITHER
C THE START OR THE END OF THE LINES
C
      CHARACTER*80 LINE
      OPEN(UNIT=3,FILE='alltas.mag',READONLY)
C INPUT
      OPEN(UNIT=4,FILE='weeded.dat')
C OUTPUT
   10 READ(3,100,END=20) LINE
  100 FORMAT(A80)
      IF (LINE(42:42) .EQ. '-') GOTO 10
C CHECK ABOVE FOR NULL VALUE
      WRITE(4,100) LINE
      GOTO 10
C BACK ROUND
C
C
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END