diff options
| author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2000-05-10 12:01:49 +0000 |
|---|---|---|
| committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2000-05-10 12:01:49 +0000 |
| commit | 008728225bad88587927677aee5659eb2fa45cea (patch) | |
| tree | 2e6b7a3aa133223a96849840bcc9fc62eb4c075f /src | |
| parent | 3fa4f27a05cc726ae811e420a5b39b5830990a65 (diff) | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/ADMConstraints.F | 2 | ||||
| -rw-r--r-- | 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 |