[Commits] [svn:einsteintoolkit] incoming/EOS_Omni/ (Rev. 5)

[knarf at cct.lsu.edu]

User: knarf
Date: 2010/08/16 09:12 AM

Added:
 /EOS_Omni/src/
  EOS_Omni_Names.cpp

Modified:
 /EOS_Omni/
  interface.ccl
 /EOS_Omni/src/
  make.code.defn

Log:
 provide function to get EOS key/handle by string/name: EOS_Omni_GetHandle

File Changes:

Directory: /EOS_Omni/
=====================

File [modified]: interface.ccl
Delta lines: +2 -0
===================================================================
--- EOS_Omni/interface.ccl	2010-08-09 14:20:16 UTC (rev 4)
+++ EOS_Omni/interface.ccl	2010-08-16 14:12:22 UTC (rev 5)
@@ -4,6 +4,8 @@
 
 inherits: 
 
+CCTK_INT FUNCTION EOS_Omni_GetHandle(CCTK_STRING IN name)
+
 void FUNCTION EOS_Omni_press(CCTK_INT IN eoskey,         \
 			     CCTK_INT IN havetemp,       \
                              CCTK_INT IN npoints,        \

Directory: /EOS_Omni/src/
=========================

File [added]: EOS_Omni_Names.cpp
Delta lines: +15 -0
===================================================================
--- EOS_Omni/src/EOS_Omni_Names.cpp	                        (rev 0)
+++ EOS_Omni/src/EOS_Omni_Names.cpp	2010-08-16 14:12:22 UTC (rev 5)
@@ -0,0 +1,15 @@
+#include <cctk.h>
+#include <cctk_Arguments.h>
+#include <cctk_Parameters.h>
+
+CCTK_INT EOS_Omni_GetHandle(CCTK_STRING name)
+{
+    if (CCTK_EQUALS(name, "2D_Polytrope"))
+        return 1;
+    if (CCTK_EQUALS(name, "Ideal_Fluid"))
+        return 2;
+    if (CCTK_EQUALS(name, "Hybrid"))
+        return 3;
+    return 0;
+}
+

File [modified]: make.code.defn
Delta lines: +1 -1
===================================================================
--- EOS_Omni/src/make.code.defn	2010-08-09 14:20:16 UTC (rev 4)
+++ EOS_Omni/src/make.code.defn	2010-08-16 14:12:22 UTC (rev 5)
@@ -1,7 +1,7 @@
 # Main make.code.defn file for thorn EOS_Omni
 
 # Source files in this directory
-SRCS = EOS_Omni_Module.F90 EOS_Omni_Startup.F90 EOS_Omni_SingleVarCalls.F90
+SRCS = EOS_Omni_Module.F90 EOS_Omni_Startup.F90 EOS_Omni_SingleVarCalls.F90 EOS_Omni_Names.cpp
 
 # Subdirectories containing source files
 SUBDIRS =