*! Version 3.0.1 NJC/RG 27 September 1999 (STB-52 dm72.1)
* 3.0.0  NJC after RG 9 August 1999
program define _granku
	version 6
	syntax newvarname =/exp [if] [in] [, BY(varlist)]

	tempvar GRV GRr
	quietly {
		gen double `GRV' = `exp' `if' `in'

		if "`by'" == "" {
			sort `GRV'
			gen `typlist' `varlist' = _n if `GRV' != .
			label var `varlist' "Unique rank of `exp'"
			exit
		}

		sort `by' `GRV'
		by `by': gen `typlist' `varlist' = _n if `GRV' != .
		label var `varlist' "Unique rank of `exp' by `by'"
	}
end