Mercurial > hg > octave-lyh

diff liboctave/CRowVector.cc @ 1678:1ef83ee34815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-12-29 00:41:30 by jwe]
author jwe
date Fri, 29 Dec 1995 00:42:16 +0000
parents ef7f804cb722
children 0c6d3b73bf69
line wrap: on
line diff
--- a/liboctave/CRowVector.cc
+++ b/liboctave/CRowVector.cc
@@ -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);