#include <cinttypes>
#include <sstream>
#include "LSODE.h"
#include "f77-fcn.h"
#include "lo-error.h"
#include "quit.h"
Go to the source code of this file.
|
typedef F77_INT(* | lsode_fcn_ptr) (const F77_INT &, const double &, double *, double *, F77_INT &) |
|
typedef F77_INT(* | lsode_jac_ptr) (const F77_INT &, const double &, double *, const F77_INT &, const F77_INT &, double *, const F77_INT &) |
|
|
F77_RET_T | F77_FUNC (dlsode, DLSODE)(lsode_fcn_ptr |
|
static F77_INT | lsode_f (const F77_INT &neq, const double &time, double *, double *deriv, F77_INT &ierr) |
|
static F77_INT | lsode_j (const F77_INT &neq, const double &time, double *, const F77_INT &, const F77_INT &, double *pd, const F77_INT &nrowpd) |
|
◆ lsode_fcn_ptr
◆ lsode_jac_ptr
◆ F77_FUNC()
◆ lsode_f()
static F77_INT lsode_f |
( |
const F77_INT & |
neq, |
|
|
const double & |
time, |
|
|
double * |
, |
|
|
double * |
deriv, |
|
|
F77_INT & |
ierr |
|
) |
| |
|
static |
◆ lsode_j()
◆ tmp_x
◆ user_fun
◆ user_jac