Common Bug 4, FIXED

	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(indmuo+phioff)	! USE DATA INDEX, NOT BANK INDEX

	RETURN
	END

BLOCAT returns two indices. The first is for the bank itself, and is useful for some kinds of bank manipulations. The second is where the data is stored. Do I need to point out what happens when you misread your notes and use the wrong one?

BACK to YBOS , Look Again, Bug 5