From 099059a17440a8c6516bebd2afeceb081854258a Mon Sep 17 00:00:00 2001
From: goodale <goodale@d576a68a-b34a-40ae-82fc-004fa1a9d16f>
Date: Fri, 26 Apr 2002 13:17:06 +0000
Subject: 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
---
 src/InitSymBound.c | 104 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 src/make.code.defn |   2 +-
 2 files changed, 105 insertions(+), 1 deletion(-)
 create mode 100644 src/InitSymBound.c

(limited to 'src')

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 = 
-- 
cgit v1.2.3