# HG changeset patch
# User jwe
# Date 745024091 0
# Node ID ed620db9518208a3233077ae154bb095146e7cc9
# Parent  80ea39e3c9172615c3527db241339c5ee69ec256
[project @ 1993-08-10 23:02:53 by jwe]

diff -r 80ea39e3c917 -r ed620db95182 src/givens.cc
--- a/src/givens.cc	Tue Aug 10 22:58:49 1993 +0000
+++ b/src/givens.cc	Tue Aug 10 23:08:11 1993 +0000
@@ -34,11 +34,14 @@
 #include "error.h"
 #include "gripes.h"
 
-int F77_FCN (dlartg) (const double*, const double*, double*, double*,
-		      double*);
+extern "C"
+{
+  int F77_FCN (dlartg) (const double*, const double*, double*, double*,
+			double*);
 
-int F77_FCN (zlartg) (const Complex*, const Complex*, double*,
-		      Complex*, Complex*);
+  int F77_FCN (zlartg) (const Complex*, const Complex*, double*,
+			Complex*, Complex*);
+}
 
 // These aren't used?
 #if 0
diff -r 80ea39e3c917 -r ed620db95182 src/qzval.cc
--- a/src/qzval.cc	Tue Aug 10 22:58:49 1993 +0000
+++ b/src/qzval.cc	Tue Aug 10 23:08:11 1993 +0000
@@ -34,14 +34,17 @@
 #include "gripes.h"
 #include "error.h"
 
-int F77_FCN (qzhes) (const int*, const int*, double*, double*, const
-		     long*, double*);
+extern "C"
+{
+  int F77_FCN (qzhes) (const int*, const int*, double*, double*, const
+		       long*, double*);
  
-int F77_FCN (qzit) (const int*, const int*, double*, double*, const
-		    double*, const long*, double*, int*);
+  int F77_FCN (qzit) (const int*, const int*, double*, double*, const
+		      double*, const long*, double*, int*);
  
-int F77_FCN (qzval) (const int*, const int*, double*, double*,
-		     double*, double*, double*, const long*, double*);
+  int F77_FCN (qzval) (const int*, const int*, double*, double*,
+		       double*, double*, double*, const long*, double*);
+}
 
 // XXX FIXME XXX
 extern int empty_arg (tree_constant&);
diff -r 80ea39e3c917 -r ed620db95182 src/syl.cc
--- a/src/syl.cc	Tue Aug 10 22:58:49 1993 +0000
+++ b/src/syl.cc	Tue Aug 10 23:08:11 1993 +0000
@@ -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.