# HG changeset patch # User jwe # Date 773710899 0 # Node ID dbb8a47acc3aa5167220c98f59b890b7acd8074c # Parent e273a853208166c4cbc6912b2b024e184d1db672 [project @ 1994-07-08 23:41:39 by jwe] diff -r e273a8532081 -r dbb8a47acc3a src/balance.cc --- a/src/balance.cc Fri Jul 08 02:40:08 1994 +0000 +++ b/src/balance.cc Fri Jul 08 23:41:39 1994 +0000 @@ -236,6 +236,7 @@ switch (nargout) { + case 0: case 1: warning ("balance: should use two output arguments"); retval(0) = tree_constant (caa); @@ -251,7 +252,7 @@ retval(3) = tree_constant (cbb); break; default: - error ("balance: illegal number of output arguments"); + error ("balance: invalid number of output arguments"); break; } } @@ -259,6 +260,11 @@ { switch (nargout) { + case 0: + case 1: + warning ("balance: should use two output arguments"); + retval(0) = tree_constant (result.balanced_a_matrix ()); + break; case 2: retval(0) = tree_constant (result.balanced_a_matrix ()); retval(1) = tree_constant (result.balanced_b_matrix ()); @@ -270,7 +276,7 @@ retval(3) = tree_constant (result.balanced_b_matrix ()); break; default: - error ("balance: illegal number of output arguments"); + error ("balance: invalid number of output arguments"); break; } } diff -r e273a8532081 -r dbb8a47acc3a src/givens.cc --- a/src/givens.cc Fri Jul 08 02:40:08 1994 +0000 +++ b/src/givens.cc Fri Jul 08 23:41:39 1994 +0000 @@ -111,7 +111,8 @@ switch (nargout) { - case 1: // output a matrix + case 0: // output a matrix + case 1: { ComplexMatrix g (2, 2); g.elem (0, 0) = cc; @@ -129,7 +130,7 @@ break; default: - error ("givens: illegal number of output arguments"); + error ("givens: invalid number of output arguments"); break; } } @@ -141,7 +142,8 @@ switch (nargout) { - case 1: // output a matrix + case 0: // output a matrix + case 1: { Matrix g (2, 2); g.elem (0, 0) = cc; @@ -159,7 +161,7 @@ break; default: - error ("givens: illegal number of output arguments"); + error ("givens: invalid number of output arguments"); break; } }