Mercurial > hg > octave-nkf
diff liboctave/dbleCHOL.cc @ 5275:23b37da9fd5b
[project @ 2005-04-08 16:07:35 by jwe]
| author | jwe |
|---|---|
| date | Fri, 08 Apr 2005 16:07:37 +0000 |
| parents | e35b034d3523 |
| children | 4c8a2e4e0717 |
line wrap: on
line diff
--- a/liboctave/dbleCHOL.cc +++ b/liboctave/dbleCHOL.cc @@ -31,16 +31,16 @@ extern "C" { F77_RET_T - F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL, const int&, - double*, const int&, int& + F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, + double*, const octave_idx_type&, octave_idx_type& F77_CHAR_ARG_LEN_DECL); } -int +octave_idx_type CHOL::init (const Matrix& a) { - int a_nr = a.rows (); - int a_nc = a.cols (); + octave_idx_type a_nr = a.rows (); + octave_idx_type a_nc = a.cols (); if (a_nr != a_nc) { @@ -48,8 +48,8 @@ return -1; } - int n = a_nc; - int info; + octave_idx_type n = a_nc; + octave_idx_type info; chol_mat = a; double *h = chol_mat.fortran_vec (); @@ -66,8 +66,8 @@ // faster for that matter :-)), please let me know! if (n > 1) - for (int j = 0; j < a_nc; j++) - for (int i = j+1; i < a_nr; i++) + for (octave_idx_type j = 0; j < a_nc; j++) + for (octave_idx_type i = j+1; i < a_nr; i++) chol_mat.elem (i, j) = 0.0; }