SCM

SCM Repository

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

Diff of /pkg/Matrix/src/Csparse.c

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

revision 928, Mon Sep 19 21:10:59 2005 UTC revision 930, Mon Sep 19 21:29:37 2005 UTC
# Line 107  Line 107 
107          chxt = cholmod_transpose(chx, (int) chx->xtype, &c);          chxt = cholmod_transpose(chx, (int) chx->xtype, &c);
108      chcp = cholmod_aat((!tr) ? chxt : chx, (int *) NULL, 0, chx->xtype, &c);      chcp = cholmod_aat((!tr) ? chxt : chx, (int *) NULL, 0, chx->xtype, &c);
109    
110      Free(trip ? cht : chx);      if (trip) {
111      if (trip) cholmod_free_sparse(&chx, &c);          cholmod_free_sparse(&chx, &c);
112            Free(cht);
113        } else {
114            Free(chx);
115        }
116      if (!tr) cholmod_free_sparse(&chxt, &c);      if (!tr) cholmod_free_sparse(&chxt, &c);
117      return chm_sparse_to_SEXP(chcp, 1);      return chm_sparse_to_SEXP(chcp, 1);
118  #else  #else
119      error("General transpose requires CHOLMOD");      error("General crossproduct requires CHOLMOD");
120      return R_NilValue;          /* -Wall */      return R_NilValue;          /* -Wall */
121  #endif  /* USE_CHOLMOD */  #endif  /* USE_CHOLMOD */
122  }  }

Legend:
Removed from v.928  
changed lines
  Added in v.930

root@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