*! Update of _glmfl (sg16.3), PR 14-Feb-93.  STB-18: sg22
program define _jprglfl /* return description of family and link */
	version 3.1
	local f "`1'"
	local l "`2'"
	local pow `3'
	local bernoul `4'
	local k `5'
	global S_1 " distribution"
	global S_2 " link"

	if `bernoul' { local b "Bernoulli" }
	else local b "Binomial"

	if "`f'"=="gau" { global S_1 "Gaussian (normal)$S_1" }
	else if "`f'"=="bin" { global S_1 "`b'$S_1" }
	else if "`f'"=="poi" { global S_1 "Poisson$S_1" }
	else if "`f'"=="gam" { global S_1 "Gamma$S_1" }
	else if "`f'"=="ivg" { global S_1 "Inverse Gaussian$S_1" }
	else if "`f'"=="nb" { global S_1 "Negative Binomial$S_1" }

	if "`l'"=="pow" {
		if "`pow'"=="1" { global S_2 "identity$S_2" }
		else if "`pow'"=="0" { global S_2 "log$S_2" }
		else global S_2 "power$S_2 (power = `pow')"
	}
	if "`l'"=="opo" {
		if "`pow'"=="1" { global S_2 "identity odds-power$S_2" }
		else if "`pow'"=="0" { global S_2 "logit$S_2" }
		else global S_2 "odds-power$S_2 (power = `pow')"
	}
	else if "`l'"=="l" { global S_2 "logit$S_2" }
	else if "`l'"=="p" { global S_2 "probit$S_2" }
	else if "`l'"=="c" { global S_2 "cloglog$S_2" }
	else if "`l'"=="nb" { global S_2 "$S_2 ln(mu/(mu+k)), k = `k'" }
end