diff options
Diffstat (limited to 'src/EOS_GeneralHybrid_Startup.c')
-rwxr-xr-x | src/EOS_GeneralHybrid_Startup.c | 42 |
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"); + } +} |