*! version 1.6.0 MLB 12Sep2012
program propcnspoisson_lf
	version 8.2
	args lnf unconstrained constrained lambda
	tempvar theta

	quietly{
		gen double `theta' = `unconstrained' + (`lambda'*`constrained')
		replace `lnf' = $ML_y1*`theta' - exp(`theta') - lngamma($ML_y1 +1)
	}
end