*! version 3.0.1  1/13/93.  STB-18: sg22
program define _glmrpt
	version 3.1
	local options "LEvel(int $S_level) EForm"
	parse "`*'"
	if "$S_E_cmd"!="glmr" { error 301 } 
	if `level'<10 | `level'>99 { 
		di in red "level() must be between 10 and 99"
		exit 198
	}

	#delimit ;
	di _n in gr "Residual df  = " in ye %9.0g $S_E_rdf
		_col(57) in gr "No. of obs = "  in ye %9.0g $S_E_nobs ;
	di in gr "Pearson X2   = " in ye %9.0g $S_E_chi2 in gr 
		_col(57) "Deviance   = "  in ye %9.0g $S_E_dev ;
	di in gr "Dispersion   = " in ye %9.0g $S_E_dc in gr
		_col(57) "Dispersion = "  in ye %9.0g $S_E_dd ;
	#delimit cr

	di in gr _n "$S_E_flo" /* family, link, offset */
	if "`eform'"!="" {
		_jprglef $S_E_fam "$S_E_link"
		mat mlout, level(`level') $S_1
	}
	else	mat mlout, level(`level')
	if "$S_E_msg1"!="" {
		di in gr "$S_E_msg1"
	}
	if "$S_E_msg2"!="" {
		di in gr "$S_E_msg2"
	}
	if "$S_E_msg3"!="" {
		di in gr "$S_E_msg3"
	}
end