Mercurial > hg > octave-nkf

comparison src/eig.cc @ 718:e81d3a66725e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-09-21 14:58:18 by jwe]
author jwe
date Wed, 21 Sep 1994 14:58:18 +0000
parents 36ba0576bd1b
children dfe01093f657
comparison
equal deleted inserted replaced
717:b14a2dda50e7 718:e81d3a66725e
51 tree_constant arg = args(0); 51 tree_constant arg = args(0);
52 52
53 int nr = arg.rows (); 53 int nr = arg.rows ();
54 int nc = arg.columns (); 54 int nc = arg.columns ();
55 55
56 if (empty_arg ("eig", nr, nc) < 0) 56 int arg_is_empty = empty_arg ("eig", nr, nc);
57 if (arg_is_empty < 0)
57 return retval; 58 return retval;
59 else if (arg_is_empty > 0)
60 return Octave_object (2, Matrix ());
58 61
59 if (nr != nc) 62 if (nr != nc)
60 { 63 {
61 gripe_square_matrix_required ("eig"); 64 gripe_square_matrix_required ("eig");
62 return retval; 65 return retval;