program def lbleqrnk
*! NJC 1.0.0 6 August 1999 
	version 6.0
	syntax varname(numeric) [, Suffix(str) ] 
	tempname vlbl 
	if "`suffix'" == "" { local suffix "=" } 
	local i = 1
	local nties = 0 
	while `i' <= _N { 
		qui count if `varlist' == `i' 
		if r(N) > 1 { /* there are tied ranks */ 
			label def `vlbl' `i' "`i'`suffix'", add 
			local nties = `nties' + 1 
		}	
		local i = `i' + 1
	}
	if `nties' { label val `varlist' `vlbl' } 
end