Common Bug 4

	SUBROUTINE getphi(phi)
$$INCLUDE 'C$INC:BCS.INC'
$$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC'
	INTEGER phioff	! offset to phi information in MUON data
	PARAMETER (phioff = 5)
	REAL phi	! phi of muon
	INTEGER blocat	! YBOS named bank finder
	INTEGER status	! error return status
C.................................
	phi = -9999
	status = blocat(iw,'MUON',1,ind,indmuo)
	IF(status .NE. yesucc) RETURN
	phi = rw(ind+phioff)

	RETURN
	END

This routine has a bug.

Why?

BACK to YBOS , Bug 5