SCM

SCM Repository

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

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

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

revision 1968, Sat Jul 7 22:49:12 2007 UTC revision 2018, Wed Aug 1 15:22:05 2007 UTC
# Line 87  Line 87 
87          *bdims = INTEGER(GET_SLOT(b, Matrix_DimSym)),          *bdims = INTEGER(GET_SLOT(b, Matrix_DimSym)),
88          info;          info;
89    
90      if (*adims != *bdims || bdims[1] < 1 || *adims < 1)      if (adims[1] != bdims[0])
91          error(_("Dimensions of system to be solved are inconsistent"));          error(_("Dimensions of system to be solved are inconsistent"));
92        if (adims[0] < 1 || bdims[1] < 1)
93            error(_("Cannot solve() for matrices with zero extents"));
94      SET_SLOT(val, Matrix_factorSym, allocVector(VECSXP, 0));      SET_SLOT(val, Matrix_factorSym, allocVector(VECSXP, 0));
95      slot_dup(val, b, Matrix_DimSym);      slot_dup(val, b, Matrix_DimSym);
96      slot_dup(val, b, Matrix_xSym);      slot_dup(val, b, Matrix_xSym);

Legend:
Removed from v.1968  
changed lines
  Added in v.2018

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