Mercurial > octave-nkf

comparison liboctave/EIG.cc @ 4933:cd58733c326b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-08-05 16:08:28 by jwe]
author jwe
date Thu, 05 Aug 2004 16:08:28 +0000
parents c322edde72ac
children e35b034d3523
comparison
equal deleted inserted replaced
4932:43f4ebd2704c 4933:cd58733c326b
93 double *pwr = wr.fortran_vec (); 93 double *pwr = wr.fortran_vec ();
94 94
95 Array<double> wi (n); 95 Array<double> wi (n);
96 double *pwi = wi.fortran_vec (); 96 double *pwi = wi.fortran_vec ();
97 97
98 int nvr = calc_ev ? n : 0; 98 volatile int nvr = calc_ev ? n : 0;
99 Matrix vr (nvr, nvr); 99 Matrix vr (nvr, nvr);
100 double *pvr = vr.fortran_vec (); 100 double *pvr = vr.fortran_vec ();
101 101
102 int lwork = -1; 102 int lwork = -1;
103 double dummy_work; 103 double dummy_work;