# HG changeset patch
# User jwe
# Date 758412858 0
# Node ID 9c74d7d76f3dc8b9d754a9c46e5435261bdc3b8a
# Parent  79a1403b8b6edccd3b630065c7840907c35af8f1
[project @ 1994-01-12 22:14:18 by jwe]

diff -r 79a1403b8b6e -r 9c74d7d76f3d liboctave/RowVector.cc
--- a/liboctave/RowVector.cc	Tue Jan 11 05:56:55 1994 +0000
+++ b/liboctave/RowVector.cc	Wed Jan 12 22:14:18 1994 +0000
@@ -895,9 +895,20 @@
 Complex
 operator * (const ComplexRowVector& v, const ComplexColumnVector& a)
 {
-// XXX FIXME XXX -- need function body
-  assert (0);
-  return Complex ();
+  int len = v.length ();
+  if (len != a.length ())
+    {
+      (*current_liboctave_error_handler)
+	("nonconformant vector multiplication attempted");
+      return 0.0;
+    }
+
+  Complex retval (0.0, 0.0);
+
+  for (int i = 0; i < len; i++)
+    retval += v.elem (i) * a.elem (i);
+
+  return retval;
 }
 
 // row vector by matrix -> row vector