SCM

SCM Repository

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

Diff of /pkg/src/dspMatrix.c

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

revision 652, Wed Mar 16 01:08:36 2005 UTC revision 655, Wed Mar 16 16:37:05 2005 UTC
# Line 136  Line 136 
136      SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS("dgeMatrix"))),      SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS("dgeMatrix"))),
137          bdimP = (classed ? GET_SLOT(b, Matrix_DimSym) :          bdimP = (classed ? GET_SLOT(b, Matrix_DimSym) :
138                   getAttrib(b, R_DimSymbol));                   getAttrib(b, R_DimSymbol));
139      int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),      int *bdims = INTEGER(bdimP);
140          *bdims = INTEGER(bdimP);      int i, ione = 1, n = bdims[0], nrhs = bdims[1];
     int i, ione = 1, n = bdims[0], nrhs = bdims[1], info;  
141      int sz = n * nrhs;      int sz = n * nrhs;
142      char *uplo = CHAR(STRING_ELT(GET_SLOT(a, Matrix_uploSym), 0));      char *uplo = CHAR(STRING_ELT(GET_SLOT(a, Matrix_uploSym), 0));
143      double *ax = REAL(GET_SLOT(a, Matrix_xSym)), one = 1., zero = 0.,      double *ax = REAL(GET_SLOT(a, Matrix_xSym)), one = 1., zero = 0.,

Legend:
Removed from v.652  
changed lines
  Added in v.655

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