SCM

SCM Repository

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

Diff of /pkg/src/dense.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 249  Line 249 
249  {  {
250      cholmod_dense *chxd = as_cholmod_dense(PROTECT(mMatrix_as_dgeMatrix(x)));      cholmod_dense *chxd = as_cholmod_dense(PROTECT(mMatrix_as_dgeMatrix(x)));
251      cholmod_sparse *chxs = cholmod_dense_to_sparse(chxd, 1, &c);      cholmod_sparse *chxs = cholmod_dense_to_sparse(chxd, 1, &c);
252        int Rkind = 0; /* FIXME : Real_kind(x) does not work:
253                        * (chxd->xtype == CHOLMOD_REAL) ? Real_kind(x) : 0; */
254    
255      Free(chxd); UNPROTECT(1);      Free(chxd); UNPROTECT(1);
256      return chm_sparse_to_SEXP(chxs, 1, 0, "",      return chm_sparse_to_SEXP(chxs, 1, 0, Rkind, "",
257                                isMatrix(x) ? getAttrib(x, R_DimNamesSymbol)                                isMatrix(x) ? getAttrib(x, R_DimNamesSymbol)
258                                : GET_SLOT(x, Matrix_DimNamesSym));                                : GET_SLOT(x, Matrix_DimNamesSym));
259  }  }

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