*! version 3.0.0  NJC after RG 9 August 1999   [STB-51: dm72]
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' "Rank of `exp'"
			exit
		}

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