diff options
-rw-r--r-- | src/Symmetry.c | 11 |
1 files changed, 9 insertions, 2 deletions
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)); +} + + |