Mercurial > hg > octave-lyh

changeset 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
files src/givens.cc src/qzval.cc src/syl.cc
diffstat 3 files changed, 29 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/src/givens.cc
+++ b/src/givens.cc
@@ -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
--- a/src/qzval.cc
+++ b/src/qzval.cc
@@ -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&);
--- 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.