PROGRAM listpack2

c	Looks through packing2.log and lists protein residues that
c	make contacts

	CHARACTER*80	line
	CHARACTER*1	c1, c2, c
	LOGICAL*1	f1(12,600)/7200*.FALSE./, f2(12,600)/7200*.FALSE./

c	First read and store information

	OPEN (unit=1, form='FORMATTED', status='OLD', file='packing2.log',
	1	readonly)

	DO WHILE (line(1:5) .NE. 'Enter')
	  READ (1, 1000) line
1000	  FORMAT (a)
	endDO
	READ (1, 1000)

	DO WHILE (.TRUE.)
1	  READ (1, 1001, err=9) n, i1, c1, i2, c2
1001	  FORMAT (i3, 5x, i4, a1, 20x, i4, a1)
	  j = ICHAR(c2)-64
	  IF (i1 .LE. 600) THEN
	    f1(j,i1) = .TRUE.
	  endIF
	  IF (i2 .LE. 600) THEN
	    f2(j,i2) = .TRUE.
	  endIF
	endDO

9	CLOSE (unit=1)

c	Now write results

	DO j = 1,12
	  c = CHAR(j+64)
	  n = 1
	  DO i = 1,600
	    IF (f1(j,i)) THEN
	      WRITE (6, 1001) j, i, 'A', n
	      n = n + 1
	    endIF
	  endDO
	  n = 1
	  DO i = 1,600
	    IF (f2(j,i)) THEN
	      WRITE (6, 1001) j, i, c, n
	      n = n + 1
	    endIF
	  endDO
	endDO

	end