*! version 1.0.0  18Jan93 Royston; STB-11 sg1.4
program define nlgom3
	version 3.0
        if "`1'"=="?" {
                local depv "$S_E_depv"
                nlgom4 ? "`2'"
                mac def S_2 "3-parameter Gompertz function, `depv'=b1*exp(-exp(-b2*(`2'-b3)))"
                mac def S_1 "b1 b2 b3"
                exit
        }
        replace `1'=$b1*exp(-exp(-$b2*(`2'-$b3)))
end