/* evaluates correlation/covariance routine */
_acorcov(funct, funcf, swin, time, norm, dwin)
{
        local func, cmd;

        if (time)
        {
                func = funct;
        }
        else
        {
                func = funcf;
        }
        if (norm == 0)
        {
                cmd = sprintf("%s(%s)", func, swin);
        }
        else
        {
                cmd = sprintf("%s(%s, %d)", func, swin, norm);
        }
        eval(sprintf("Setwf(%s, '%s')", dwin, cmd));
}