Mercurial > octave
comparison liboctave/numeric/LSODE.cc @ 22133:59cadee1c74b
new macros for F77 data types
* f77-fcn.h (F77_DBLE, F77_REAL, F77_DBLE_CMPLX, F77_CMPLX, F77_INT,
F77_INT4, F77_LOGICAL): New macros.
* fortrandemo.cc, __pchip_deriv__.cc, dot.cc, interpreter.cc,
ordschur.cc, qz.cc, CColVector.cc, CMatrix.cc, CNDArray.cc,
CRowVector.cc, CSparse.cc, dColVector.cc, dMatrix.cc, dNDArray.cc,
dRowVector.cc, dSparse.cc, fCColVector.cc, fCMatrix.cc,
fCNDArray.cc, fCRowVector.cc, fColVector.cc, fMatrix.cc,
fNDArray.cc, fRowVector.cc, DASPK.cc, DASRT.cc, DASSL.cc, EIG.cc,
LSODE.cc, Quad.cc, aepbalance.cc, chol.cc, eigs-base.cc, fEIG.cc,
gepbalance.cc, hess.cc, lo-specfun.cc, lu.cc, oct-convn.cc,
oct-rand.cc, qr.cc, qrp.cc, randpoisson.cc, schur.cc, svd.cc:
Use new macros in declarations of Fortran subroutines.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sun, 17 Jul 2016 12:42:37 -0400 |
| parents | aba2e6293dd8 |
| children | bac0d6f07a3e |
comparison
equal
deleted
inserted
replaced
| 22132:27b63b55bacb | 22133:59cadee1c74b |
|---|---|
| 45 double*, const octave_idx_type&); | 45 double*, const octave_idx_type&); |
| 46 | 46 |
| 47 extern "C" | 47 extern "C" |
| 48 { | 48 { |
| 49 F77_RET_T | 49 F77_RET_T |
| 50 F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, octave_idx_type&, double*, | 50 F77_FUNC (dlsode, DLSODE) (lsode_fcn_ptr, F77_INT&, F77_DBLE*, |
| 51 double&, double&, octave_idx_type&, double&, | 51 F77_DBLE&, F77_DBLE&, F77_INT&, F77_DBLE&, |
| 52 const double*, octave_idx_type&, | 52 const F77_DBLE*, F77_INT&, |
| 53 octave_idx_type&, octave_idx_type&, | 53 F77_INT&, F77_INT&, |
| 54 double*, octave_idx_type&, octave_idx_type*, | 54 F77_DBLE*, F77_INT&, F77_INT*, |
| 55 octave_idx_type&, lsode_jac_ptr, | 55 F77_INT&, lsode_jac_ptr, |
| 56 octave_idx_type&); | 56 F77_INT&); |
| 57 } | 57 } |
| 58 | 58 |
| 59 static ODEFunc::ODERHSFunc user_fun; | 59 static ODEFunc::ODERHSFunc user_fun; |
| 60 static ODEFunc::ODEJacFunc user_jac; | 60 static ODEFunc::ODEJacFunc user_jac; |
| 61 static ColumnVector *tmp_x; | 61 static ColumnVector *tmp_x; |