SCM

SCM Repository

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

Diff of /pkg/src/dgCMatrix.c

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

revision 487, Wed Feb 2 19:02:36 2005 UTC revision 488, Wed Feb 2 19:11:51 2005 UTC
# Line 1  Line 1 
1  #include "dgCMatrix.h"  #include "dgCMatrix.h"
2    
3  SEXP csc_validate(SEXP x)  SEXP dgCMatrix_validate(SEXP x)
4  {  {
5      SEXP pslot = GET_SLOT(x, Matrix_pSym),      SEXP pslot = GET_SLOT(x, Matrix_pSym),
6          islot = GET_SLOT(x, Matrix_iSym),          islot = GET_SLOT(x, Matrix_iSym),
# Line 146  Line 146 
146      SET_SLOT(ans, Matrix_pSym, allocVector(INTSXP, nrow + 1));      SET_SLOT(ans, Matrix_pSym, allocVector(INTSXP, nrow + 1));
147      ansp = INTEGER(GET_SLOT(ans, Matrix_pSym));      ansp = INTEGER(GET_SLOT(ans, Matrix_pSym));
148      itmp = Calloc(ntrip, int); xtmp = Calloc(ntrip, double);      itmp = Calloc(ntrip, int); xtmp = Calloc(ntrip, double);
149      dgTMatrix_to_dgCMatrix(nrow, nrow, ntrip, iVal, jVal, xVal,      triplet_to_col(nrow, nrow, ntrip, iVal, jVal, xVal,
150                     ansp, itmp, xtmp);                     ansp, itmp, xtmp);
151      nnz = ansp[nrow];      nnz = ansp[nrow];
152      SET_SLOT(ans, Matrix_uploSym, ScalarString(mkChar("L")));      SET_SLOT(ans, Matrix_uploSym, ScalarString(mkChar("L")));

Legend:
Removed from v.487  
changed lines
  Added in v.488

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