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/CDCDA_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/CDCDA_guts.h')
| -rw-r--r-- | src/macro/CDCDA_guts.h | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/src/macro/CDCDA_guts.h b/src/macro/CDCDA_guts.h new file mode 100644 index 0000000..08d7661 --- /dev/null +++ b/src/macro/CDCDA_guts.h @@ -0,0 +1,43 @@ +/*@@ + @header CDCDA_guts.h + @date Jul 98 + @author Gabrielle Allen + @desc + Macro to calculate all second covariant spatial derivative of lapse + + That is alpha_{;ij} + + @enddesc +@@*/ + +#ifndef CDCDA_GUTS +#define CDCDA_GUTS + +#include "../../packages/CactusEinstein/Einstein/src/macro/DA_guts.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/DDA_guts.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/CHR2_guts.h" + +#ifdef FCODE + + CDCDA_CDXXDA = (DDA_DXXDA-CHR2_XXX*DA_DXDA-CHR2_YXX*DA_DYDA-CHR2_ZXX*DA_DZDA) + CDCDA_CDXYDA = (DDA_DXYDA-CHR2_XXY*DA_DXDA-CHR2_YXY*DA_DYDA-CHR2_ZXY*DA_DZDA) + CDCDA_CDXZDA = (DDA_DXZDA-CHR2_XXZ*DA_DXDA-CHR2_YXZ*DA_DYDA-CHR2_ZXZ*DA_DZDA) + CDCDA_CDYYDA = (DDA_DYYDA-CHR2_XYY*DA_DXDA-CHR2_YYY*DA_DYDA-CHR2_ZYY*DA_DZDA) + CDCDA_CDYZDA = (DDA_DYZDA-CHR2_XYZ*DA_DXDA-CHR2_YYZ*DA_DYDA-CHR2_ZYZ*DA_DZDA) + CDCDA_CDZZDA = (DDA_DZZDA-CHR2_XZZ*DA_DXDA-CHR2_YZZ*DA_DYDA-CHR2_ZZZ*DA_DZDA) + +#endif + +#ifdef CCODE + + CDCDA_CDXXDA = (DDA_DXXDA-CHR2_XXX*DA_DXDA-CHR2_YXX*DA_DYDA-CHR2_ZXX*DA_DZDA); + CDCDA_CDXYDA = (DDA_DXYDA-CHR2_XXY*DA_DXDA-CHR2_YXY*DA_DYDA-CHR2_ZXY*DA_DZDA); + CDCDA_CDXZDA = (DDA_DXZDA-CHR2_XXZ*DA_DXDA-CHR2_YXZ*DA_DYDA-CHR2_ZXZ*DA_DZDA); + CDCDA_CDYYDA = (DDA_DYYDA-CHR2_XYY*DA_DXDA-CHR2_YYY*DA_DYDA-CHR2_ZYY*DA_DZDA); + CDCDA_CDYZDA = (DDA_DYZDA-CHR2_XYZ*DA_DXDA-CHR2_YYZ*DA_DYDA-CHR2_ZYZ*DA_DZDA); + CDCDA_CDZZDA = (DDA_DZZDA-CHR2_XZZ*DA_DXDA-CHR2_YZZ*DA_DYDA-CHR2_ZZZ*DA_DZDA); + +#endif + +#endif + |