diff options
author | knarf <knarf@9002d74a-9e00-4850-b1cf-9d84fd065b5d> | 2009-12-02 22:22:53 +0000 |
---|---|---|
committer | knarf <knarf@9002d74a-9e00-4850-b1cf-9d84fd065b5d> | 2009-12-02 22:22:53 +0000 |
commit | d324ef7f4c2e2de9b29f3110e3d25f5bff1d16a6 (patch) | |
tree | 30fd9eb39302e9d9928c153fc406d8b0f8f81b2e /src/EOS_GIF_Setup.c | |
parent | 8dae45ad0c7465172e619abffc7a0e4e8d9cfef0 (diff) |
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
Diffstat (limited to 'src/EOS_GIF_Setup.c')
-rwxr-xr-x | src/EOS_GIF_Setup.c | 42 |
1 files changed, 42 insertions, 0 deletions
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"); + } +} |