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

