*! Log likelihood for confa: linear form; part of confa suite; 23 Apr 2009
program define confa_lfm

  args lnf $CONFA_args
  * $CONFA_args contains the names of the equations, but
  * we need the variable names
  gettoken lnf allthenames : 0

  tempvar lnl
  qui g double `lnl' = .

  mata: CONFA_NormalLKHDrMiss( "`allthenames'", "`lnl'")

  qui replace `lnf' = `lnl'

  if $CONFA_loglevel > 3 li `lnl'

end

exit