# HG changeset patch
# User jwe
# Date 748989109 0
# Node ID 096ef59709b3864f650c11479f4acc74a9522598
# Parent  b09b2c84688bef0fa7f442071c27eea0adbdc5fb
[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.

diff -r b09b2c84688b -r 096ef59709b3 liboctave/Matrix.cc
--- a/liboctave/Matrix.cc	Wed Sep 22 11:01:59 1993 +0000
+++ b/liboctave/Matrix.cc	Sat Sep 25 20:31:49 1993 +0000
@@ -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);