SCM

SCM Repository

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

Diff of /pkg/src/dgeMatrix.c

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

revision 686, Thu Mar 31 21:19:35 2005 UTC revision 692, Mon Apr 18 14:34:33 2005 UTC
# Line 257  Line 257 
257      if (*adims != *bdims || bdims[1] < 1 || *adims < 1 || *adims != adims[1])      if (*adims != *bdims || bdims[1] < 1 || *adims < 1 || *adims != adims[1])
258          error(_("Dimensions of system to be solved are inconsistent"));          error(_("Dimensions of system to be solved are inconsistent"));
259      Memcpy(INTEGER(ALLOC_SLOT(val, Matrix_DimSym, INTSXP, 2)), bdims, 2);      Memcpy(INTEGER(ALLOC_SLOT(val, Matrix_DimSym, INTSXP, 2)), bdims, 2);
260      F77_CALL(dgetrs)("N", &n, &nrhs, REAL(GET_SLOT(val, Matrix_xSym)), &n,      F77_CALL(dgetrs)("N", &n, &nrhs, REAL(GET_SLOT(lu, Matrix_xSym)), &n,
261                       INTEGER(GET_SLOT(lu, Matrix_permSym)),                       INTEGER(GET_SLOT(lu, Matrix_permSym)),
262                       Memcpy(REAL(ALLOC_SLOT(val, Matrix_xSym, REALSXP, sz)),                       Memcpy(REAL(ALLOC_SLOT(val, Matrix_xSym, REALSXP, sz)),
263                              REAL(cl ? GET_SLOT(b, Matrix_xSym):b), sz),                              REAL(cl ? GET_SLOT(b, Matrix_xSym):b), sz),

Legend:
Removed from v.686  
changed lines
  Added in v.692

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