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

76
AMSS_NCKU_source/Derivative/derivatives.h Normal file
View File

@@ -0,0 +1,76 @@
#ifndef DERIVATIVES
#define DERIVATIVES
#ifdef fortran1
#define f_fderivs fderivs
#define f_fderivs_sh fderivs_sh
#define f_fderivs_shc fderivs_shc
#define f_fdderivs_shc fdderivs_shc
#define f_fdderivs fdderivs
#endif
#ifdef fortran2
#define f_fderivs FDERIVS
#define f_fderivs_sh FDERIVS_SH
#define f_fderivs_shc FDERIVS_SHC
#define f_fdderivs_shc FDDERIVS_SHC
#define f_fdderivs FDDERIVS
#endif
#ifdef fortran3
#define f_fderivs fderivs_
#define f_fderivs_sh fderivs_sh_
#define f_fderivs_shc fderivs_shc_
#define f_fdderivs_shc fdderivs_shc_
#define f_fdderivs fdderivs_
#endif
extern "C"
{
void f_fderivs(int *, double *,
double *, double *, double *,
double *, double *, double *,
double &, double &, double &, int &, int &);
}
extern "C"
{
void f_fderivs_sh(int *, double *,
double *, double *, double *,
double *, double *, double *,
double &, double &, double &, int &, int &, int &);
}
extern "C"
{
void f_fderivs_shc(int *, double *,
double *, double *, double *,
double *, double *, double *,
double &, double &, double &, int &, int &, int &,
double *, double *, double *,
double *, double *, double *,
double *, double *, double *);
}
extern "C"
{
void f_fdderivs_shc(int *, double *,
double *, double *, double *, double *, double *, double *,
double *, double *, double *,
double &, double &, double &, int &, int &, int &,
double *, double *, double *,
double *, double *, double *,
double *, double *, double *,
double *, double *, double *, double *, double *, double *,
double *, double *, double *, double *, double *, double *,
double *, double *, double *, double *, double *, double *);
}
extern "C"
{
void f_fdderivs(int *, double *,
double *, double *, double *, double *, double *, double *,
double *, double *, double *,
double &, double &, double &, int &, int &);
}
#endif /* DERIVATIVES */