Mercurial > hg > octave-nkf

comparison liboctave/CmplxGEPBAL.cc @ 10142:829e69ec3110

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make OCTAVE_QUIT a function
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 20 Jan 2010 10:38:00 +0100
parents eb63fbe60fab
children 4c0cdbe0acca
comparison
equal deleted inserted replaced
10141:e409546ac0a8 10142:829e69ec3110
95 95
96 balancing_mat = Matrix (n, n, 0.0); 96 balancing_mat = Matrix (n, n, 0.0);
97 balancing_mat2 = Matrix (n, n, 0.0); 97 balancing_mat2 = Matrix (n, n, 0.0);
98 for (octave_idx_type i = 0; i < n; i++) 98 for (octave_idx_type i = 0; i < n; i++)
99 { 99 {
100 OCTAVE_QUIT; 100 octave_quit ();
101 balancing_mat.elem (i ,i) = 1.0; 101 balancing_mat.elem (i ,i) = 1.0;
102 balancing_mat2.elem (i ,i) = 1.0; 102 balancing_mat2.elem (i ,i) = 1.0;
103 } 103 }
104 104
105 double *p_balancing_mat = balancing_mat.fortran_vec (); 105 double *p_balancing_mat = balancing_mat.fortran_vec ();