Mercurial > hg > octave-lyh

changeset 125:096ef59709b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-09-25 20:31:49 by jwe] (Matrix::operator * (const ColumnVector& a) const): Correct dimension of return value. (ComplexMatrix::operator * (const ComplexColumnVector& a) const): Ditto.
author jwe
date Sat, 25 Sep 1993 20:31:49 +0000
parents b09b2c84688b
children 46ac21715e23
files liboctave/Matrix.cc
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/Matrix.cc
+++ b/liboctave/Matrix.cc
@@ -1044,7 +1044,7 @@
   double beta  = 0.0;
   int i_one = 1;
 
-  double *y = new double [a.len];
+  double *y = new double [nr];
 
   F77_FCN (dgemv) (&trans, &nr, &nc, &alpha, data, &ld, a.data,
 		   &i_one, &beta, y, &i_one, 1L); 
@@ -3315,7 +3315,7 @@
   Complex beta (0.0);
   int i_one = 1;
 
-  Complex *y = new Complex [a.len];
+  Complex *y = new Complex [nr];
 
   F77_FCN (zgemv) (&trans, &nr, &nc, &alpha, data, &ld, a.data,
 		   &i_one, &beta, y, &i_one, 1L);