The R Project SVN R-packages

Rev

Rev 4456 | Rev 4529 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4456 Rev 4500
Line 138... Line 138...
138 
			      GET_SLOT(x, Matrix_DimNamesSym));
 138 
			      GET_SLOT(x, Matrix_DimNamesSym));
139 
}
 139 
}
140 
 
 140 
 
141 
SEXP Csparse_transpose(SEXP x, SEXP tri)
 141 
SEXP Csparse_transpose(SEXP x, SEXP tri)
142 
{
 142 
{
- 
 
 143 
    /* TODO: lgCMatrix & igC* currently go via double prec. cholmod -
- 
 
 144 
     *       since cholmod (& cs) lacks sparse 'int' matrices */
143 
    cholmod_sparse *chx = as_cholmod_sparse(x);
 145 
    cholmod_sparse *chx = as_cholmod_sparse(x);
144 
    int Rkind = (chx->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0;
 146 
    int Rkind = (chx->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0;
145 
    cholmod_sparse *chxt = cholmod_transpose(chx, (int) chx->xtype, &c);
 147 
    cholmod_sparse *chxt = cholmod_transpose(chx, (int) chx->xtype, &c);
146 
    SEXP dn = PROTECT(duplicate(GET_SLOT(x, Matrix_DimNamesSym))), tmp;
 148 
    SEXP dn = PROTECT(duplicate(GET_SLOT(x, Matrix_DimNamesSym))), tmp;
147 
    int tr = asLogical(tri);
 149 
    int tr = asLogical(tri);