From bb4898d9778932478898e6297c9eac1b388ce900 Mon Sep 17 00:00:00 2001
From: allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52>
Date: Thu, 10 May 2001 17:13:37 +0000
Subject: New timelevel indexing

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@138 c78560ca-4b45-4335-b268-5f3340f3cb52
---
 src/SymmetryWrappers.c | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'src')

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