program define _glmfl           STB-16  sg16.3
if ("$S_E_fam"=="gau" | "$S_E_fam"=="")  {mac def S_1 "Gaussian distribution"}
if ("$S_E_fam"=="bin" & "$S_E_grp"=="") {mac def S_1 "Bernoulli distribution"}
if ("$S_E_fam"=="bin" & "$S_E_grp"~="") {mac def S_1 "Binomial distribution"}
if "$S_E_fam"=="poi" {mac def S_1 "Poisson distribution"}
if "$S_E_fam"=="gam" {mac def S_1 "Gamma distribution"}
if "$S_E_fam"=="ivg" {mac def S_1 "Inverse Gaussian distribution"}
if "$S_E_fam"=="nb" {mac def S_1 "Negative Binomial distribution"}
if "$S_E_link"=="pow" {mac def S_2 "Power link, power = `1'"}
if "$S_E_link"=="l" {mac def S_2 "Logit link"}
if "$S_E_link"=="p" {mac def S_2 "Probit link"}
if "$S_E_link"=="c" {mac def S_2 "Cloglog link"}
if "$S_E_link"=="log" {mac def S_2 "Log link"}
if "$S_E_link"=="id" {mac def S_2 "Identity link"}
if "$S_E_link"=="" {mac def S_2 "Canonical link"}
if "$S_E_link"=="default" {mac def S_2 "Canonical link"}

end