Mercurial > hg > octave-lyh

diff liboctave/dRowVector.cc @ 3887:7da18459c08b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-04-04 00:44:21 by jwe]
author jwe
date Thu, 04 Apr 2002 00:46:37 +0000
parents 7c8e3c42ed04
children 6e86256e9c54
line wrap: on
line diff
--- a/liboctave/dRowVector.cc
+++ b/liboctave/dRowVector.cc
@@ -41,13 +41,13 @@
 
 extern "C"
 {
-  int F77_FCN (dgemv, DGEMV) (const char*, const int&, const int&,
+  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);
 
-  double F77_FCN (ddot, DDOT) (const int&, const double*, const int&,
+  double F77_FUNC (ddot, DDOT) (const int&, const double*, const int&,
 			       const double*, const int&);
 }
 
@@ -338,7 +338,7 @@
   if (len != a_len)
     gripe_nonconformant ("operator *", len, a_len);
   else if (len != 0)
-    retval = F77_FCN (ddot, DDOT) (len, v.data (), 1, a.data (), 1);
+    retval = F77_FUNC (ddot, DDOT) (len, v.data (), 1, a.data (), 1);
 
   return retval;
 }