From a396a2bf0cea5ec901f298b3b219df0db202f714 Mon Sep 17 00:00:00 2001 From: allen Date: Mon, 28 Jun 1999 10:51:05 +0000 Subject: GH->cctkGH, new symmetry routines, and decided I didn't need to register the GF symmetries at every timestep! git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@10 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/InitSymBound.F | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/InitSymBound.F') diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 1e11e8d..b8f3533 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -34,10 +34,10 @@ INTEGER,PARAMETER :: one = 1 c GROUP: constraints - call SetSym(GH, one, one, one,'admconstraints::ham') - call SetSym(GH,-one, one, one,'admconstraints::momx') - call SetSym(GH, one,-one, one,'admconstraints::momy') - call SetSym(GH, one, one,-one,'admconstraints::momz') + 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') return -- cgit v1.2.3