Common Bug 1

	SUBROUTINE getcur(curve)
$$INCLUDE 'C$INC:BCS.INC'
$$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC'
	REAL curve	! curvature of muon
	INTEGER blocat	! YBOS named bank finder
	INTEGER status	! error return status
C.................................
	curve = 0.0
	status = blocat(iw,'MUON',1,ind,indmuo)
	IF(rw(indmuo+7) .NE. 0) curve = .45/rw(indmuo+7)

	RETURN
	END

This routine has a bug.

Why?

BACK to YBOS , Bug 2