Mercurial > octave-nkf
diff liboctave/CRowVector.cc @ 4552:6f3382e08a52
[project @ 2003-10-27 20:38:02 by jwe]
author | jwe |
---|---|
date | Mon, 27 Oct 2003 20:38:03 +0000 |
parents | 236c10efcde2 |
children | 7b957b442818 |
line wrap: on
line diff
--- a/liboctave/CRowVector.cc Mon Oct 27 17:04:38 2003 +0000 +++ b/liboctave/CRowVector.cc Mon Oct 27 20:38:03 2003 +0000 @@ -41,11 +41,12 @@ extern "C" { - int F77_FUNC (zgemv, ZGEMV) (const char*, const int&, const int&, - const Complex&, const Complex*, - const int&, const Complex*, const int&, - const Complex&, Complex*, const int&, - long); + F77_RET_T + F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, + const int&, const int&, const Complex&, + const Complex*, const int&, const Complex*, + const int&, const Complex&, Complex*, const int& + F77_CHAR_ARG_LEN_DECL); } // Complex Row Vector class @@ -347,8 +348,10 @@ retval.resize (a_nc); Complex *y = retval.fortran_vec (); - F77_XFCN (zgemv, ZGEMV, ("T", a_nr, a_nc, 1.0, a.data (), - ld, v.data (), 1, 0.0, y, 1, 1L)); + F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 ("T", 1), + a_nr, a_nc, 1.0, a.data (), + ld, v.data (), 1, 0.0, y, 1 + F77_CHAR_ARG_LEN (1))); if (f77_exception_encountered) (*current_liboctave_error_handler)