1 files changed, 81 insertions, 0 deletions
diff --git a/src/Symmetry.c b/src/Symmetry.c
new file mode 100644
index 0000000..96fa1ad
--- /dev/null
+++ b/src/Symmetry.c
@@ -0,0 +1,81 @@
+ /*@@
+   @file      Symmetry.c
+   @date      Tue Jul 30 11:15:23 CEST 2002
+   @author    David Rideout
+   @desc 
+   Symmetry registration stuff for ADMAnalysis
+   @enddesc
+   @version $Header$
+ @@*/
+
+#include "cctk.h"
+
+#include "cctk_Arguments.h"
+#include "Symmetry.h"
+
+static const char *rcsid = "$Header$";
+
+CCTK_FILEVERSION(CactusEinstein_ADMAnalysis_Symmetry_c)
+
+/********************************************************************
+ *********************     Local Data Types   ***********************
+ ********************************************************************/
+
+/********************************************************************
+ ********************* Local Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ ***************** Scheduled Routine Prototypes *********************
+ ********************************************************************/
+
+
+/********************************************************************
+ ********************* Other Routine Prototypes *********************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     Local Data   *****************************
+ ********************************************************************/
+
+/********************************************************************
+ *********************     External Routines   **********************
+
+ ********************************************************************/
+
+ /*@@
+   @routine    ADMAnalysis_RegisterSymmetry
+   @date       Tue Jul 30 11:31:50 CEST 2002
+   @author     David Rideout
+   @desc 
+   Scheduled routine to register symmetry of Ricci.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+ 
+ @@*/
+void ADMAnalysis_RegisterSymmetry(CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS;
+  int sym[3];
+
+  /*CCTK_INFO("Registering symmetries for ricci_scalar and ricci_tensor");*/
+  sym[0] = 1; sym[1] = 1; sym[2] = 1;
+  SetCartSymVN(cctkGH, sym, "ADMAnalysis::Ricci");
+  SetCartSymVN(cctkGH, sym, "ADMAnalysis::Ricci11");
+  SetCartSymVN(cctkGH, sym, "ADMAnalysis::Ricci22");
+  SetCartSymVN(cctkGH, sym, "ADMAnalysis::Ricci33");
+  sym[0] = -1; sym[1] = -1; sym[2] = 1;
+  SetCartSymVN(cctkGH, sym, "ADMAnalysis::Ricci12");
+  sym[0] = -1; sym[1] = 1; sym[2] = -1;
+  SetCartSymVN(cctkGH, sym, "ADMAnalysis::Ricci13");
+  sym[0] = 1; sym[1] = -1; sym[2] = -1;
+  SetCartSymVN(cctkGH, sym, "ADMAnalysis::Ricci23");
+}
+
+/********************************************************************
+ *********************     Local Routines   *************************
+ ********************************************************************/