SCM

SCM Repository

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

Diff of /pkg/src/Csparse.c

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

revision 1141, Thu Jan 12 03:02:46 2006 UTC revision 1218, Mon Feb 20 22:47:20 2006 UTC
# Line 1  Line 1 
1                          /* Sparse matrices in compress column-oriented form */                          /* Sparse matrices in compressed column-oriented form */
2  #include "Csparse.h"  #include "Csparse.h"
3  #include "chm_common.h"  #include "chm_common.h"
4    
# Line 118  Line 118 
118      return chm_sparse_to_SEXP(chcp, 1);      return chm_sparse_to_SEXP(chcp, 1);
119  }  }
120    
121    SEXP Csparse_horzcat(SEXP x, SEXP y)
122    {
123        cholmod_sparse *chx = as_cholmod_sparse(x),
124            *chy = as_cholmod_sparse(y), *ans;
125    
126        ans = cholmod_horzcat(chx, chy, 1, &c);
127        Free(chx); Free(chy);
128        return chm_sparse_to_SEXP(ans, 1);
129    }
130    
131    SEXP Csparse_vertcat(SEXP x, SEXP y)
132    {
133        cholmod_sparse *chx = as_cholmod_sparse(x),
134            *chy = as_cholmod_sparse(y), *ans;
135    
136        ans = cholmod_vertcat(chx, chy, 1, &c);
137        Free(chx); Free(chy);
138        return chm_sparse_to_SEXP(ans, 1);
139    }

Legend:
Removed from v.1141  
changed lines
  Added in v.1218

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge