C TRIMGLADS.F - TRIM OUT RECORDS WITH 0 MAG RECOVERY FLAG
C INPUT GLADSTONE.DAT
C OUTPUT GLADTRIM.DAT
C
      CHARACTER*134 LINE
C
      OPEN(UNIT=3,FILE='gladstone.dat',READONLY)
      OPEN(UNIT=4,FILE='gladtrim.dat')
C
   10 READ(3,100,END=20) LINE
  100 FORMAT(A134)
      IF (LINE(72:72) .EQ. '0') GOTO 10
      WRITE(4,100) LINE
      GOTO 10
C
   20 CONTINUE
      CLOSE(UNIT=3,STATUS='KEEP')
      CLOSE(UNIT=4,STATUS='KEEP')
      END