Mercurial > octave
diff liboctave/dRowVector.cc @ 1253:bb67a902760b
[project @ 1995-04-11 16:35:23 by jwe]
author | jwe |
---|---|
date | Tue, 11 Apr 1995 16:35:23 +0000 |
parents | 97eac19837dc |
children | f93b7fa5e113 |
line wrap: on
line diff
--- a/liboctave/dRowVector.cc Tue Apr 11 16:04:14 1995 +0000 +++ b/liboctave/dRowVector.cc Tue Apr 11 16:35:23 1995 +0000 @@ -38,13 +38,14 @@ extern "C" { - int F77_FCN (dgemv) (const char*, const int&, const int&, - const double&, const double*, const int&, - const double*, const int&, const double&, - double*, const int&, long); + int F77_FCN (dgemv, DGEMV) (const char*, const int&, const int&, + const double&, const double*, + const int&, const double*, const int&, + const double&, double*, const int&, + long); - double F77_FCN (ddot) (const int&, const double*, const int&, - const double*, const int&); + double F77_FCN (ddot, DDOT) (const int&, const double*, const int&, + const double*, const int&); } /* @@ -230,8 +231,8 @@ double *y = new double [len]; - F77_FCN (dgemv) ("T", a_nc, a_nr, 1.0, a.data (), ld, v.data (), - 1, 0.0, y, 1, 1L); + F77_FCN (dgemv, DGEMV) ("T", a_nc, a_nr, 1.0, a.data (), ld, + v.data (), 1, 0.0, y, 1, 1L); return RowVector (y, len); } @@ -359,7 +360,7 @@ return 0.0; } - return F77_FCN (ddot) (len, v.data (), 1, a.data (), 1); + return F77_FCN (ddot, DDOT) (len, v.data (), 1, a.data (), 1); } Complex