diff options
| author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-07-26 12:22:40 +0000 |
|---|---|---|
| committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-07-26 12:22:40 +0000 |
| commit | 025aa71bd85ab3ed70df96382fb0507590b2bf38 (patch) | |
| tree | 5022862cde1289b24c24ea7995885e8914121dde | |
| parent | acff6a87a6c6418c87d7fe8a1b767902c3e01d65 (diff) | |
New SetSymmetry command
New SetSymmetry command
New SetSymmetry command
New SetSymmetry command
New SetSymmetry command
New SetSymmetry command
New SetSymmetry command
New SetSymmetry command
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@13 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
| -rw-r--r-- | src/InitSymBound.F | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/src/InitSymBound.F b/src/InitSymBound.F index d5dfc6d..12f16e4 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -31,13 +31,26 @@ DECLARE_CCTK_FARGUMENTS - INTEGER,PARAMETER :: one = 1 + INTEGER, PARAMETER :: one = 1 + INTEGER, DIMENSION(3) :: sym c GROUP: constraints - call SetSymmetry(cctkGH, one, one, one,'admconstraints::ham') - call SetSymmetry(cctkGH,-one, one, one,'admconstraints::momx') - call SetSymmetry(cctkGH, one,-one, one,'admconstraints::momy') - call SetSymmetry(cctkGH, one, one,-one,'admconstraints::momz') + sym(1) = one + sym(2) = one + sym(3) = one + call SetCartSymmetry(cctkGH, sym, 'admconstraints::ham') + sym(1) = -one + sym(2) = one + sym(3) = one + call SetCartSymmetry(cctkGH, sym, 'admconstraints::momx') + sym(1) = one + sym(2) = -one + sym(3) = one + call SetCartSymmetry(cctkGH, sym, 'admconstraints::momy') + sym(1) = one + sym(2) = one + sym(3) = -one + call SetCartSymmetry(cctkGH, sym, 'admconstraints::momz') return |