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 2298, Fri Oct 17 13:45:12 2008 UTC revision 2299, Fri Oct 17 16:07:38 2008 UTC
# Line 34  Line 34 
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); /* << should *preserve*  diag = "U" ! */      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_l_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;
40      R_CheckStack();      R_CheckStack();
# Line 49  Line 49 
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_l_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();
55    

Legend:
Removed from v.2298  
changed lines
  Added in v.2299

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