program mat2html
local nr = rowsof(`1')
local nc = colsof(`1')
local rn `: rownames `1''
local cn `: colnames `1''
tempname f
qui file open `f' using `2', write text replace
file write `f' "" _n
file write `f' "" _n
file write `f' "" _n
file write `f' `""' _n
file write `f' "" _n
file write `f' "" _n
file write `f' `""' _n
* write column names
file write `f' "" _n
file write `f' " | " _n
forv j = 1/`nc' {
local s `: word `j' of `cn''
file write `f' `"`s' | "' _n
}
file write `f' "
" _n
* write row names & data
forv i = 1/`nr' {
file write `f' "" _n
local s `: word `i' of `rn''
file write `f' `"| `s' | "' _n
forv j = 1/`nc' {
file write `f' `"`=el(`1',`i',`j')' | "' _n
}
file write `f' "
" _n
}
file write `f' "
" _n
file write `f' "" _n
file write `f' "" _n
file close `f'
end