asc26 amss-ncku initialized

2026-01-13 15:01:15 +08:00
commit f2fc9af70e
272 changed files with 262274 additions and 0 deletions
--- a/AMSS_NCKU_source/initial_scalar.h
+++ b/AMSS_NCKU_source/initial_scalar.h
@@ -0,0 +1,31 @@
+
+#ifndef GET_INITIAL_SCALAR_H
+#define GET_INITIAL_SCALAR_H
+
+#ifdef fortran1
+#define f_get_initial_scalar get_initial_scalar
+#define f_get_initial_scalar_sh get_initial_scalar_sh
+#endif
+#ifdef fortran2
+#define f_get_initial_scalar GET_INITIAL_SCALAR
+#define f_get_initial_scalar_sh GET_INITIAL_SCALAR_SH
+#endif
+#ifdef fortran3
+#define f_get_initial_scalar get_initial_scalar_
+#define f_get_initial_scalar_sh get_initial_scalar_sh_
+#endif
+
+extern "C"
+{
+    void f_get_initial_scalar(int *, double *, double *, double *,
+                              double *, double *,
+                              double &, double &, double &);
+}
+
+extern "C"
+{
+    void f_get_initial_scalar_sh(int *, double *, double *, double *,
+                                 double *, double *,
+                                 double &, double &, double &);
+}
+#endif /* GET_INITIAL_SCALAR_H */