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

* Sync new folder structure
This commit is contained in:
2026-04-23 20:55:40 +08:00
parent c185f99ee3
commit 17109fde9b
211 changed files with 189504 additions and 189280 deletions

View File

@@ -0,0 +1,42 @@
#ifndef KODISS_H
#define KODISS_H
#ifdef fortran1
#define f_kodis_sh kodis_sh
#define f_kodis_shcr kodis_shcr
#define f_kodis_shor kodis_shor
#endif
#ifdef fortran2
#define f_kodis_sh KODIS_SH
#define f_kodis_shcr KODIS_SHCR
#define f_kodis_shor KODIS_SHOR
#endif
#ifdef fortran3
#define f_kodis_sh kodis_sh_
#define f_kodis_shcr kodis_shcr_
#define f_kodis_shor kodis_shor_
#endif
extern "C"
{
void f_kodis_sh(int *, double *, double *, double *,
double *, double *,
double *, int &, double &, int &);
}
extern "C"
{
void f_kodis_shcr(int *, double *, double *, double *,
double *, double *,
double *, int &, double &, int &);
}
extern "C"
{
void f_kodis_shor(int *, double *, double *, double *,
double *, double *,
double *, int &, double &, int &);
}
#endif /* KODISS_H */