Mercurial > hg > octave-nkf

diff scripts/linear-algebra/krylov.m @ 3233:98d0ee053ba4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-01-27 20:23:40 by jwe]
author jwe
date Wed, 27 Jan 1999 20:23:46 +0000
parents 7aae2c3636a7
children 2e74d8aa1a20
line wrap: on
line diff
--- a/scripts/linear-algebra/krylov.m
+++ b/scripts/linear-algebra/krylov.m
@@ -41,6 +41,9 @@
   # $Revision: 1.2 $
   # $Log$
 
+  save_empty_list_elements_ok = empty_list_elements_ok;
+  empty_list_elements_ok = 1;
+
   if    (nargin > 5)   usage("[U,H,k1] = krylov(A,v,k{,eps1,pflg})");
   elseif(nargin < 5)   pflg = 0;
   elseif(nargin < 4)   eps1 = 1e-12; endif
@@ -154,4 +157,6 @@
     warning("krylov: trivial null space corrupted; set pflg=1 or eps1>%e",eps1);
   endif
 
+  empty_list_elements_ok = save_empty_list_elements_ok;
+
 endfunction