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 3036, Sat Jan 17 23:06:12 2015 UTC revision 3273, Sat Mar 24 16:29:40 2018 UTC
# Line 77  Line 77 
77  SEXP dtCMatrix_matrix_solve(SEXP a, SEXP b, SEXP classed)  SEXP dtCMatrix_matrix_solve(SEXP a, SEXP b, SEXP classed)
78  {  {
79      int cl = asLogical(classed);      int cl = asLogical(classed);
80      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dgeMatrix")));      SEXP ans = PROTECT(NEW_OBJECT_OF_CLASS("dgeMatrix"));
81      CSP A = AS_CSP(a);      CSP A = AS_CSP(a);
82      int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),      int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),
83          *bdims = INTEGER(cl ? GET_SLOT(b, Matrix_DimSym) :          *bdims = INTEGER(cl ? GET_SLOT(b, Matrix_DimSym) :
# Line 113  Line 113 
113    
114  SEXP dtCMatrix_sparse_solve(SEXP a, SEXP b)  SEXP dtCMatrix_sparse_solve(SEXP a, SEXP b)
115  {  {
116      SEXP ans = PROTECT(NEW_OBJECT(MAKE_CLASS("dgCMatrix")));      SEXP ans = PROTECT(NEW_OBJECT_OF_CLASS("dgCMatrix"));
117      CSP A = AS_CSP(a), B = AS_CSP(b);      CSP A = AS_CSP(a), B = AS_CSP(b);
118      R_CheckStack();      R_CheckStack();
119      if (A->m != A->n || B->n < 1 || A->n < 1 || A->n != B->m)      if (A->m != A->n || B->n < 1 || A->n < 1 || A->n != B->m)

Legend:
Removed from v.3036  
changed lines
  Added in v.3273

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