Temporarily adding InitSymBound.c until we have a better way of setting symmetries.

Tom


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMBase/trunk@4 d576a68a-b34a-40ae-82fc-004fa1a9d16f

3 files changed, 111 insertions, 1 deletions

diff --git a/schedule.ccl b/schedule.ccl
index 09adf9c..eebc683 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -50,3 +50,9 @@ if(CCTK_Equals(initial_shift, "zero"))
     LANG: C
   } "Set the shift to 0 at all points"
 }
+
+# FIXME: Remove this when symmetries done better 
+schedule Einstein_InitSymBound at CCTK_BASEGRID
+{
+  LANG: C
+} "Set up GF symmetries"
diff --git a/src/InitSymBound.c b/src/InitSymBound.c
new file mode 100644
index 0000000..c926b94
--- /dev/null
+++ b/src/InitSymBound.c
@@ -0,0 +1,104 @@
+ /*@@
+   @file    InitSymBound.F
+   @date    March 1999
+   @author  Gerd Lanfermann
+   @desc
+            Sets the symmetries for the Einstein grid functions
+   @enddesc
+ @@*/
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+
+#include "Symmetry.h"
+
+static const char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(CactusEinstein_Einstein_InitSymBound_c)
+
+void Einstein_InitSymBound(CCTK_ARGUMENTS);
+
+ /*@@
+   @routine    Einstein_InitSymBound
+   @date       March 1999
+   @author     Gerd Lanfermann
+   @desc 
+               Sets the symmetries for the Einstein grid functions
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+void Einstein_InitSymBound(CCTK_ARGUMENTS)
+{
+      
+  DECLARE_CCTK_ARGUMENTS 
+      
+  int one;
+  int sym[3];
+
+  one = 1;
+  
+  sym[0] =  one;
+  sym[1] =  one;
+  sym[2] =  one;
+  SetCartSymVN(cctkGH, sym,"admbase::gxx");
+  SetCartSymVN(cctkGH, sym,"admbase::gyy");
+  SetCartSymVN(cctkGH, sym,"admbase::gzz");
+  sym[0] = -one;
+  sym[1] = -one;
+  sym[2] =  one;
+  SetCartSymVN(cctkGH, sym,"admbase::gxy");
+  sym[0] = -one;
+  sym[1] =  one;
+  sym[2] = -one;
+  SetCartSymVN(cctkGH, sym,"admbase::gxz");
+  sym[0] =  one;
+  sym[1] = -one;
+  sym[2] = -one;
+  SetCartSymVN(cctkGH, sym,"admbase::gyz");
+  
+  /* GROUP: curv */
+  sym[0] =  one;
+  sym[1] =  one;
+  sym[2] =  one;
+  SetCartSymVN(cctkGH, sym,"admbase::kxx");
+  SetCartSymVN(cctkGH, sym,"admbase::kyy");
+  SetCartSymVN(cctkGH, sym,"admbase::kzz");
+  sym[0] = -one;
+  sym[1] = -one;
+  sym[2] =  one;
+  SetCartSymVN(cctkGH, sym,"admbase::kxy");
+  sym[0] = -one;
+  sym[1] =  one;
+  sym[2] = -one;
+  SetCartSymVN(cctkGH, sym,"admbase::kxz");
+  sym[0] =  one;
+  sym[1] = -one;
+  sym[2] = -one;
+  SetCartSymVN(cctkGH, sym,"admbase::kyz");
+  
+  sym[0] =  one;
+  sym[1] =  one;
+  sym[2] =  one;
+  SetCartSymVN(cctkGH, sym,"admbase::alp");
+
+  sym[0] = -one;
+  sym[1] =  one;
+  sym[2] =  one;
+  SetCartSymVN(cctkGH, sym,"admbase::betax");
+  sym[0] =  one;
+  sym[1] = -one;
+  sym[2] =  one;
+  SetCartSymVN(cctkGH, sym,"admbase::betay");
+  sym[0] =  one;
+  sym[1] =  one;
+  sym[2] = -one;
+  SetCartSymVN(cctkGH, sym,"admbase::betaz");
+
+  return;
+}
diff --git a/src/make.code.defn b/src/make.code.defn
index ef42295..b40cd8e 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -2,7 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = Initialisation.c
+SRCS = Initialisation.c InitSymBound.c
 
 # Subdirectories containing source files
 SUBDIRS =