Mercurial > 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 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);
--- 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);