*! version 3.0.0   01/19/93   STB-18 sg22
program define _glmmapf /* {tocode | fromcode} <code> <ignored> ... */
	version 3.1

	if "`1'"=="fromcode" { 
		di in red "_glmmapf fromcode not yet implemented"
		exit 9000
	}

	global S_1
	local f = lower(trim("`2'"))
	local l = length("`f'")
	if "`f'"=="" 					{ global S_1 "gau" }
	else if "`f'"==substr("binomial",1,`l') 	{ global S_1 "bin" }
	else if "`f'"==substr("bernoulli",1,`l')	{ global S_1 "bin" }
	else if "`f'"==substr("gamma",1,max(`l',3)) 	{ global S_1 "gam" }
	else if "`f'"==substr("gaussian",1,max(`l',3)) 	{ global S_1 "gau" }
	else if "`f'"==substr("igaussian",1,max(`l',2)) { global S_1 "ivg" }
	else if "`f'"==substr("inormal",1,max(`l',2)) 	{ global S_1 "ivg" }
	else if "`f'"=="ivg" 				{ global S_1 "`ivg'" }
	else if "`f'"==substr("normal",1,`l') 		{ global S_1 "gau" }
	else if "`f'"==substr("nbinomial",1,max(2,`l')) { global S_1 "nb" }
	else if "`f'"==substr("poisson",1,`l') 		{ global S_1 "poi" }
	else { 
		di in red "unknown family() `f'"
		exit 198
	}
	if "$S_1"=="bin" { local last 4 }
	else 	local last 3
	if "``last''"!="" { 
		di in red "family() invalid"
		exit 198
	}
end
exit

	Map user-specified family `f' to internal family code `fam'.
	(Capitalization indicates minimum abbreviations.)

					mapped to
		Allowed			(fam) 
		-----------------------------------
		<nothing>		gau
		Binomial		bin
		Bernoulli		bin
		GAMma			gam
		GAUssian		gau
		IGaussian		ivg
		INormal			ivg
		IVG			ivg	(for backwards capatibility)
		Normal			gau
		NBinomial		nb
		Poisson			poi