Mercurial > octave-nkf

diff src/givens.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 4ba86a2baa5d
children 445ea777560a
line wrap: on
line diff
--- 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