diff options
author | lanfer <lanfer@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-09-17 12:24:43 +0000 |
---|---|---|
committer | lanfer <lanfer@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-09-17 12:24:43 +0000 |
commit | 8bfc0e3664bd68c70709e294f90797f48e0d6427 (patch) | |
tree | 0792db174fec444958e644509f964b50d8c286ff /src | |
parent | 04555d7fe6cfcfbdda5cb31f4c0e95afcba4f3e2 (diff) |
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
Diffstat (limited to 'src')
-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)); +} + + |