Common Bug 11, FIXED

	SUBROUTINE outp
$$IMPLICIT
$$INCLUDE 'C$INC:BCS.INC'
$$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC'
	INTEGER ind, index	! bank and data index of TAUS
	INTEGER xind, xindex	! bank and data index of MUON
	INTEGER blocat	! YBOS named bank finder
	INTEGER status	! error return status
C.................................
	status = blocat(iw, 'TAUS', 1, ind, index)
	IF(status .NE. yesucc) RETURN

	CALL ctcdel
	CALL svxdel
	status = blocat(iw, 'TAUS', 1, ind, index)
	status = blocat(iw, 'MUON', 1, xind, xindex)

	WRITE(*,1000)iw(index+3)*iw(xindex+3)
1000	FORMAT(' # hits in tau times muon = ',I7)

	RETURN
	END

Ok, this was a dirty trick. No, you can't find the bug in this routine, because the problem is somewhere else. Somebody else's routine overwrote part of the TAUS bank, and it blew up in your face.

BACK to YBOS , Look Again,