Mercurial > hg > octave-nkf
diff liboctave/CollocWt.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/CollocWt.cc +++ b/liboctave/CollocWt.cc @@ -33,12 +33,12 @@ extern "C" { F77_RET_T - F77_FUNC (jcobi, JCOBI) (int&, int&, int&, int&, double&, + F77_FUNC (jcobi, JCOBI) (octave_idx_type&, octave_idx_type&, octave_idx_type&, octave_idx_type&, double&, double&, double*, double*, double*, double*); F77_RET_T - F77_FUNC (dfopr, DFOPR) (int&, int&, int&, int&, int&, int&, + F77_FUNC (dfopr, DFOPR) (octave_idx_type&, octave_idx_type&, octave_idx_type&, octave_idx_type&, octave_idx_type&, octave_idx_type&, double*, double*, double*, double*, double*); } @@ -91,7 +91,7 @@ return; } - int nt = n + inc_left + inc_right; + octave_idx_type nt = n + inc_left + inc_right; if (nt < 0) { @@ -125,29 +125,29 @@ F77_FUNC (jcobi, JCOBI) (nt, n, inc_left, inc_right, Alpha, Beta, pdif1, pdif2, pdif3, pr); - int id; + octave_idx_type id; // First derivative weights. id = 1; - for (int i = 1; i <= nt; i++) + for (octave_idx_type i = 1; i <= nt; i++) { F77_FUNC (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, pdif1, pdif2, pdif3, pr, pvect); - for (int j = 0; j < nt; j++) + for (octave_idx_type j = 0; j < nt; j++) A (i-1, j) = vect.elem (j); } // Second derivative weights. id = 2; - for (int i = 1; i <= nt; i++) + for (octave_idx_type i = 1; i <= nt; i++) { F77_FUNC (dfopr, DFOPR) (nt, n, inc_left, inc_right, i, id, pdif1, pdif2, pdif3, pr, pvect); - for (int j = 0; j < nt; j++) + for (octave_idx_type j = 0; j < nt; j++) B (i-1, j) = vect.elem (j); }