1 files changed, 104 insertions, 0 deletions
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;
+}