SCM

SCM Repository

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

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

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

revision 1262, Sun Apr 30 15:40:39 2006 UTC revision 1310, Thu Jul 6 15:27:14 2006 UTC
# Line 265  Line 265 
265  {  {
266      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dtCMatrix")));      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dtCMatrix")));
267      int lo = uplo_P(a)[0] == 'L', unit = diag_P(a)[0] == 'U',      int lo = uplo_P(a)[0] == 'L', unit = diag_P(a)[0] == 'U',
268          n = INTEGER(GET_SLOT(a, Matrix_DimSym))[0], nnz,          n = INTEGER(GET_SLOT(a, Matrix_DimSym))[0],
269          *ai = INTEGER(GET_SLOT(a,Matrix_iSym)),          *ai = INTEGER(GET_SLOT(a,Matrix_iSym)),
270          *ap = INTEGER(GET_SLOT(a, Matrix_pSym)), *bi,          *ap = INTEGER(GET_SLOT(a, Matrix_pSym)),
271          *bp = INTEGER(ALLOC_SLOT(ans, Matrix_pSym, INTSXP, n + 1));          *bp = INTEGER(ALLOC_SLOT(ans, Matrix_pSym, INTSXP, n + 1));
272      int bnz = 10 * ap[n];         /* initial estimate of nnz in b */      int bnz = 10 * ap[n];         /* initial estimate of nnz in b */
273      int *ti = Calloc(bnz, int), j, nz;      int *ti = Calloc(bnz, int), j, nz;

Legend:
Removed from v.1262  
changed lines
  Added in v.1310

root@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