Mercurial > octave

comparison liboctave/numeric/LSODE.cc @ 30394:f3f3e3793fb5 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: style check C++ files in liboctave/ ahead of 7.1 release. * Array.cc, Array.h, CMatrix.cc, CSparse.cc, MArray.cc, MSparse.cc, MatrixType.cc, MatrixType.h, Range.cc, Range.h, Sparse.cc, Sparse.h, dMatrix.cc, dSparse.cc, fCMatrix.cc, fCMatrix.h, fMatrix.cc, fMatrix.h, idx-vector.cc, idx-vector.h, CollocWt.cc, CollocWt.h, DASPK.cc, DASRT.cc, DASSL.cc, EIG.cc, LSODE.cc, Quad.cc, aepbalance.cc, chol.cc, eigs-base.cc, gepbalance.cc, gsvd.cc, lo-amos-proto.h, lo-arpack-proto.h, lo-blas-proto.h, lo-lapack-proto.h, lo-qrupdate-proto.h, lo-specfun.cc, oct-convn.h, oct-fftw.h, oct-norm.cc, oct-spparms.cc, randmtzig.cc, sparse-chol.cc, sparse-dmsolve.cc, sparse-lu.cc, sparse-qr.cc, sparse-qr.h, svd.cc, file-ops.cc, file-stat.cc, lo-sysinfo.cc, oct-env.cc, f77-fcn.h, lo-cutils.h, lo-ieee.h, lo-regexp.cc, lo-utils.cc, oct-binmap.h, oct-inttypes.h, oct-sparse.cc, oct-sparse.h, oct-string.cc, url-transfer.cc: Style check C++ files in liboctave/ ahead of 7.1 release.
author Rik <rik@octave.org>
date Mon, 29 Nov 2021 10:03:47 -0800
parents fc509c3c445a
children 796f54d4ddbf
comparison
equal deleted inserted replaced
30392:5793f0355bfa 30394:f3f3e3793fb5
33 #include "LSODE.h" 33 #include "LSODE.h"
34 #include "f77-fcn.h" 34 #include "f77-fcn.h"
35 #include "lo-error.h" 35 #include "lo-error.h"
36 #include "quit.h" 36 #include "quit.h"
37 37
38 typedef F77_INT (*lsode_fcn_ptr) (const F77_INT&, const double&, double*, 38 typedef F77_INT (*lsode_fcn_ptr) (const F77_INT&, const double&, double *,
39 double*, F77_INT&); 39 double *, F77_INT&);
40 40
41 typedef F77_INT (*lsode_jac_ptr) (const F77_INT&, const double&, double*, 41 typedef F77_INT (*lsode_jac_ptr) (const F77_INT&, const double&, double *,
42 const F77_INT&, const F77_INT&, double*, 42 const F77_INT&, const F77_INT&, double *,
43 const F77_INT&); 43 const F77_INT&);
44 44
45 extern "C" 45 extern "C"
46 { 46 {
47 F77_RET_T 47 F77_RET_T
48 F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, F77_INT&, F77_DBLE*, F77_DBLE&, 48 F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, F77_INT&, F77_DBLE *, F77_DBLE&,
49 F77_DBLE&, F77_INT&, F77_DBLE&, const F77_DBLE*, 49 F77_DBLE&, F77_INT&, F77_DBLE&, const F77_DBLE *,
50 F77_INT&, F77_INT&, F77_INT&, F77_DBLE*, 50 F77_INT&, F77_INT&, F77_INT&, F77_DBLE *,
51 F77_INT&, F77_INT*, F77_INT&, lsode_jac_ptr, 51 F77_INT&, F77_INT *, F77_INT&, lsode_jac_ptr,
52 F77_INT&); 52 F77_INT&);
53 } 53 }
54 54
55 static ODEFunc::ODERHSFunc user_fun; 55 static ODEFunc::ODERHSFunc user_fun;
56 static ODEFunc::ODEJacFunc user_jac; 56 static ODEFunc::ODEJacFunc user_jac;