Removed the functions GetCartSymGI and GetCartSymGN since they currently

have the wrong interface and anyway are not needed.

Fixed Cactus/1182


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@170 c78560ca-4b45-4335-b268-5f3340f3cb52

1 files changed, 0 insertions, 106 deletions

diff --git a/src/GetSymmetry.c b/src/GetSymmetry.c
index 4fbc67c..7c6767c 100644
--- a/src/GetSymmetry.c
+++ b/src/GetSymmetry.c
@@ -36,11 +36,6 @@ void CCTK_FCALL CCTK_FNAME(GetCartSymVI)
                           (int *ierr, const cGH *GH, int *sym, const int *vi);
 void CCTK_FCALL CCTK_FNAME(GetCartSymVN)
                           (int *ierr, const cGH *GH, int *sym, ONE_FORTSTRING_ARG);
-void CCTK_FCALL CCTK_FNAME(GetCartSymGI)
-                          (int *ierr, const cGH *GH, int *sym, const int *gi);
-void CCTK_FCALL CCTK_FNAME(GetCartSymGN)
-                          (int *ierr, const cGH *GH, int *sym, ONE_FORTSTRING_ARG);
-
 
 /********************************************************************
  *********************     External Routines   **********************
@@ -126,104 +121,3 @@ void CCTK_FCALL CCTK_FNAME(GetCartSymVN)
 }
 
 
-/*@@
-  @routine GetCartSymGI
-  @date    April 12 2002
-  @author  Frank Herrmann
-  @desc
-           Gets symmetry boundary conditions from Group index
-  @enddesc
-@@*/
-int GetCartSymGI(const cGH *GH, int *sym, int gi)
-{
-  int domainsym[MAX_FACE];
-  SymmetryGHex *sGHex;
-  int first_vari,numvars,vi;
-  int dir;
-  DECLARE_CCTK_PARAMETERS
-
-
-  CCTK_WARN(3,"this code was not yet tested");
-
-
-  sGHex =(SymmetryGHex *)CCTK_GHExtension(GH, "Symmetry");
-
-  first_vari = CCTK_FirstVarIndexI(gi);
-  numvars    = CCTK_NumVarsInGroupI(gi);
-
-  if (first_vari<0)
-  {
-    CCTK_VWarn(1,__LINE__,__FILE__,CCTK_THORNSTRING,
-               "Cannot find group %s (grp.index: %d) in GetCartSymGI",
-               CCTK_GroupName(gi),first_vari);
-    return(-1);
-  }
-
-  /* Reference the hash table in the GHex and get the kind of
-   * symmetry which was applied
-   */
-  for (vi=first_vari; vi<first_vari+numvars; vi++)
-  {
-
-#ifdef SYM_DEBUG
-    printf("GetSymmetry: %s   [%d,%d,%d]\n",CCTK_VarName(vi),
-           sym[0],sym[1],sym[2]);
-#endif
-
-    DecodeSymParameters3D (domainsym);
-
-    for (dir=0; dir<MAX_FACE; dir++)
-    {
-      /* this was copied from SetSymmetry.c.
-       * a couple of cases are not checked, in particular GFSYM_NOSYM
-       * for simple octant symmetry, sym[] will contain the symmetry
-       * value. Other cases have not been checked.
-       */
-      if (domainsym[dir])
-      {
-        sym[dir/2]=sGHex->GFSym[vi][dir];
-      }
-    }
-
-  }
-  return(0);
-}
-
-void CCTK_FCALL CCTK_FNAME(GetCartSymGI)
-                          (int *ierr, const cGH *GH, int *sym, const int *gi)
-{
-  *ierr = GetCartSymGI(GH, sym, *gi);
-}
-
-
- /*@@
-   @routine    GetCartSymGN
-   @date       April 12 2002
-   @author     Frank Herrmann
-   @desc
-               Gets symmetry boundary conditions from groupname
-   @enddesc
-@@*/
-int GetCartSymGN(const cGH *GH, int *sym, const char *gn)
-{
-  int gi = CCTK_GroupIndex(gn);
-
-  if (gi>-1)
-  {
-    return(GetCartSymGI(GH, sym, gi));
-  }
-  else
-  {
-    CCTK_VWarn(1,__LINE__,__FILE__,CCTK_THORNSTRING,
-               "Cannot find group %s in GetCartSymGN",gn);
-    return(-1);
-  }
-}
-
-void CCTK_FCALL CCTK_FNAME(GetCartSymGN)
-                          (int *ierr, const cGH *GH, int *sym, ONE_FORTSTRING_ARG)
-{
-  ONE_FORTSTRING_CREATE(gn)
-  *ierr = GetCartSymGN(GH, sym, gn);
-  free(gn);
-}