64-BitBrainstorm_2026/AMSS-NCKU
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

asc26 amss-ncku initialized

Browse Source
This commit is contained in:
CGH0S7
2026-01-13 15:01:15 +08:00
commit f2fc9af70e
272 changed files with 262274 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
AMSS_NCKU_source/rungekutta4_rout.h Normal file
View File

@@ -0,0 +1,57 @@
#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 */