PROGRAM checkwh

c	Looks through WH file for symmetry related labels

	CHARACTER*65	line1, line2

	WRITE (6, 1000) 'Enter WH filename:'
1000	FORMAT (a)
	READ (5, 1000) line1

	OPEN (unit=1, form='FORMATTED', status='OLD', readonly,
	1	file=line1)

	OPEN (unit=2, form='FORMATTED', status='OLD', readonly,
	1	file=line1)

	WRITE (6, 1000) 'Enter starting line number:'
	READ (5, 1001) istart
1001	FORMAT (5i10)

	DO i = 1, istart-1
	  READ (1, 1000)
	  READ (2, 1000)
	endDO

	READ (1, 1000) line1
	READ (2, 1000) line2
	READ (2, 1000) line2

	i = istart
	j = i + 1
	DO WHILE (line2(4:15) .NE. line1(4:15))
	  READ (2, 1000) line2
	  j = j + 1
	endDO

	DO WHILE (line2(4:15) .EQ. line1(4:15))
	  READ (1, 1000) line1
	  READ (2, 1000, end=9) line2
	  i = i + 1
	  j = j + 1
	endDO

9 	WRITE (6, 1001) i, j, j-i
	WRITE (6, 1000) line1
	WRITE (6, 1000) line2

	CLOSE (unit=1)
	CLOSE (unit=2)

	end