SCM

SCM Repository

[matrix] Diff of /branches/Matrix-mer2/src/dgCMatrix.c
ViewVC logotype

Diff of /branches/Matrix-mer2/src/dgCMatrix.c

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

revision 678, Wed Mar 30 14:27:40 2005 UTC revision 679, Wed Mar 30 14:42:36 2005 UTC
# Line 197  Line 197 
197      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dgTMatrix"))),      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dgTMatrix"))),
198          indP = GET_SLOT(x, indSym),          indP = GET_SLOT(x, indSym),
199          pP = GET_SLOT(x, Matrix_pSym);          pP = GET_SLOT(x, Matrix_pSym);
200      int npt = length(pP);      int npt = length(pP) - 1;
201    
202      SET_SLOT(ans, Matrix_DimSym, duplicate(GET_SLOT(x, Matrix_DimSym)));      SET_SLOT(ans, Matrix_DimSym, duplicate(GET_SLOT(x, Matrix_DimSym)));
203      SET_SLOT(ans, Matrix_xSym, duplicate(GET_SLOT(x, Matrix_xSym)));      SET_SLOT(ans, Matrix_xSym, duplicate(GET_SLOT(x, Matrix_xSym)));
204      SET_SLOT(ans, indSym, duplicate(indP));      SET_SLOT(ans, indSym, duplicate(indP));
205      expand_column_pointers(length(pP) - 1, INTEGER(pP),      expand_cmprPt(npt, INTEGER(pP),
206                             INTEGER(ALLOC_SLOT(ans,                    INTEGER(ALLOC_SLOT(ans, col ? Matrix_jSym : Matrix_iSym,
                                               col ? Matrix_jSym : Matrix_iSym,  
207                                                INTSXP, length(indP))));                                                INTSXP, length(indP))));
208      UNPROTECT(1);      UNPROTECT(1);
209      return ans;      return ans;

Legend:
Removed from v.678  
changed lines
  Added in v.679

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