diff options
| author | evans <evans@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 1999-03-09 21:04:02 +0000 |
|---|---|---|
| committer | evans <evans@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 1999-03-09 21:04:02 +0000 |
| commit | 0a13cbb3d0f5ebf208d962d374a197c66bd13b1b (patch) | |
| tree | 19582fa856a1193d17170ad971353f58e7be36c9 /src/macro/MOMXADM_guts.h | |
| parent | c58897b8676212b9aee16d6d2f80ca2adeb50c6c (diff) | |
added the Einstien macros.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@2 b1d164ef-f17a-46e7-89d4-021c7118ef4e
Diffstat (limited to 'src/macro/MOMXADM_guts.h')
| -rw-r--r-- | src/macro/MOMXADM_guts.h | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/src/macro/MOMXADM_guts.h b/src/macro/MOMXADM_guts.h new file mode 100644 index 0000000..a497b41 --- /dev/null +++ b/src/macro/MOMXADM_guts.h @@ -0,0 +1,41 @@ +/*@@ + @header MOMXADM_guts.h + @date Aug 98 + @author Gabrielle Allen + @desc + Macro to calculate the spacetime part of the + x-Momentum Constraint. That is: + + Del_j K_x^j - Del_x trK + + @enddesc +@@*/ + +#ifndef MOMXADM_GUTS +#define MOMXADM_GUTS + +#include "../../packages/CactusEinstein/Einstein/src/macro/UPPERMET_guts.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/CDK_guts.h" + +#ifdef FCODE + + MOMXADM_MOMXADM = (-CDXCDK_CDXCDKXY + CDYCDK_CDYCDKXX)*UPPERMET_UXY + & + (-CDXCDK_CDXCDKXZ + CDZCDK_CDZCDKXX)*UPPERMET_UXZ + + & (-CDXCDK_CDXCDKYY + CDYCDK_CDYCDKXY)*UPPERMET_UYY + + & (-2*CDXCDK_CDXCDKYZ + CDYCDK_CDYCDKXZ + CDZCDK_CDZCDKXY)* + & UPPERMET_UYZ + (-CDXCDK_CDXCDKZZ + CDZCDK_CDZCDKXZ)*UPPERMET_UZZ + +#endif + +#ifdef CCODE + + MOMXADM_MOMXADM = (-CDXCDK_CDXCDKXY + CDYCDK_CDYCDKXX)*UPPERMET_UXY + + (-CDXCDK_CDXCDKXZ + CDZCDK_CDZCDKXX)*UPPERMET_UXZ + + (-CDXCDK_CDXCDKYY + CDYCDK_CDYCDKXY)*UPPERMET_UYY + + (-2*CDXCDK_CDXCDKYZ + CDYCDK_CDYCDKXZ + CDZCDK_CDZCDKXY)* + UPPERMET_UYZ + (-CDXCDK_CDXCDKZZ + CDZCDK_CDZCDKXZ)*UPPERMET_UZZ; + +#endif + +#endif + |