The R Project SVN R-packages

Rev

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

Rev 4530 Rev 4558
Line 39... Line 39...
39 
 * along the lines in ./TMatrix_as.c  ..... or drop completely : */
 39 
 * along the lines in ./TMatrix_as.c  ..... or drop completely : */
40 
SEXP dtTMatrix_as_dgCMatrix(SEXP x)
 40 
SEXP dtTMatrix_as_dgCMatrix(SEXP x)
41 
{
 41 
{
42 
    CHM_TR tx = AS_CHM_TR(x);
 42 
    CHM_TR tx = AS_CHM_TR(x);
43 
    CHM_SP cx = cholmod_triplet_to_sparse(tx, tx->nzmax, &c);
 43 
    CHM_SP cx = cholmod_triplet_to_sparse(tx, tx->nzmax, &c);
- 
 
 44 
    R_CheckStack();
44 
 
 45 
 
45 
 /* FIXME
 46 
 /* FIXME
46 
 * int Rkind = (tx->xtype == CHOLMOD_REAL) ? Real_kind(x) : 0;
 47 
 * int Rkind = (tx->xtype == CHOLMOD_REAL) ? Real_kind(x) : 0;
47 
 */
 48 
 */
48 
    return chm_sparse_to_SEXP(cx, 1/*do_free*/, 0, /*Rkind*/ 0, "",
 49 
    return chm_sparse_to_SEXP(cx, 1/*do_free*/, 0, /*Rkind*/ 0, "",