The R Project SVN R-packages

Rev

Rev 1787 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1787 Rev 1862
Line 43... Line 43...
43 
	ans = PROTECT(NEW_OBJECT(MAKE_CLASS("ltCMatrix"))),
 43 
	ans = PROTECT(NEW_OBJECT(MAKE_CLASS("ltCMatrix"))),
44 
	xdn = GET_SLOT(x, Matrix_DimNamesSym);
 44 
	xdn = GET_SLOT(x, Matrix_DimNamesSym);
45 
    SEXP adn = ALLOC_SLOT(ans, Matrix_DimNamesSym, VECSXP, 2);
 45 
    SEXP adn = ALLOC_SLOT(ans, Matrix_DimNamesSym, VECSXP, 2);
46 
    int *adims = INTEGER(ALLOC_SLOT(ans, Matrix_DimSym, INTSXP, 2)),
 46 
    int *adims = INTEGER(ALLOC_SLOT(ans, Matrix_DimSym, INTSXP, 2)),
47 
	*xdims = INTEGER(GET_SLOT(x, Matrix_DimSym)),
 47 
	*xdims = INTEGER(GET_SLOT(x, Matrix_DimSym)),
48 
	up = CHAR(asChar(GET_SLOT(x, Matrix_uploSym)))[0] == 'U';
 48 
	up = uplo_P(x)[0] == 'U';
49 
    int m = xdims[0], n = xdims[1], nz = length(Xi);
 49 
    int m = xdims[0], n = xdims[1], nz = length(Xi);
50 
    int *xj = expand_cmprPt(n, INTEGER(GET_SLOT(x, Matrix_pSym)),
 50 
    int *xj = expand_cmprPt(n, INTEGER(GET_SLOT(x, Matrix_pSym)),
51 
			    Calloc(nz, int));
 51 
			    Calloc(nz, int));
52 
 
 52 
 
53 
    adims[0] = n; adims[1] = m;
 53 
    adims[0] = n; adims[1] = m;