SCM

SCM Repository

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

Diff of /pkg/src/dsyMatrix.c

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

revision 2114, Mon Feb 18 17:15:41 2008 UTC revision 2115, Sat Feb 23 09:23:17 2008 UTC
# Line 122  Line 122 
122    
123      if ((rt && n != adims[0]) || (!rt && m != adims[0]))      if ((rt && n != adims[0]) || (!rt && m != adims[0]))
124          error(_("Matrices are not conformable for multiplication"));          error(_("Matrices are not conformable for multiplication"));
125      if (m < 1 || n < 1)      if (m < 1 || n < 1) {
126          error(_("Matrices with zero extents cannot be multiplied"));  /*      error(_("Matrices with zero extents cannot be multiplied")); */
127        } else
128      F77_CALL(dsymm)(rt ? "R" :"L", uplo_P(a), &m, &n, &one,      F77_CALL(dsymm)(rt ? "R" :"L", uplo_P(a), &m, &n, &one,
129                      REAL(GET_SLOT(a, Matrix_xSym)), adims, bcp,                      REAL(GET_SLOT(a, Matrix_xSym)), adims, bcp,
130                      &m, &zero, vx, &m);                      &m, &zero, vx, &m);

Legend:
Removed from v.2114  
changed lines
  Added in v.2115

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