diff options
-rw-r--r-- | src/SymmetryWrappers.c | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/src/SymmetryWrappers.c b/src/SymmetryWrappers.c index 68b1171..abc8e97 100644 --- a/src/SymmetryWrappers.c +++ b/src/SymmetryWrappers.c @@ -14,6 +14,13 @@ #include "cctk_FortranString.h" #include "Symmetry.h" +void CCTK_FCALL CCTK_FNAME(CartSymGI)(int *ierr, cGH *GH, int *gi); +void CCTK_FCALL CCTK_FNAME(CartSymGN) + (int *ierr, cGH *GH, ONE_FORTSTRING_ARG); +void CCTK_FCALL CCTK_FNAME(CartSymVI)(int *ierr, cGH *GH, int *vi); +void CCTK_FCALL CCTK_FNAME(CartSymVN) + (int *ierr, cGH *GH, ONE_FORTSTRING_ARG); + int CartApplySym3Di(cGH *GH, int gdim, int *doSym, @@ -108,11 +115,11 @@ int CartSymGI(cGH *GH, int gi) cntstag[2] = no_origin && no_originz && avoid_origin && avoid_originz; /* Use next time level, if present */ - time = CCTK_NumTimeLevelsFromVarI(first_vi) - 1; - if (time < 0) + time = 0; + /*if (time < 0) { time = 0; - } + }*/ for (vi=first_vi; vi<first_vi+numvars; vi++) { @@ -300,11 +307,11 @@ int CartSymVI(cGH *GH, int vi) cntstag[2] = no_origin && no_originz && avoid_origin && avoid_originz; /* Use next time level, if present */ - time = CCTK_NumTimeLevelsFromVarI(vi) - 1; - if (time < 0) + time = 0; + /* if (time < 0) { time = 0; - } + }*/ /* Apply Symmetries to lower sides [0,2,4] if: |