Mercurial > hg > octave-jordi

diff src/DLD-FUNCTIONS/qz.cc @ 3671:25b06b7222f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-05-31 20:54:50 by jwe]
author jwe
date Wed, 31 May 2000 20:54:50 +0000 (2000-05-31)
parents b11f9c33558f
children 7da18459c08b
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/qz.cc
+++ b/src/DLD-FUNCTIONS/qz.cc
@@ -789,9 +789,10 @@
 
 	  ComplexColumnVector tmp(cnt);
 
+	  cnt = 0;
 	  for (int ii = 0; ii < nn; ii++)
 	    if (betar(ii) != 0)
-	      tmp(ii) = Complex(alphar(ii), alphai(ii))/betar(ii);
+	      tmp(cnt++) = Complex(alphar(ii), alphai(ii))/betar(ii);
 	  gev = tmp;
 	}
     }