Mercurial > octave-nkf
diff liboctave/CollocWt.cc @ 10314:07ebe522dac2
untabify liboctave C++ sources
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 11 Feb 2010 12:23:32 -0500 |
| parents | 4c0cdbe0acca |
| children | 12884915a8e4 |
line wrap: on
line diff
--- a/liboctave/CollocWt.cc Thu Feb 11 12:16:43 2010 -0500 +++ b/liboctave/CollocWt.cc Thu Feb 11 12:23:32 2010 -0500 @@ -35,13 +35,13 @@ { F77_RET_T F77_FUNC (jcobi, JCOBI) (octave_idx_type&, octave_idx_type&, octave_idx_type&, octave_idx_type&, double&, - double&, double*, double*, double*, - double*); + double&, double*, double*, double*, + double*); F77_RET_T 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*); + double*, double*, double*, double*, + double*); } // Error handling. @@ -124,7 +124,7 @@ // Compute roots. F77_FUNC (jcobi, JCOBI) (nt, n, inc_left, inc_right, Alpha, Beta, - pdif1, pdif2, pdif3, pr); + pdif1, pdif2, pdif3, pr); octave_idx_type id; @@ -134,10 +134,10 @@ 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); + pdif2, pdif3, pr, pvect); for (octave_idx_type j = 0; j < nt; j++) - A (i-1, j) = vect.elem (j); + A (i-1, j) = vect.elem (j); } // Second derivative weights. @@ -146,10 +146,10 @@ 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); + pdif2, pdif3, pr, pvect); for (octave_idx_type j = 0; j < nt; j++) - B (i-1, j) = vect.elem (j); + B (i-1, j) = vect.elem (j); } // Gaussian quadrature weights. @@ -157,7 +157,7 @@ id = 3; double *pq = q.fortran_vec (); F77_FUNC (dfopr, DFOPR) (nt, n, inc_left, inc_right, id, id, pdif1, - pdif2, pdif3, pr, pq); + pdif2, pdif3, pr, pq); initialized = 1; }