*! sortd -- sort in descending order                    (dm22: STB-22)
*! version 1.0     David Mabb     October 12, 1994
program define sortd
version 3.1
quietly {
        local varlist "req ex"
	local in "opt pre"
        parse "`*'"
        sort `varlist' `in'
        tempvar tmp
        gen long `tmp' = -_n
        sort `tmp' `in'
}
end