*! version 2.0.1  05june1995
program define _grank2
        version 4.0
        local varlist "req new max(1)"
        local exp "req nopre"
        local if "opt"
        local in "opt"
        parse "`*'"
        tempvar GRV GRr
        quietly {
                gen `GRV' = `exp' `if' `in'
                sort `GRV'
                gen long `GRr' = _n if `GRV'~=.
*               replace `GRr' = `GRr'[_n-1] if `GRV'~=. & `GRV'==`GRV'[_n-1]
*               by `GRV': replace `varlist' = `GRr'+(_N-1)/2
                by `GRV': replace `varlist' = `GRr'
                label var `varlist' "Rank of `exp'"
        }
end