PROGRAM	classwath

c	Goes through classwat.out and calculates new histogram

	CHARACTER*40	line
	INTEGER		hist(0:6)/7*0/

	OPEN (unit=1, file='classwat.out', status='OLD',
	1	form='FORMATTED', readonly)
	READ (1, 1000)
1000	FORMAT (a)
	READ (1, 1000)
	READ (1, 1000) line
	n = 0

	DO WHILE (.TRUE.)
	  READ (1, 1000, end=9) line
	  IF (line(18:20) .EQ. '   ') THEN
	    hist(n) = hist(n) + 1
	    n = 0
	    READ (1, 1000) line
	  ELSE
	    n = n + 1
	  endIF
	endDO

9	CLOSE (unit=1)

	WRITE (6, 1003) (i, i=0,6)
1003	FORMAT (7i5)
	WRITE (6, 1003) (hist(i), i=0,6)
	end