From b854f02b194c53d9631bbbe8443f842c178abd14 Mon Sep 17 00:00:00 2001
From: knarf <knarf@57fe0bb3-ccba-405f-9b23-de0201f165b7>
Date: Fri, 2 Oct 2009 15:22:00 +0000
Subject: add missing file

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/HydroBase/trunk@12 57fe0bb3-ccba-405f-9b23-de0201f165b7
---
 src/Initialisation.c | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 src/Initialisation.c

diff --git a/src/Initialisation.c b/src/Initialisation.c
new file mode 100644
index 0000000..de2411c
--- /dev/null
+++ b/src/Initialisation.c
@@ -0,0 +1,31 @@
+#include "cctk.h"
+
+#include "cctk_Arguments.h"
+#include "cctk_Parameters.h"
+
+void HydroBase_Y_e_one(CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS;
+  DECLARE_CCTK_PARAMETERS;
+  int i;
+
+  for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
+    Y_e[i] = 1.0;
+  
+  if (CCTK_ActiveTimeLevels(cctkGH, "HydroBase::Y_e") > 1)
+    for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
+      Y_e_p[i] = 1.0;
+  
+  if (CCTK_ActiveTimeLevels(cctkGH, "HydroBase::Y_e") > 2)
+    for(i = 0; i < cctk_lsh[0]*cctk_lsh[1]*cctk_lsh[2]; i++)
+      Y_e_p_p[i] = 1.0;
+}
+
+/*void HydroBase_SetY_eStateOn(CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS;
+  DECLARE_CCTK_PARAMETERS;
+
+  *Y_e_state = 1;
+}*/
+
-- 
cgit v1.2.3