diff options
| author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-05-13 18:04:31 +0000 |
|---|---|---|
| committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-05-13 18:04:31 +0000 |
| commit | 705464313de52afdbbca5f098cb0293ec8986d4a (patch) | |
| tree | 76b387bc6e7613b56c9eb0a80c26d579f175558a /src | |
| parent | 0d84029ae8ed58a9188c0dc8b01782b7a1e0015d (diff) | |
Added symmetries for GFs
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@6 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
| -rw-r--r-- | src/InitSymBound.F | 45 | ||||
| -rw-r--r-- | src/make.code.defn | 2 |
2 files changed, 46 insertions, 1 deletions
diff --git a/src/InitSymBound.F b/src/InitSymBound.F new file mode 100644 index 0000000..1e11e8d --- /dev/null +++ b/src/InitSymBound.F @@ -0,0 +1,45 @@ + /*@@ + @file InitSymBound.F + @date May 13 1999 + @author Gabrielle Allen + @desc + Sets the symmetries for the Constraint grid functions + @enddesc + @@*/ + +#include "cctk.h" +#include "declare_arguments.h" + + /*@@ + @routine InitSymBound + @date May 13 1999 + @author Gabrielle Allen + @desc + Sets the symmetries for the Constraint grid functions + @enddesc + @calls + @calledby + @history + + @endhistory + +@@*/ + + subroutine ADMConstraint_InitSymBound(CCTK_FARGUMENTS) + + implicit none + + DECLARE_CCTK_FARGUMENTS + + 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') + + return + + end subroutine ADMConstraint_InitSymbound + diff --git a/src/make.code.defn b/src/make.code.defn index b5f7acc..66dae0d 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -2,7 +2,7 @@ # $Header$ # Source files in this directory -SRCS = ADMConstraints.F +SRCS = ADMConstraints.F InitSymBound.F # Subdirectories containing source files SUBDIRS = |