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/shellfunctions.h
+++ b/AMSS_NCKU_source/shellfunctions.h
@@ -0,0 +1,112 @@
+
+#ifndef SHELLFUNCTIONS_H
+#define SHELLFUNCTIONS_H
+
+#ifdef fortran1
+#define f_get_initial_nbhs_sh get_initial_nbhs_sh
+#define f_xp_getxyz xp_getxyz
+#define f_xm_getxyz xm_getxyz
+#define f_yp_getxyz yp_getxyz
+#define f_ym_getxyz ym_getxyz
+#define f_zp_getxyz zp_getxyz
+#define f_zm_getxyz zm_getxyz
+#define f_xpm_getjacobian xpm_getjacobian
+#define f_ypm_getjacobian ypm_getjacobian
+#define f_zpm_getjacobian zpm_getjacobian
+#define f_shellcordpar shellcordpar
+#endif
+#ifdef fortran2
+#define f_get_initial_nbhs_sh GET_INITIAL_NBHS_SH
+#define f_xp_getxyz XP_GETXYZ
+#define f_xm_getxyz XM_GETXYZ
+#define f_yp_getxyz YP_GETXYZ
+#define f_ym_getxyz YM_GETXYZ
+#define f_zp_getxyz ZP_GETXYZ
+#define f_zm_getxyz ZM_GETXYZ
+#define f_xpm_getjacobian XPM_GETJACOBIAN
+#define f_ypm_getjacobian YPM_GETJACOBIAN
+#define f_zpm_getjacobian ZPM_GETJACOBIAN
+#define f_shellcordpar SHELLCORDPAR
+#endif
+#ifdef fortran3
+#define f_get_initial_nbhs_sh get_initial_nbhs_sh_
+#define f_xp_getxyz xp_getxyz_
+#define f_xm_getxyz xm_getxyz_
+#define f_yp_getxyz yp_getxyz_
+#define f_ym_getxyz ym_getxyz_
+#define f_zp_getxyz zp_getxyz_
+#define f_zm_getxyz zm_getxyz_
+#define f_xpm_getjacobian xpm_getjacobian_
+#define f_ypm_getjacobian ypm_getjacobian_
+#define f_zpm_getjacobian zpm_getjacobian_
+#define f_shellcordpar shellcordpar_
+#endif
+
+extern "C"
+{
+	void f_get_initial_nbhs_sh(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 *,
+							   double *, double *, double *, double *, int &);
+}
+
+extern "C"
+{
+	void f_xp_getxyz(int *, double *, double *, double *, double *, double *, double *);
+}
+extern "C"
+{
+	void f_xm_getxyz(int *, double *, double *, double *, double *, double *, double *);
+}
+extern "C"
+{
+	void f_yp_getxyz(int *, double *, double *, double *, double *, double *, double *);
+}
+extern "C"
+{
+	void f_ym_getxyz(int *, double *, double *, double *, double *, double *, double *);
+}
+extern "C"
+{
+	void f_zp_getxyz(int *, double *, double *, double *, double *, double *, double *);
+}
+extern "C"
+{
+	void f_zm_getxyz(int *, double *, double *, double *, double *, double *, double *);
+}
+
+extern "C"
+{
+	void f_xpm_getjacobian(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 *,
+						   double *, double *, double *, double *, double *, double *);
+}
+extern "C"
+{
+	void f_ypm_getjacobian(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 *,
+						   double *, double *, double *, double *, double *, double *);
+}
+extern "C"
+{
+	void f_zpm_getjacobian(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 *,
+						   double *, double *, double *, double *, double *, double *);
+}
+
+extern "C"
+{
+	void f_shellcordpar(double &, double &, double &, double &);
+}
+
+#endif /* SHELLFUNCTIONS_H */