Mercurial > hg > octave-thorsten

diff src/DLD-FUNCTIONS/balance.cc @ 4153:6b96ce9f5743

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-06 20:38:49 by jwe]
author jwe
date Wed, 06 Nov 2002 20:38:50 +0000
parents 8389e78e67d4
children 6f3382e08a52
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/balance.cc
+++ b/src/DLD-FUNCTIONS/balance.cc
@@ -32,6 +32,7 @@
 #include "CmplxAEPBAL.h"
 #include "dbleAEPBAL.h"
 #include "dbleAEPBAL.h"
+#include "quit.h"
 
 #include "defun-dld.h"
 #include "error.h"
@@ -272,7 +273,11 @@
 
       for (int ii = 0; ii < nn; ii++)
 	for (int jj = 0; jj < nn; jj++)
-	  Pl(ii,jj) = Pr(ii,jj) = (ii == jj ? 1.0 : 0.0);
+	  {
+	    OCTAVE_QUIT;
+
+	    Pl(ii,jj) = Pr(ii,jj) = (ii == jj ? 1.0 : 0.0);
+	  }
   
       // left first
       F77_XFCN (dggbak, DGGBAK,