Mercurial > octave-nkf

diff scripts/control/zgscal.m @ 3240:2e74d8aa1a20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-04-07 18:33:23 by jwe]
author jwe
date Wed, 07 Apr 1999 18:34:20 +0000
parents 98e15955107e
children 6dd06d525de6
line wrap: on
line diff
--- a/scripts/control/zgscal.m	Sat Mar 27 17:40:46 1999 +0000
+++ b/scripts/control/zgscal.m	Wed Apr 07 18:34:20 1999 +0000
@@ -49,7 +49,7 @@
     F(1:nmp,kk) = zgfmul(a,b,c,d,F(:,kk));
   endfor
 
-  [U,H,k1] = krylov(F,z,nmp,1e-12);
+  [U,H,k1] = krylov(F,z,nmp,1e-12,1);
   if(!is_square(H))
     if(columns(H) != k1) 
       error("zgscal(tzero): k1=%d, columns(H)=%d",k1,columns(H));