Common Bug 5

	SUBROUTINE getphi(phi)
$$INCLUDE 'C$INC:BCS.INC'
$$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC'
	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(indmuo+5)

	RETURN
	END

This routine has a bug.

Why?

BACK to YBOS , Bug 6