Mercurial > hg > octave-lyh
diff liboctave/LSODE.cc @ 11495:8a5e980da6aa
style fixes
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 13 Jan 2011 02:09:02 -0500 |
| parents | 12884915a8e4 |
| children | 4638800cd660 |
line wrap: on
line diff
--- a/liboctave/LSODE.cc +++ b/liboctave/LSODE.cc @@ -35,20 +35,26 @@ #include "lo-math.h" #include "quit.h" -typedef octave_idx_type (*lsode_fcn_ptr) (const octave_idx_type&, const double&, double*, - double*, octave_idx_type&); +typedef octave_idx_type (*lsode_fcn_ptr) (const octave_idx_type&, + const double&, double*, + double*, octave_idx_type&); -typedef octave_idx_type (*lsode_jac_ptr) (const octave_idx_type&, const double&, double*, - const octave_idx_type&, const octave_idx_type&, double*, const - octave_idx_type&); +typedef octave_idx_type (*lsode_jac_ptr) (const octave_idx_type&, + const double&, double*, + const octave_idx_type&, + const octave_idx_type&, + double*, const octave_idx_type&); extern "C" { F77_RET_T - F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, octave_idx_type&, double*, double&, - double&, octave_idx_type&, double&, const double*, octave_idx_type&, - octave_idx_type&, octave_idx_type&, double*, octave_idx_type&, octave_idx_type*, octave_idx_type&, - lsode_jac_ptr, octave_idx_type&); + F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, octave_idx_type&, double*, + double&, double&, octave_idx_type&, double&, + const double*, octave_idx_type&, + octave_idx_type&, octave_idx_type&, + double*, octave_idx_type&, octave_idx_type*, + octave_idx_type&, lsode_jac_ptr, + octave_idx_type&); } static ODEFunc::ODERHSFunc user_fun;