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 2223, Fri Jul 18 23:04:48 2008 UTC revision 2235, Wed Jul 23 10:24:17 2008 UTC
# Line 40  Line 40 
40              }              }
41      }      }
42      if (!sorted) {      if (!sorted) {
43          CHM_SP chx = AS_CHM_SP__(x);          CHM_SP chx = (CHM_SP) alloca(sizeof(cholmod_sparse));
44          R_CheckStack();          R_CheckStack();
45            as_cholmod_sparse(chx, x, FALSE, TRUE); /* includes cholmod_sort() ! */
46            /* as chx = AS_CHM_SP__(x)  but  ^^^^  sorting x in_place (no copying)*/
47    
         cholmod_sort(chx, &c);  
48          /* Now re-check that row indices are *strictly* increasing          /* Now re-check that row indices are *strictly* increasing
49           * (and not just increasing) within each column : */           * (and not just increasing) within each column : */
50          for (j = 0; j < ncol; j++) {          for (j = 0; j < ncol; j++) {

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

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