program sreg 
log using $release,text append name($release)
di "mincellsize: $mincellsize
matrix eb=e(b)
matrix ev=e(V)
local depvars : rownames(ev)

forvalues i=1/`e(df_m)' {
  local var : word `i' of `depvars'
  di "`i' `var'"
  local stuff = substr("`var'",1,2)
  if "0b"=="`stuff'" continue
  local stuff : subinstr local var "." "",count(local numpers)
  if `numpers'>0 {
    capture count if `var'==0&e(sample)
    scalar numzer = r(N)
    capture count if `var'!=0&e(sample)
    scalar numnot = r(N) 
    if numzer<$mincellsize | numnot<$mincellsize {
      di "`var' censored'"
      matrix eb[1,`i'] = .s
      local _cons=colnumb(eb,"_cons")
      matrix eb[1,`_cons'] = .s
      matrix ev[`_cons',`_cons'] = .s
    }
  } 
}
_coef_table ,bmatrix(eb) vmatrix(ev)
di ".s indicates fewer than " $mincellsize " records" ///
   " (or secondary suppression of the constant)."
log close release
end