SCM

SCM Repository

[matrix] Diff of /pkg/src/dtTMatrix.c
ViewVC logotype

Diff of /pkg/src/dtTMatrix.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1547, Mon Sep 11 14:49:39 2006 UTC revision 1548, Mon Sep 11 22:13:07 2006 UTC
# Line 31  Line 31 
31  {  {
32      cholmod_triplet *tx = as_cholmod_triplet(x);      cholmod_triplet *tx = as_cholmod_triplet(x);
33      cholmod_sparse *cx = cholmod_triplet_to_sparse(tx, tx->nzmax, &c);      cholmod_sparse *cx = cholmod_triplet_to_sparse(tx, tx->nzmax, &c);
34    /* Should generalize this, also for ltT -> lgC ... .. or drop completely
35     * FIXME
36     * int Rkind = (tx->xtype == CHOLMOD_REAL) ? Real_kind(x) : 0;
37     */
38      Free(tx);      Free(tx);
39                                  /* chm_sparse_to_SEXP cholmod_frees cx */                                  /* chm_sparse_to_SEXP cholmod_frees cx */
40      return chm_sparse_to_SEXP(cx, 1, 0, "",      return chm_sparse_to_SEXP(cx, 1, 0, /*Rkind*/ 0, "",
41                                GET_SLOT(x, Matrix_DimNamesSym));                                GET_SLOT(x, Matrix_DimNamesSym));
42  }  }
43    

Legend:
Removed from v.1547  
changed lines
  Added in v.1548

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge