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/DCGDT_declare.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/DCGDT_declare.h')
-rw-r--r-- | src/macro/DCGDT_declare.h | 123 |
1 files changed, 123 insertions, 0 deletions
diff --git a/src/macro/DCGDT_declare.h b/src/macro/DCGDT_declare.h new file mode 100644 index 0000000..3208a76 --- /dev/null +++ b/src/macro/DCGDT_declare.h @@ -0,0 +1,123 @@ +/*@@ + @header DCGDT_declare.h + @date Jul 98 + @author Gabrielle Allen + @desc + Declarations for macro @seefile DCGDT_guts.h to calculate the source term + in the evolution equation for the conformal 3-metric. That is + + d g~_ij/dt =( - 2 alpha K_ij + L_beta g_ij )/Psi^4 + + where g~ is the conformal metric + @enddesc +@@*/ + +#ifndef DCGDT_DECLARE +#define DCGDT_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/LIEG_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef DCGDT_A +#define DCGDT_A alp(i,j,k) +#undef DCGDT_KXX +#define DCGDT_KXX hxx(i,j,k) +#undef DCGDT_KXY +#define DCGDT_KXY hxy(i,j,k) +#undef DCGDT_KXZ +#define DCGDT_KXZ hxz(i,j,k) +#undef DCGDT_KYY +#define DCGDT_KYY hyy(i,j,k) +#undef DCGDT_KYZ +#define DCGDT_KYZ hyz(i,j,k) +#undef DCGDT_KZZ +#define DCGDT_KZZ hzz(i,j,k) +#undef DCGDT_PSI +#define DCGDT_PSI psi(i,j,k) + +/* Internal variables */ +#undef DCGDT_IPSI4 +#define DCGDT_IPSI4 cdgdt_ipsi4 + +/* Output variables */ +#undef DCGDT_DCGXXDT +#define DCGDT_DCGXXDT cdgdt_cdgxxdt +#undef DCGDT_DCGXYDT +#define DCGDT_DCGXYDT cdgdt_cdgxydt +#undef DCGDT_DCGXZDT +#define DCGDT_DCGXZDT cdgdt_cdgxzdt +#undef DCGDT_DCGYYDT +#define DCGDT_DCGYYDT cdgdt_cdgyydt +#undef DCGDT_DCGYZDT +#define DCGDT_DCGYZDT cdgdt_cdgyzdt +#undef DCGDT_DCGZZDT +#define DCGDT_DCGZZDT cdgdt_cdgzzdt + +/* Declare internal variables */ + REAL DCGDT_IPSI4 + +/* Declare output variables */ + REAL DCGDT_DCGXXDT + REAL DCGDT_DCGXYDT + REAL DCGDT_DCGXZDT + REAL DCGDT_DCGYYDT + REAL DCGDT_DCGYZDT + REAL DCGDT_DCGZZDT + +#endif + + +#ifdef CCODE + +/* Input variables */ +#undef DCGDT_A +#define DCGDT_A alp[ijk] +#undef DCGDT_KXX +#define DCGDT_KXX hxx[ijk] +#undef DCGDT_KXY +#define DCGDT_KXY hxy[ijk] +#undef DCGDT_KXZ +#define DCGDT_KXZ hxz[ijk] +#undef DCGDT_KYY +#define DCGDT_KYY hyy[ijk] +#undef DCGDT_KYZ +#define DCGDT_KYZ hyz[ijk] +#undef DCGDT_KZZ +#define DCGDT_KZZ hzz[ijk] +#undef DCGDT_PSI +#define DCGDT_PSI psi[ijk] + +/* Internal variables */ +#undef DCGDT_IPSI4 +#define DCGDT_IPSI4 cdgdt_ipsi4 + +/* Output variables */ +#undef DCGDT_DCGXXDT +#define DCGDT_DCGXXDT cdgdt_cdgxxdt +#undef DCGDT_DCGXYDT +#define DCGDT_DCGXYDT cdgdt_cdgxydt +#undef DCGDT_DCGXZDT +#define DCGDT_DCGXZDT cdgdt_cdgxzdt +#undef DCGDT_DCGYYDT +#define DCGDT_DCGYYDT cdgdt_cdgyydt +#undef DCGDT_DCGYZDT +#define DCGDT_DCGYZDT cdgdt_cdgyzdt +#undef DCGDT_DCGZZDT +#define DCGDT_DCGZZDT cdgdt_cdgzzdt + +/* Declare internal variables */ + double DCGDT_IPSI4; + +/* Declare output variables */ + double DCGDT_DCGXXDT; + double DCGDT_DCGXYDT; + double DCGDT_DCGXZDT; + double DCGDT_DCGYYDT; + double DCGDT_DCGYZDT; + double DCGDT_DCGZZDT; + +#endif + +#endif |