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 582, Mon Feb 28 18:15:21 2005 UTC revision 588, Wed Mar 2 18:19:51 2005 UTC
# Line 354  Line 354 
354      int *adims, *xdims = INTEGER(GET_SLOT(x, Matrix_DimSym)),      int *adims, *xdims = INTEGER(GET_SLOT(x, Matrix_DimSym)),
355          nnz = length(islot);          nnz = length(islot);
356    
357      SET_SLOT(ans, Matrix_DimSym, allocVector(INTSXP, 2));      adims = INTEGER(ALLOC_SLOT(ans, Matrix_DimSym, INTSXP, 2));
     adims = INTEGER(GET_SLOT(ans, Matrix_DimSym));  
358      adims[0] = xdims[1]; adims[1] = xdims[0];      adims[0] = xdims[1]; adims[1] = xdims[0];
359      SET_SLOT(ans, Matrix_factorSym, allocVector(VECSXP, 0));      csc_compTr(xdims[0], xdims[1], nnz,
360      SET_SLOT(ans, Matrix_pSym, allocVector(INTSXP, xdims[0] + 1));                 INTEGER(GET_SLOT(x, Matrix_pSym)), INTEGER(islot),
     SET_SLOT(ans, Matrix_iSym, allocVector(INTSXP, nnz));  
     SET_SLOT(ans, Matrix_xSym, allocVector(REALSXP, nnz));  
     csc_components_transpose(xdims[0], xdims[1], nnz,  
                              INTEGER(GET_SLOT(x, Matrix_pSym)),  
                              INTEGER(islot),  
361                               REAL(GET_SLOT(x, Matrix_xSym)),                               REAL(GET_SLOT(x, Matrix_xSym)),
362                               INTEGER(GET_SLOT(ans, Matrix_pSym)),                 INTEGER(ALLOC_SLOT(ans, Matrix_pSym, INTSXP, xdims[0] + 1)),
363                               INTEGER(GET_SLOT(ans, Matrix_iSym)),                 INTEGER(ALLOC_SLOT(ans, Matrix_iSym, INTSXP, nnz)),
364                               REAL(GET_SLOT(ans, Matrix_xSym)));                 REAL(ALLOC_SLOT(ans, Matrix_xSym, REALSXP, nnz)));
365      UNPROTECT(1);      UNPROTECT(1);
366      return ans;      return ans;
367  }  }

Legend:
Removed from v.582  
changed lines
  Added in v.588

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