*! 1.1.0 NJC 2 June 2004
*! 1.0.0 NJC 17 May 2004
program _gadjl
	version 8.0
	syntax newvarname =/exp [if] [in] ///
		[, BY(varlist) FACTor(numlist max=1 >=0) ]
	quietly {
		tempvar touse group
		tempname l
		mark `touse' `if' `in'
		sort `touse' `by'
		by `touse' `by' : gen long `group' = _n == 1 if `touse'
		replace `group' = sum(`group')
		local max = `group'[_N]
		gen double `varlist' = .
		if "`factor'" == "" local factor = 1.5

		forval i = 1/`max' {
			su `exp' if `group' == `i', detail
			scalar `l' = r(p25) - `factor' * (r(p75) - r(p25))
			su `exp' if `group' == `i' & `exp' >= `l', meanonly
			replace `varlist' = r(min) if `group' == `i'
		}
	}
end