Mercurial > hg > octave-lyh

diff src/syl.cc @ 47:ed620db95182

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-10 23:02:53 by jwe]
author jwe
date Tue, 10 Aug 1993 23:08:11 +0000
parents 80ea39e3c917
children 4840b0a09436
line wrap: on
line diff
--- a/src/syl.cc
+++ b/src/syl.cc
@@ -34,17 +34,20 @@
 #include "gripes.h"
 #include "error.h"
 
-int F77_FCN (dtrsyl) (const char*, const char*, const int*,
-		      const int*, const int*, const double*,
-		      const int*, const double*, const int*,
-		      const double*, const int*, double*, int*, long,
-		      long);
+extern "C"
+{
+  int F77_FCN (dtrsyl) (const char*, const char*, const int*,
+			const int*, const int*, const double*,
+			const int*, const double*, const int*,
+			const double*, const int*, double*, int*,
+			long, long);
  
-int F77_FCN (ztrsyl) (const char*, const char*, const int*,
-		      const int*, const int*, const Complex*,
-		      const int*, const Complex*, const int*,
-		      const Complex*, const int*, double*, int*, long,
-		      long);
+  int F77_FCN (ztrsyl) (const char*, const char*, const int*,
+			const int*, const int*, const Complex*,
+			const int*, const Complex*, const int*,
+			const Complex*, const int*, double*, int*,
+			long, long);
+}
 
 // Local function: check for empty matrix arguments.  Probably should make 
 // this available elsewhere, since tc-xxx functions do this a lot.