C MAGNULL.F - FOR REMOVING NULLS FROM END OF MAG DATA
C FOR AREA C
      CHARACTER*223 FIRST
      INTEGER*4 USE
      OPEN(UNIT=3,FILE='areaEtran.dat',ACTION='READ')
      OPEN(UNIT=4,FILE='magE.ldt')
   10 READ(3,100,END=20) FIRST,USE
  100 FORMAT(A223,I1)
      IF (USE .EQ. 0) GOTO 10
      WRITE(4,100) FIRST,USE
      GOTO 10
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      END