From 008728225bad88587927677aee5659eb2fa45cea Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 10 May 2000 12:01:49 +0000 Subject: New names for symmetry boundary conditions New macros for calling fortran from C git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@34 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 2 +- src/InitSymBound.F | 9 +++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index c999936..33735c5 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -172,7 +172,7 @@ c ---------------------------------- c Synchronize and apply flat boundary conditions - call CartSymBCGroup(ierr,cctkGH,"admconstraints::admconstraints") + call CartSymGN(ierr,cctkGH,"admconstraints::admconstraints") if (CCTK_Equals(bound,"flat") == 1) then call FlatBCGroup(ierr,cctkGH,sw,"admconstraints::admconstraints") diff --git a/src/InitSymBound.F b/src/InitSymBound.F index 63d7a85..fdefad6 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -33,24 +33,25 @@ INTEGER, PARAMETER :: one = 1 INTEGER, DIMENSION(3) :: sym + INTEGER :: ierr c GROUP: constraints sym(1) = one sym(2) = one sym(3) = one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::ham') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::ham') sym(1) = -one sym(2) = one sym(3) = one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::momx') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momx') sym(1) = one sym(2) = -one sym(3) = one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::momy') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momy') sym(1) = one sym(2) = one sym(3) = -one - call SetCartSymmetry(cctkGH, sym, 'admconstraints::momz') + call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momz') return -- cgit v1.2.3