diff liboctave/CMatrix.cc @ 3233:98d0ee053ba4

[project @ 1999-01-27 20:23:40 by jwe]
author jwe
date Wed, 27 Jan 1999 20:23:46 +0000
parents 7aae2c3636a7
children 68259f410026
line wrap: on
line diff
--- a/liboctave/CMatrix.cc	Wed Jan 20 18:55:50 1999 +0000
+++ b/liboctave/CMatrix.cc	Wed Jan 27 20:23:46 1999 +0000
@@ -1695,25 +1695,21 @@
   ComplexMatrix retval;
 
   int len = v.length ();
-  int a_len = a.length ();
-
-  if (len != a_len)
-    gripe_nonconformant ("operator *", len, 1, 1, a_len);
-  else
+
+  if (len != 0)
     {
-      if (len != 0)
-	{
-	  retval.resize (len, a_len);
-	  Complex *c = retval.fortran_vec ();
-
-	  F77_XFCN (zgemm, ZGEMM, ("N", "N", len, a_len, 1, 1.0,
-				   v.data (), len, a.data (), 1, 0.0,
-				   c, len, 1L, 1L)); 
-
-	  if (f77_exception_encountered)
-	    (*current_liboctave_error_handler)
-	      ("unrecoverable error in zgemm");
-	}
+      int a_len = a.length ();
+
+      retval.resize (len, a_len);
+      Complex *c = retval.fortran_vec ();
+
+      F77_XFCN (zgemm, ZGEMM, ("N", "N", len, a_len, 1, 1.0,
+			       v.data (), len, a.data (), 1, 0.0,
+			       c, len, 1L, 1L)); 
+
+      if (f77_exception_encountered)
+	(*current_liboctave_error_handler)
+	  ("unrecoverable error in zgemm");
     }
 
   return retval;