SCM

SCM Repository

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

Diff of /pkg/src/lgCMatrix.c

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

revision 725, Tue May 10 14:50:39 2005 UTC revision 726, Thu May 12 14:59:04 2005 UTC
# Line 164  Line 164 
164          *xdims = INTEGER(GET_SLOT(x, Matrix_DimSym)),          *xdims = INTEGER(GET_SLOT(x, Matrix_DimSym)),
165          nz = length(xi);          nz = length(xi);
166      int *xj = Calloc(nz, int);      int *xj = Calloc(nz, int);
167        SEXP adn = ALLOC_SLOT(ans, Matrix_DimNamesSym, VECSXP, 2),
168            xdn = GET_SLOT(x, Matrix_DimNamesSym);
169    
170      adims[1] = xdims[0];      adims[1] = xdims[0]; adims[0] = xdims[1];
171      adims[0] = xdims[1];      SET_VECTOR_ELT(adn, 0, VECTOR_ELT(xdn, 1));
172        SET_VECTOR_ELT(adn, 1, VECTOR_ELT(xdn, 0));
173      triplet_to_col(adims[0], adims[1], nz,      triplet_to_col(adims[0], adims[1], nz,
174                     expand_cmprPt(xdims[1], INTEGER(GET_SLOT(x, Matrix_pSym)), xj),                     expand_cmprPt(xdims[1], INTEGER(GET_SLOT(x, Matrix_pSym)), xj),
175                     INTEGER(GET_SLOT(x, Matrix_iSym)), (double *) NULL,                     INTEGER(xi), (double *) NULL,
176                     INTEGER(ALLOC_SLOT(ans, Matrix_pSym, INTSXP,  adims[1] + 1)),                     INTEGER(ALLOC_SLOT(ans, Matrix_pSym, INTSXP,  adims[1] + 1)),
177                     INTEGER(ALLOC_SLOT(ans, Matrix_iSym, INTSXP,  nz)),                     INTEGER(ALLOC_SLOT(ans, Matrix_iSym, INTSXP,  nz)),
178                     (double *) NULL);                     (double *) NULL);

Legend:
Removed from v.725  
changed lines
  Added in v.726

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