\1//CheckColumn
\1if (\4 != 1)
\1{
\1    Scierror(999, _("%s: Wrong size for input argument #%d: A column vector expected.\n"), fname, \2);
\1    return 1;
\1}

