C C C MARXER.FOR C* ********************************************** C CHARACTER*80 TITLE CHARACTER*50 INFILE,OUTFILE,FILENAME CHARACTER*40 FNAME CHARACTER*132 ASTRING,BSTRING LOGICAL EFLG WRITE(6, 999) 999 FORMAT(//' CAREFUL- only 1st 60 char compared wthis version!') WRITE(6,1000) 1000 FORMAT(//' Enter name of input file to strip of dp lines:') 5 write(6,1100) 1100 FORMAT(/'$Input filename (CR to quit): ') READ(5,1200) INFILE 1200 FORMAT(A) IF (INFILE(:5).EQ.' ') STOP INQUIRE(FILE=INFILE, NAME=FILENAME,EXIST=EFLG) IF (.NOT.EFLG) GOTO 5 OPEN (UNIT=2,FILE=INFILE,readonly,STATUS='OLD') WRITE(6,1600) 1600 FORMAT('$Output filename: ') READ(5,1200) OUTFILE OPEN(UNIT=3,FILE=OUTFILE,STATUS='unknown') c OPEN (UNIT=3,FILE='temp.rfl',STATUS='NEW') 200 read(2,1200,end=990)ASTRING if (ASTRING(1:60).EQ.BSTRING(1:60)) GOTO 200 !skip this line if duplicate. c WRITE (6,*) BSTRING(1:60) c WRITE (6,*) ASTRING(1:60) c WRITE (6,*) (ASTRING(1:60).EQ.BSTRING(1:60)) c WRITE (6,*) BSTRING = ASTRING i=133 290 i=i-1 if (ASTRING(i:i).eq.' ') goto 290 c write(3,1200)ASTRING(1:i) write(3,1200)ASTRING 300 FORMAT (3I4,4F8.2) goto 200 990 CLOSE(UNIT=2) CLOSE (UNIT=3) END