thorns for general eos interface (moved from Whisky_Dev repositories)

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOSG_Hybrid/trunk@2 0a999221-0efe-4d2d-b270-2ec6803ffb49

1 files changed, 42 insertions, 0 deletions

diff --git a/src/EOS_GeneralHybrid_Startup.c b/src/EOS_GeneralHybrid_Startup.c
new file mode 100755
index 0000000..034aa11
--- /dev/null
+++ b/src/EOS_GeneralHybrid_Startup.c
@@ -0,0 +1,42 @@
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+#include "util_String.h"
+#include "util_ErrorCodes.h"
+#include "util_Table.h"
+
+#include "EOS_GeneralHybrid.h"
+
+void EOS_GeneralHybrid_Startup (CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS;
+  DECLARE_CCTK_PARAMETERS;
+
+  CCTK_INT ierr, table_handle;
+
+  table_handle = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
+
+  Util_TableSetInt(table_handle,
+                   N_INDEPS,
+                   "N independent variables");
+  Util_TableSetInt(table_handle,
+                   N_DEPS,
+                   "N dependent variables");
+  Util_TableSetString(table_handle,
+                      "Rho SpecificInternalEnergy",
+                      "Independent variable names");
+  Util_TableSetString(table_handle,
+                      "Pressure DPressureDRho DPressureDSpecificInternalEnergy c_s^2",
+                      "Dependent variable names");
+  Util_TableSetString(table_handle,
+                      "Hybrid",
+                      "EOS Name");
+
+  ierr = EOS_RegisterCall(table_handle,
+                          EOS_GeneralHybrid_SetArray);
+  if (ierr)
+    {
+      CCTK_WARN(0, "Failed to set up EOS_GeneralHybrid call");
+    }
+}