From d324ef7f4c2e2de9b29f3110e3d25f5bff1d16a6 Mon Sep 17 00:00:00 2001 From: knarf Date: Wed, 2 Dec 2009 22:22:53 +0000 Subject: thorns for general eos interface (moved from Whisky_Dev repositories) git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOSG_IdealFluid/trunk@2 9002d74a-9e00-4850-b1cf-9d84fd065b5d --- src/EOS_GIF_Setup.c | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100755 src/EOS_GIF_Setup.c (limited to 'src/EOS_GIF_Setup.c') diff --git a/src/EOS_GIF_Setup.c b/src/EOS_GIF_Setup.c new file mode 100755 index 0000000..330c97c --- /dev/null +++ b/src/EOS_GIF_Setup.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_GIF.h" + +void EOS_GIF_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 Temperature", + "Dependent variable names"); + Util_TableSetString(table_handle, + "Ideal Fluid", + "EOS Name"); + + ierr = EOS_RegisterCall(table_handle, + EOS_GIF_SetArray); + if (ierr) + { + CCTK_WARN(0, "Failed to set up EOS_IdealFluid call"); + } +} -- cgit v1.2.3