Mercurial > octave

diff src/svd.cc @ 712:36ba0576bd1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-09-19 14:18:15 by jwe]
author jwe
date Mon, 19 Sep 1994 14:18:48 +0000
parents 0a81458ef677
children e81d3a66725e
line wrap: on
line diff
--- a/src/svd.cc	Sun Sep 18 23:34:35 1994 +0000
+++ b/src/svd.cc	Mon Sep 19 14:18:48 1994 +0000
@@ -47,18 +47,18 @@
 
   int nargin = args.length ();
 
-  if (nargin < 2 || nargin > 3 || nargout == 2 || nargout > 3)
+  if (nargin < 1 || nargin > 2 || nargout == 2 || nargout > 3)
     {
       print_usage ("svd");
       return retval;
     }
 
-  tree_constant arg = args(1);
+  tree_constant arg = args(0);
 
   if (empty_arg ("svd", arg.rows (), arg.columns ()) < 0)
     return retval;
 
-  SVD::type type = (nargin == 3) ? SVD::economy : SVD::std;
+  SVD::type type = (nargin == 2) ? SVD::economy : SVD::std;
 
   if (arg.is_real_type ())
     {