SCM Repository
Diff of /pkg/src/Csparse.c
Parent Directory
| 
Revision Log
| 
Patch
| revision 1893, Thu Jun 14 10:46:10 2007 UTC | revision 1921, Sat Jun 23 18:08:17 2007 UTC | |
|---|---|---|
| # | Line 140 | Line 140 |
| 140 | ||
| 141 | SEXP Csparse_transpose(SEXP x, SEXP tri) | SEXP Csparse_transpose(SEXP x, SEXP tri) |
| 142 | { | { |
| 143 | /* TODO: lgCMatrix & igC* currently go via double prec. cholmod - | |
| 144 | * since cholmod (& cs) lacks sparse 'int' matrices */ | |
| 145 | cholmod_sparse *chx = as_cholmod_sparse(x); | cholmod_sparse *chx = as_cholmod_sparse(x); |
| 146 | int Rkind = (chx->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0; | int Rkind = (chx->xtype != CHOLMOD_PATTERN) ? Real_kind(x) : 0; |
| 147 | cholmod_sparse *chxt = cholmod_transpose(chx, (int) chx->xtype, &c); | cholmod_sparse *chxt = cholmod_transpose(chx, (int) chx->xtype, &c); |
|
||||||||
| R-Forge@R-project.org | ViewVC Help |
| Powered by ViewVC 1.0.0 |
