Mercurial > hg > octave-nkf

diff liboctave/dbleHESS.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 8b262e771614
children 6e86256e9c54
line wrap: on
line diff
--- a/liboctave/dbleHESS.cc
+++ b/liboctave/dbleHESS.cc
@@ -34,19 +34,19 @@
 
 extern "C"
 {
-  int F77_FCN (dgebal, DGEBAL) (const char*, const int&, double*,
+  int F77_FUNC (dgebal, DGEBAL) (const char*, const int&, double*,
 				const int&, int&, int&, double*,
 				int&, long, long);
 
-  int F77_FCN (dgehrd, DGEHRD) (const int&, const int&, const int&,
+  int F77_FUNC (dgehrd, DGEHRD) (const int&, const int&, const int&,
 				double*, const int&, double*, double*,
 				const int&, int&, long, long);
 
-  int F77_FCN (dorghr, DORGHR) (const int&, const int&, const int&,
+  int F77_FUNC (dorghr, DORGHR) (const int&, const int&, const int&,
 				double*, const int&, double*, double*,
 				const int&, int&, long, long);
 
-  int F77_FCN (dgebak, DGEBAK) (const char*, const char*, const int&,
+  int F77_FUNC (dgebak, DGEBAK) (const char*, const char*, const int&,
 				const int&, const int&, double*,
 				const int&, double*, const int&, int&,
 				long, long);