*! version 1.0.0  04/09/92
program define nlpred
	if "$S_E_cmd"!="nl" { error 301 } 
	local varlist "req new max(1)"
	local if "opt"
	local in "opt"
	local options "Resid"
	tempvar new
	parse "`*'"
	rename `varlist' `new'
	quietly {
		nl$S_E_fcn `new' $S_E_fvl , $S_E_fops
		if "`in'"!="" | "`if'"!="" { 
			tempvar touse
			gen byte `touse'=1 `if' `in'
			replace `new' = . if `touse'!=1
		}
		if $S_E_lts { 
			replace `new'=(`new'-$S_E_lts)*$S_E_gm2
		}
		if "`resid'"!="" { 
			replace `new' = $S_E_depv - `new'
		}
	}
	rename `new' `varlist'
end