diff options
author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2002-05-27 18:26:50 +0000 |
---|---|---|
committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2002-05-27 18:26:50 +0000 |
commit | 812c1f169ce7678111dd0c21c878f38ced014b67 (patch) | |
tree | 720c52f8a10cbf6cfc592aec7547ecf4f0107c56 /src/InitSymBound.F | |
parent | 0e9d7de52d12fc6f3f2d7179aec4187bae08e90a (diff) |
Use mask without using excision calls, this may need some more tweaking
depending on how excision labels points in the mask, but this will be
sorted out in the near future.
Converted to F77, then realised that this might be a bad idea since people
might be including F90 in the CalcTmunu stuff, so left the files labeled
as F90 for now.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@69 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src/InitSymBound.F')
-rw-r--r-- | src/InitSymBound.F | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/src/InitSymBound.F b/src/InitSymBound.F index fdefad6..00cfefa 100644 --- a/src/InitSymBound.F +++ b/src/InitSymBound.F @@ -5,6 +5,7 @@ @desc Sets the symmetries for the Constraint grid functions @enddesc + @version $Header$ @@*/ #include "cctk.h" @@ -31,29 +32,41 @@ DECLARE_CCTK_ARGUMENTS - INTEGER, PARAMETER :: one = 1 - INTEGER, DIMENSION(3) :: sym - INTEGER :: ierr + INTEGER one + PARAMETER (one=1) + + INTEGER sym(3) + INTEGER ierr -c GROUP: constraints sym(1) = one sym(2) = one sym(3) = one call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::ham') + if (ierr .lt. 0) then + call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::ham") + end if sym(1) = -one sym(2) = one sym(3) = one call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momx') + if (ierr .lt. 0) then + call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::momx") + end if sym(1) = one sym(2) = -one sym(3) = one call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momy') + if (ierr .lt. 0) then + call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::momy") + end if sym(1) = one sym(2) = one sym(3) = -one call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momz') + if (ierr .lt. 0) then + call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::momz") + end if return - - end subroutine ADMConstraint_InitSymbound + end |