Mercurial > hg > octave-nkf
changeset 1678:1ef83ee34815
[project @ 1995-12-29 00:41:30 by jwe]
author | jwe |
---|---|
date | Fri, 29 Dec 1995 00:42:16 +0000 |
parents | ef7f804cb722 |
children | 7dbdf23e1d18 |
files | liboctave/CRowVector.cc liboctave/dRowVector.cc |
diffstat | 2 files changed, 2 insertions(+), 2 deletions(-) [+] |
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);