Mercurial > octave

changeset 231:9a6ecd8b50bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-16 10:37:07 by jwe]
author jwe
date Tue, 16 Nov 1993 10:37:07 +0000
parents 3f7246605fe9
children e1b072bcffb9
files liboctave/RowVector.cc
diffstat 1 files changed, 34 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/RowVector.cc	Tue Nov 16 10:34:07 1993 +0000
+++ b/liboctave/RowVector.cc	Tue Nov 16 10:37:07 1993 +0000
@@ -31,6 +31,40 @@
 #include "Matrix.h"
 #include "mx-inlines.cc"
 #include "lo-error.h"
+#include "f77-uscore.h"
+
+// Fortran functions we call.
+
+extern "C"
+{
+  int F77_FCN (dgemv) (const char*, const int*, const int*,
+		       const double*, const double*, const int*,
+		       const double*, const int*, const double*,
+		       double*, const int*, long);
+
+  double F77_FCN (ddot) (const int*, const double*, const int*,
+			 const double*, const int*);
+
+/*
+ * f2c translates complex*16 as
+ *
+ *   typedef struct { doublereal re, im; } doublecomplex;
+ *
+ * and Complex.h from libg++ uses
+ *
+ *   protected:
+ *     double re;
+ *     double im;
+ *
+ * as the only data members, so this should work (fingers crossed that
+ * things don't change).
+ */
+
+  int F77_FCN (zgemv) (const char*, const int*, const int*,
+		       const Complex*, const Complex*, const int*,
+		       const Complex*, const int*, const Complex*,
+		       Complex*, const int*, long);
+}
 
 /*
  * Row Vector class.