# HG changeset patch
# User jwe
# Date 753446047 0
# Node ID 3f7246605fe9f3fa6e4d88771cf908fbb135fa83
# Parent  d76cb40c46f48630633734ad075c9b054529dcee
[project @ 1993-11-16 10:34:07 by jwe]

diff -r d76cb40c46f4 -r 3f7246605fe9 liboctave/ColVector.cc
--- a/liboctave/ColVector.cc	Tue Nov 16 09:56:54 1993 +0000
+++ b/liboctave/ColVector.cc	Tue Nov 16 10:34:07 1993 +0000
@@ -31,6 +31,39 @@
 #include "Matrix.h"
 #include "mx-inlines.cc"
 #include "lo-error.h"
+#include "f77-uscore.h"
+
+// Fortran functions we call.
+
+extern "C"
+{
+  int F77_FCN (dgemm) (const char*, const char*, const int*,
+		       const int*, const int*, const double*,
+		       const double*, const int*, const double*,
+		       const int*, const double*, double*, const int*,
+		       long, long);
+
+/*
+ * 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 (zgemm) (const char*, const char*, const int*,
+		       const int*, const int*, const Complex*,
+		       const Complex*, const int*, const Complex*,
+		       const int*, const Complex*, Complex*, const int*,
+		       long, long);
+}
 
 /*
  * Column Vector class.