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/CDXCDK_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/CDXCDK_guts.h')
| -rw-r--r-- | src/macro/CDXCDK_guts.h | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/src/macro/CDXCDK_guts.h b/src/macro/CDXCDK_guts.h new file mode 100644 index 0000000..710d791 --- /dev/null +++ b/src/macro/CDXCDK_guts.h @@ -0,0 +1,60 @@ +/*@@ + @header CDXCDK_guts.h + @date August 98 + @author Gabrielle Allen + @desc + Macro to calculate the first conformal derivatives of the + extrinsic curvature with respect to x + @enddesc +@@*/ + +#ifndef CDXCDK_GUTS +#define CDXCDK_GUTS + +#include "../../packages/CactusEinstein/Einstein/src/macro/DXDK_guts.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/CHR2_guts.h" + +#ifdef FCODE + + CDXCDK_CDXCDKXX = DXDK_DXDKXX - 2D0*(CHR2_XXX*CDXCDK_KXX + & + CHR2_YXX*CDXCDK_KXY + CHR2_ZXX*CDXCDK_KXZ) + CDXCDK_CDXCDKYY = DXDK_DXDKYY - 2D0*(CHR2_XXY*CDXCDK_KXY + & + CHR2_YXY*CDXCDK_KYY + CHR2_ZXY*CDXCDK_KYZ) + CDXCDK_CDXCDKZZ = DXDK_DXDKZZ - 2D0*(CHR2_XXZ*CDXCDK_KXZ + & + CHR2_YXZ*CDXCDK_KYZ + CHR2_ZXZ*CDXCDK_KZZ) + + CDXCDK_CDXCDKXY = DXDK_DXDKXY - CHR2_XXY*CDXCDK_KXX - + & (CHR2_XXX + CHR2_YXY)*CDXCDK_KXY - CHR2_ZXY*CDXCDK_KXZ - + & CHR2_YXX*CDXCDK_KYY - CHR2_ZXX*CDXCDK_KYZ + CDXCDK_CDXCDKXZ = DXDK_DXDKXZ - CHR2_XXZ*CDXCDK_KXX - + & (CHR2_XXX + CHR2_ZXZ)*CDXCDK_KXZ - CHR2_YXZ*CDXCDK_KXY - + & CHR2_YXX*CDXCDK_KYZ - CHR2_ZXX*CDXCDK_KZZ + CDXCDK_CDXCDKYZ = DXDK_DXDKYZ - CHR2_XXZ*CDXCDK_KXY - + & CHR2_XXY*CDXCDK_KXZ - CHR2_YXZ*CDXCDK_KYY - + & (CHR2_YXY + CHR2_ZXZ)*CDXCDK_KYZ - CHR2_ZXY*CDXCDK_KZZ + +#endif + +#ifdef CCODE + + CDXCDK_CDXCDKXX = DXDK_DXDKXX - 2D0*(CHR2_XXX*CDXCDK_KXX + + CHR2_YXX*CDXCDK_KXY + CHR2_ZXX*CDXCDK_KXZ); + CDXCDK_CDXCDKYY = DXDK_DXDKYY - 2D0*(CHR2_XXY*CDXCDK_KXY + + CHR2_YXY*CDXCDK_KYY + CHR2_ZXY*CDXCDK_KYZ); + CDXCDK_CDXCDKZZ = DXDK_DXDKZZ - 2D0*(CHR2_XXZ*CDXCDK_KXZ + + CHR2_YXZ*CDXCDK_KYZ + CHR2_ZXZ*CDXCDK_KZZ); + + CDXCDK_CDXCDKXY = DXDK_DXDKXY - CHR2_XXY*CDXCDK_KXX - + (CHR2_XXX + CHR2_YXY)*CDXCDK_KXY - CHR2_ZXY*CDXCDK_KXZ - + CHR2_YXX*CDXCDK_KYY - CHR2_ZXX*CDXCDK_KYZ; + CDXCDK_CDXCDKXZ = DXDK_DXDKXZ - CHR2_XXZ*CDXCDK_KXX - + (CHR2_XXX + CHR2_ZXZ)*CDXCDK_KXZ - CHR2_YXZ*CDXCDK_KXY - + CHR2_YXX*CDXCDK_KYZ - CHR2_ZXX*CDXCDK_KZZ; + CDXCDK_CDXCDKYZ = DXDK_DXDKYZ - CHR2_XXZ*CDXCDK_KXY - + CHR2_XXY*CDXCDK_KXZ - CHR2_YXZ*CDXCDK_KYY - + (CHR2_YXY + CHR2_ZXZ)*CDXCDK_KYZ - CHR2_ZXY*CDXCDK_KZZ; + + +#endif + +#endif |