Mercurial > octave-nkf

diff src/DLD-FUNCTIONS/balance.cc @ 3587:b11f9c33558f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-02-08 05:54:21 by jwe]
author jwe
date Tue, 08 Feb 2000 05:56:25 +0000
parents ab7fa5a8f23f
children 7da18459c08b
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/balance.cc	Tue Feb 08 04:45:34 2000 +0000
+++ b/src/DLD-FUNCTIONS/balance.cc	Tue Feb 08 05:56:25 2000 +0000
@@ -232,10 +232,10 @@
       if (complex_case)
 	{
 	  if (args(0).is_real_type ())
-	    caa = aa;
+	    caa = ComplexMatrix (aa);
 
 	  if (args(1).is_real_type ())
-	    cbb = bb;
+	    cbb = ComplexMatrix (bb);
   
 	  F77_XFCN (zggbal, ZGGBAL,
 		    (&job, nn, caa.fortran_vec(), nn,