*! version 1.0.1  30-Apr-92 by JPR
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 "`resid'"!="" {
			if $S_E_lts {
				replace `new'=ln(($S_E_depv-$S_E_lnl2)/ /*
				*/ (`new'-$S_E_lnl2))
			}
			else replace `new'=$S_E_depv-`new'
		}
	}
	rename `new' `varlist'
end