Mercurial > octave-antonio

diff scripts/sparse/colperm.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children f5005d9510f4
line wrap: on
line diff
--- a/scripts/sparse/colperm.m	Thu Nov 08 01:09:44 2007 +0000
+++ b/scripts/sparse/colperm.m	Thu Nov 08 02:29:24 2007 +0000
@@ -26,6 +26,11 @@
 ## @end deftypefn
 
 function p = colperm (s)
+
+  if (nargin != 1)
+    print_usage ();
+  endif
+
   [i, j] = spfind (s);
   idx = find (diff ([j; Inf]) != 0);
   [dummy, p] = sort (idx - [0; idx(1:(end-1))]);