/* TeX embedding for unit string */
comunit(ustr)
{
        if (argc < 1) ustr = "";

        ustr = (strlen(ustr) > 0) ? sprintf("$\eunits{%s}$", ustr) : ustr;

        return(ustr);
}