Common Bug 5, FIXED

	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

BLOCAT is case sensitive. The bank `MUON' exists, but not the bank `muon'.

BACK to YBOS , Look Again, Bug 6