SCM

SCM Repository

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

Diff of /pkg/src/Tsparse.c

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

revision 2222, Fri Jul 18 10:00:25 2008 UTC revision 2223, Fri Jul 18 23:04:48 2008 UTC
# Line 33  Line 33 
33    
34  SEXP Tsparse_to_Csparse(SEXP x, SEXP tri)  SEXP Tsparse_to_Csparse(SEXP x, SEXP tri)
35  {  {
36      CHM_TR chxt = AS_CHM_TR(x);      CHM_TR chxt = AS_CHM_TR__(x); /* << should *preserve*  diag = "U" ! */
37      CHM_SP chxs = cholmod_triplet_to_sparse(chxt, chxt->nnz, &c);      CHM_SP chxs = cholmod_triplet_to_sparse(chxt, chxt->nnz, &c);
38      int tr = asLogical(tri);      int tr = asLogical(tri);
39      int Rkind = (chxt->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0;      int Rkind = (chxt->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0;
# Line 48  Line 48 
48  /* speedup utility, needed e.g. after subsetting: */  /* speedup utility, needed e.g. after subsetting: */
49  SEXP Tsparse_to_tCsparse(SEXP x, SEXP uplo, SEXP diag)  SEXP Tsparse_to_tCsparse(SEXP x, SEXP uplo, SEXP diag)
50  {  {
51      CHM_TR chxt = AS_CHM_TR(x);      CHM_TR chxt = AS_CHM_TR__(x);
52      CHM_SP chxs = cholmod_triplet_to_sparse(chxt, chxt->nnz, &c);      CHM_SP chxs = cholmod_triplet_to_sparse(chxt, chxt->nnz, &c);
53      int Rkind = (chxt->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0;      int Rkind = (chxt->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0;
54      R_CheckStack();      R_CheckStack();

Legend:
Removed from v.2222  
changed lines
  Added in v.2223

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