SCM

SCM Repository

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

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

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

revision 1058, Tue Nov 22 23:27:42 2005 UTC revision 1059, Wed Nov 23 22:20:13 2005 UTC
# Line 1  Line 1 
1  #include "dense.h"  #include "dense.h"
2  #include "Mutils.h"  #include "chm_common.h"
3    
4  /**  /**
5   * Perform a left cyclic shift of columns j to k in the upper triangular   * Perform a left cyclic shift of columns j to k in the upper triangular
# Line 244  Line 244 
244      UNPROTECT(2);      UNPROTECT(2);
245      return ans;      return ans;
246  }  }
247    
248    SEXP dense_to_Csparse(SEXP x)
249    {
250        cholmod_dense *chxd = as_cholmod_dense(x);
251        cholmod_sparse *chxs = cholmod_dense_to_sparse(chxd, 1, &c);
252    
253        free(chxd);
254        return chm_sparse_to_SEXP(chxs, 1);
255    }

Legend:
Removed from v.1058  
changed lines
  Added in v.1059

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