logical eflg
	dimension ires(500),xyz(100,3),xyzold(3)
	character*20 infile,filename
	character*4 astring
	character*72  bstring
	character*11 cstring
5	WRITE(6,*)'ENTER NAME PDB file to be corrected:'
	READ(5,1200) INFILE
1200	FORMAT(A)
	IF (INFILE(:5).EQ.'     ') STOP
	  INQUIRE(FILE=INFILE, NAME=FILENAME,EXIST=EFLG)
	  IF (.NOT.EFLG) stop
        OPEN (UNIT=2,FILE=INFILE,STATUS='OLD',READONLY)
6	WRITE(6,*)'ENTER NAME for output PDB file:'
	READ(5,1200) INFILE
	IF (INFILE(:5).EQ.'     ') STOP
        OPEN (UNIT=3,FILE=INFILE,STATUS='UNKNOWN')
	write(6,*)'Enter ID code to postpend:'
	read (5,1200) astring
	write(6,*)"astring=",astring

	
C read the pdb lines and postpend string
310	read (2,1200,end=400) bstring
c	write(6,*)"bstring=",bstring
	write (3,51) bstring,astring
51      format (A72,A4)
	goto 310
	
400 	continue
	write(6,*)'Done! Toodle Pip!'
	close (unit=2)
	close (unit=3)
	end