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 1352, Mon Aug 7 18:31:12 2006 UTC revision 1353, Tue Aug 8 14:54:12 2006 UTC
# Line 103  Line 103 
103          : as_cholmod_sparse(x);          : as_cholmod_sparse(x);
104    
105      if (!tr)      if (!tr)
106          chxt = cholmod_transpose(chx, (int) chx->xtype, &c);          chxt = cholmod_transpose(chx, chx->xtype, &c);
107      chcp = cholmod_aat((!tr) ? chxt : chx, (int *) NULL, 0, chx->xtype, &c);      chcp = cholmod_aat((!tr) ? chxt : chx, (int *) NULL, 0, chx->xtype, &c);
108      if(!chcp)      if(!chcp)
109          error("Csparse_crossprod(): error return from cholmod_aat()");          error("Csparse_crossprod(): error return from cholmod_aat()");
110      cholmod_band_inplace((tr) ? -(chcp->nrow) : 0, (tr) ? 0 : chcp->ncol,      cholmod_band_inplace((tr) ? -(chcp->nrow) : 0, (tr) ? 0 : chcp->ncol,
111                           chcp->xtype, chcp, &c);                           chcp->xtype, chcp, &c);
112      chcp->stype = 1;      chcp->stype = (tr) ? -1 : 1;
113      if (trip) {      if (trip) {
114          cholmod_free_sparse(&chx, &c);          cholmod_free_sparse(&chx, &c);
115          Free(cht);          Free(cht);

Legend:
Removed from v.1352  
changed lines
  Added in v.1353

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