diff options
author | rideout <rideout@80bd93c7-81bc-453a-9e3f-619c0b4f6fe4> | 2002-07-31 08:26:31 +0000 |
---|---|---|
committer | rideout <rideout@80bd93c7-81bc-453a-9e3f-619c0b4f6fe4> | 2002-07-31 08:26:31 +0000 |
commit | 24e70272e83e7c2d0f7d482a7303974a15ae39b5 (patch) | |
tree | 305ad8cd268a4983c47f9afd844f74821f6cf9b0 /src/Symmetry.c | |
parent | de3c11bf0308f78efc8c89ab33df96b3cfe44efc (diff) |
Register symmetries of Ricci.
Apply symmetry and flat boundary conditions to Ricci.
Added testsuite for Ricci output.
Fixes CactusEinstein/1165.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMAnalysis/trunk@14 80bd93c7-81bc-453a-9e3f-619c0b4f6fe4
Diffstat (limited to 'src/Symmetry.c')
-rw-r--r-- | src/Symmetry.c | 81 |
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 ************************* + ********************************************************************/ |