* EOS_Omni thorn:

    Initial implementation providing a polytrope and a gamma-law EOS for testing.



git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/EOS_Omni@1 8e189c6b-2ab8-4400-aa02-70a9cfce18b9

1 files changed, 18 insertions, 0 deletions

diff --git a/src/EOS_Omni_Startup.F90 b/src/EOS_Omni_Startup.F90
new file mode 100644
index 0000000..7a9a2f7
--- /dev/null
+++ b/src/EOS_Omni_Startup.F90
@@ -0,0 +1,18 @@
+#include "cctk.h"
+#include "cctk_Parameters.h"
+#include "cctk_Arguments.h"
+#include "cctk_Functions.h"
+
+subroutine EOS_Omni_Startup(CCTK_ARGUMENTS)
+
+  use EOS_Omni_Module
+  implicit none
+
+  DECLARE_CCTK_PARAMETERS
+  DECLARE_CCTK_ARGUMENTS
+
+  poly_k_cgs = poly_k * rho_gf**poly_gamma / press_gf
+
+  gl_k_cgs   = gl_k * rho_gf**gl_gamma / press_gf
+
+end subroutine EOS_Omni_Startup