diff options
author | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-05-10 12:00:12 +0000 |
---|---|---|
committer | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-05-10 12:00:12 +0000 |
commit | 8eb30761b1500df3ad6a0113490ed73387cef451 (patch) | |
tree | 292505ee6f352fbcad737fbbe6c2e4f5f926dc6c /src/SetSym.F | |
parent | 352260d6792d2594fb65b26f9973568a255476c7 (diff) |
New names for symmetry boundary conditions
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@97 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/SetSym.F')
-rw-r--r-- | src/SetSym.F | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/src/SetSym.F b/src/SetSym.F index c780945..8b72363 100644 --- a/src/SetSym.F +++ b/src/SetSym.F @@ -34,6 +34,9 @@ DECLARE_CCTK_PARAMETERS CCTK_INT sym(3) + CCTK_INT CCTK_Equals + CCTK_INT, PARAMETER :: one = 1 + INTEGER :: ierr c +,+,+ @@ -41,11 +44,11 @@ c +,+,+ sym(2)=+1 sym(3)=+1 - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgrid') - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahf_exp') - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgradn') - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgauss') - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahmask') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahfgrid') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahf_exp') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahfgradn') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahfgauss') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahmask') c -,+,+ @@ -53,7 +56,7 @@ c -,+,+ sym(2)=+1 sym(3)=+1 - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgradx') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahfgradx') c +,-,+ @@ -61,7 +64,7 @@ c +,-,+ sym(2)=-1 sym(3)=+1 - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgrady') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahfgrady') c +,+,- @@ -69,7 +72,7 @@ c +,+,- sym(2)=+1 sym(3)=-1 - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgradz') + call SetCartSymVN(ierr,cctkGH,sym,'ahfinder::ahfgradz') c End. |