PROGRAM saltpack

c	Look for salt links in packing*log files

	CHARACTER*46	line

	WRITE (6, 1000) 'Enter input file:'
1000	FORMAT (a)
	READ (5, 1000) line
	OPEN (unit=1, file=line, form='FORMATTED', status='OLD',
	1	 readonly)

	DO WHILE (.TRUE.)
1	  READ (1, 1000, end=9) line
	  IF (line(6:8) .NE. 'GLU' .AND. 
	1	line(6:8) .NE. 'ASP' .AND.
	2	line(6:8) .NE. 'ARG' .AND.
	3	line(6:8) .NE. 'LYS' .AND.
	4	line(6:8) .NE. 'HIS') GOTO 1
	  IF (line(31:33) .NE. 'GLU' .AND. 
	1	line(31:33) .NE. 'ASP' .AND.
	2	line(31:33) .NE. 'ARG' .AND.
	3	line(31:33) .NE. 'LYS' .AND.
	4	line(31:33) .NE. 'HIS') GOTO 1
	  WRITE (6, 1000) line
	endDO

9	CLOSE (unit=1)
	end