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

[TEST]UPSTREAM: Pick some source changes from 48080d0a97

Browse Source 
* Sync new folder structure
This commit is contained in:
ianchb
2026-04-23 20:55:40 +08:00
parent c185f99ee3
commit 17109fde9b
211 changed files with 189504 additions and 189280 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
AMSS_NCKU_source/BSSN/sommerfeld_rout.h Normal file
View File

@@ -0,0 +1,53 @@
#ifndef SOMMERFELD_ROUT_H
#define SOMMERFELD_ROUT_H
#ifdef fortran1
#define f_sommerfeld_rout sommerfeld_rout
#define f_sommerfeld_routbam sommerfeld_routbam
#define f_sommerfeld_routbam_ss sommerfeld_routbam_ss
#define f_falloff_ss falloff_ss
#endif
#ifdef fortran2
#define f_sommerfeld_rout SOMMERFELD_ROUT
#define f_sommerfeld_rout SOMMERFELD_ROUTBAM
#define f_sommerfeld_rout_ss SOMMERFELD_ROUTBAM_SS
#define f_falloff_ss FALLOFF_SS
#endif
#ifdef fortran3
#define f_sommerfeld_rout sommerfeld_rout_
#define f_sommerfeld_routbam sommerfeld_routbam_
#define f_sommerfeld_routbam_ss sommerfeld_routbam_ss_
#define f_falloff_ss falloff_ss_
#endif
extern "C"
{
void f_sommerfeld_rout(int *, double *, double *, double *,
double &, double &, double &, double &, double &, double &, double &, double *,
double *, double *, double *, double *,
int &, int &);
}
extern "C"
{
void f_sommerfeld_routbam(int *, double *, double *, double *,
double &, double &, double &, double &, double &, double &, double *,
double *, double &, double *, int &);
}
extern "C"
{
void f_sommerfeld_routbam_ss(int *, double *, double *, double *,
double &, double &, double &, double &, double &, double &, double *,
double *, double &, double *, int &);
}
extern "C"
{
void f_falloff_ss(int *, double *, double *, double *,
double &, double &, double &, double &, double &, double &, double *,
int &, double *, int &);
}
#endif /* SOMMERFELD_ROUT_H */