Adding symmetries of more grid functions.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@73 89daf98e-ef62-4674-b946-b8ff9de2216c

1 files changed, 29 insertions, 3 deletions

diff --git a/src/SetSym.F b/src/SetSym.F
index 66a4899..8768816 100644
--- a/src/SetSym.F
+++ b/src/SetSym.F
@@ -33,9 +33,9 @@
       DECLARE_CCTK_FARGUMENTS 
       DECLARE_CCTK_PARAMETERS
 
-      INTEGER, PARAMETER :: one = 1
-      INTEGER sym(3)
-      INTEGER CCTK_Equals
+      CCTK_INT sym(3)
+      CCTK_INT CCTK_Equals
+      CCTK_INT, PARAMETER :: one = 1
 
 c     +,+,+
 
@@ -45,8 +45,34 @@ c     +,+,+
 
       call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgrid')
       call SetCartSymmetry(cctkGH,sym,'ahfinder::ahf_exp')
+      call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgradn')
+      call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgauss')
       call SetCartSymmetry(cctkGH,sym,'ahfinder::ahmask')
 
+c     -,+,+
+
+      sym(1)=-one
+      sym(2)=+one
+      sym(3)=+one
+
+      call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgradx')
+
+c     +,-,+
+
+      sym(1)=+one
+      sym(2)=-one
+      sym(3)=+one
+
+      call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgrady')
+
+c     +,+,-
+
+      sym(1)=+one
+      sym(2)=+one
+      sym(3)=-one
+
+      call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgradz')
+
 c     End.
 
       end subroutine AHFinder_SetSym