Mercurial > hg > octave-avbm
diff liboctave/dRowVector.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/dRowVector.cc +++ b/liboctave/dRowVector.cc @@ -41,14 +41,15 @@ extern "C" { - int F77_FUNC (dgemv, DGEMV) (const char*, const int&, const int&, - const double&, const double*, - const int&, const double*, const int&, - const double&, double*, const int&, - long); + F77_RET_T + F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, + const int&, const int&, const double&, + const double*, const int&, const double*, + const int&, const double&, double*, const int& + F77_CHAR_ARG_LEN_DECL); double F77_FUNC (ddot, DDOT) (const int&, const double*, const int&, - const double*, const int&); + const double*, const int&); } // Row Vector class. @@ -223,8 +224,10 @@ retval.resize (a_nc); double *y = retval.fortran_vec (); - F77_XFCN (dgemv, DGEMV, ("T", a_nr, a_nc, 1.0, a.data (), - ld, v.data (), 1, 0.0, y, 1, 1L)); + F77_XFCN (dgemv, DGEMV, (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)