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.