# HG changeset patch
# User jwe
# Date 820197736 0
# Node ID 1ef83ee3481504d62099fc5380afc979093b095c
# Parent  ef7f804cb7225fa0647185d47ab6eac9c270a9b0
[project @ 1995-12-29 00:41:30 by jwe]

diff -r ef7f804cb722 -r 1ef83ee34815 liboctave/CRowVector.cc
--- a/liboctave/CRowVector.cc	Thu Dec 28 20:22:03 1995 +0000
+++ b/liboctave/CRowVector.cc	Fri Dec 29 00:42:16 1995 +0000
@@ -448,7 +448,7 @@
 
   Complex *y = new Complex [a_nc];
 
-  F77_FCN (zgemv, ZGEMV) ("T", a_nc, a_nr, 1.0, a.data (), ld,
+  F77_FCN (zgemv, ZGEMV) ("T", a_nr, a_nc, 1.0, a.data (), ld,
 			  v.data (), 1, 0.0, y, 1, 1L); 
 
   return ComplexRowVector (y, a_nc);
diff -r ef7f804cb722 -r 1ef83ee34815 liboctave/dRowVector.cc
--- a/liboctave/dRowVector.cc	Thu Dec 28 20:22:03 1995 +0000
+++ b/liboctave/dRowVector.cc	Fri Dec 29 00:42:16 1995 +0000
@@ -232,7 +232,7 @@
 
   double *y = new double [a_nc];
 
-  F77_FCN (dgemv, DGEMV) ("T", a_nc, a_nr, 1.0, a.data (), ld,
+  F77_FCN (dgemv, DGEMV) ("T", a_nr, a_nc, 1.0, a.data (), ld,
 			  v.data (), 1, 0.0, y, 1, 1L);
 
   return RowVector (y, a_nc);