Displaying 1 result from an estimated 1 matches for "vntout".
Did you mean:
ntout
2004 Jun 22
3
[Q] GET_DIM() crash on Windows only
...dimension object\n");
#endif
if (nX == 2)
{
int *piXdim = INTEGER_POINTER(vntXdim);
*nrow = piXdim[0];
*ncol = piXdim[1];
}
else
{
*nrow = -1;
*ncol = -1;
}
UNPROTECT(1);
return nX;
}
SEXP getdim(SEXP vntX)
{
SEXP vntOut;
int m, n;
#ifdef DEBUG_GETDIM
REprintf("In getdim(x)...\n");
#endif
if (GetMatrixDimen(vntX, &m, &n) != 2)
{
error("'x' is not a two dimensional matrix");
/*NOTREACHED*/
}
#ifdef DEBUG_GETDIM
REprintf("\tm = %d\n&q...