From 8bfc0e3664bd68c70709e294f90797f48e0d6427 Mon Sep 17 00:00:00 2001 From: lanfer Date: Fri, 17 Sep 1999 12:24:43 +0000 Subject: added a routine ApplySymmetryVarI which applies the sym. to the group VarI belongs to; needed by Elliptic solvers in Fortran git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@54 c78560ca-4b45-4335-b268-5f3340f3cb52 --- src/Symmetry.c | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Symmetry.c b/src/Symmetry.c index 0a7a9df..4fcb559 100644 --- a/src/Symmetry.c +++ b/src/Symmetry.c @@ -129,10 +129,12 @@ void FMODIFIER FORTRAN_NAME(SetCartSymmetry)(cGH *GH, int *sym, ONE_FORTSTRING_ @date Mon Mar 15 15:16:28 1999 @author Gerd Lanfermann @desc - Routine applies the symmetry BC to the GF is a group as set by SetSym + Takes the GH and the name of the group. + + Routine applies the symmetry BC to the GFs of a group as set by SetSym in GHExtension. It is called by C or Fortran (via a wrapper) by passing the group name. The assignment of the symmetries is carried out - by the F routine FortranSym + by the F routine FortranSym. @enddesc @calls FortranSym @calledby @@ -237,6 +239,11 @@ void FMODIFIER FORTRAN_NAME(ApplySymmetry)(cGH *GH, ONE_FORTSTRING_ARG) { free(name); } +void FMODIFIER FORTRAN_NAME(ApplySymmetryVarI)(cGH *GH, int *vi) { + ApplySymmetry(GH, CCTK_GroupNameFromVarI(*vi)); +} + + -- cgit v1.2.3