58 lines
1.2 KiB
C
58 lines
1.2 KiB
C
|
|
#ifndef RUNGEKUTTA4_H
|
|
#define RUNGEKUTTA4_H
|
|
|
|
#ifdef fortran1
|
|
#define f_euler_rout euler_rout
|
|
#define f_rungekutta4_rout rungekutta4_rout
|
|
#define f_rungekutta4_scalar rungekutta4_scalar
|
|
#define f_icn_rout icn_rout
|
|
#define f_icn_scalar icn_scalar
|
|
#endif
|
|
#ifdef fortran2
|
|
#define f_euler_rout EULER_ROUT
|
|
#define f_rungekutta4_rout RUNGEKUTTA4_ROUT
|
|
#define f_rungekutta4_scalar RUNGEKUTTA4_SCALAR
|
|
#define f_icn_rout ICN_ROUT
|
|
#define f_icn_scalar ICN_SCALAR
|
|
#endif
|
|
#ifdef fortran3
|
|
#define f_euler_rout euler_rout_
|
|
#define f_rungekutta4_rout rungekutta4_rout_
|
|
#define f_rungekutta4_scalar rungekutta4_scalar_
|
|
#define f_icn_rout icn_rout_
|
|
#define f_icn_scalar icn_scalar_
|
|
#endif
|
|
|
|
extern "C"
|
|
{
|
|
void f_rungekutta4_scalar(double &, double &, double &, double &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
int f_rungekutta4_rout(int *, double &,
|
|
double *, double *, double *,
|
|
int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_icn_scalar(double &, double &, double &, double &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
int f_icn_rout(int *, double &,
|
|
double *, double *, double *,
|
|
int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
int f_euler_rout(int *, double &,
|
|
double *, double *, double *);
|
|
}
|
|
|
|
#endif /* RUNGEKUTTA4_H */
|