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/TRT_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/TRT_declare.h')
-rw-r--r-- | src/macro/TRT_declare.h | 114 |
1 files changed, 114 insertions, 0 deletions
diff --git a/src/macro/TRT_declare.h b/src/macro/TRT_declare.h new file mode 100644 index 0000000..49463e3 --- /dev/null +++ b/src/macro/TRT_declare.h @@ -0,0 +1,114 @@ +/*@@ + @header TRT_guts.h + @date Jun 98 + @author Gabrielle Allen + @desc + + Declarations for macro to calculate the trace of the + (4-)stress-energy tensor + + @enddesc +@@*/ + +#ifndef TRT_DECLARE +#define TRT_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/UPPERMET_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef TRT_TTT +#define TRT_TTT Ttt +#undef TRT_TTX +#define TRT_TTX Ttx +#undef TRT_TTY +#define TRT_TTY Tty +#undef TRT_TTZ +#define TRT_TTZ Ttz +#undef TRT_TXX +#define TRT_TXX Txx +#undef TRT_TXY +#define TRT_TXY Txy +#undef TRT_TXZ +#define TRT_TXZ Txz +#undef TRT_TYY +#define TRT_TYY Tyy +#undef TRT_TYZ +#define TRT_TYZ Tyz +#undef TRT_TZZ +#define TRT_TZZ Tzz +#undef TRT_ALP +#define TRT_ALP alp(i,j,k) +#undef TRT_BX +#define TRT_BX betax(i,j,k) +#undef TRT_BY +#define TRT_BY betay(i,j,k) +#undef TRT_BZ +#define TRT_BZ betaz(i,j,k) + +/* Temporary variables */ +#undef TRT_IALP2 +#define TRT_IALP2 trt_ialp2 + +/* Output variables */ +#undef TRT_TRT +#define TRT_TRT trt_trt + +/* Declare temporary variables */ + REAL TRT_IALP2 + +/* Declare output variables */ + REAL TRT_TRT + +#endif + +#ifdef CCODE + +/* Input variables */ +#undef TRT_TTT +#define TRT_TTT Ttt +#undef TRT_TTX +#define TRT_TTX Ttx +#undef TRT_TTY +#define TRT_TTY Tty +#undef TRT_TTZ +#define TRT_TTZ Ttz +#undef TRT_TXX +#define TRT_TXX Txx +#undef TRT_TXY +#define TRT_TXY Txy +#undef TRT_TXZ +#define TRT_TXZ Txz +#undef TRT_TYY +#define TRT_TYY Tyy +#undef TRT_TYZ +#define TRT_TYZ Tyz +#undef TRT_TZZ +#define TRT_TZZ Tzz +#undef TRT_ALP +#define TRT_ALP alp[ijk] +#undef TRT_BX +#define TRT_BX betax[ijk] +#undef TRT_BY +#define TRT_BY betay[ijk] +#undef TRT_BZ +#define TRT_BZ betaz[ijk] + +/* Temporary variables */ +#undef TRT_IALP2 +#define TRT_IALP2 trt_ialp2 + +/* Output variables */ +#undef TRT_TRT +#define TRT_TRT trt_trt + +/* Declare temporary variables */ + double TRT_IALP2; + +/* Declare output variables */ + double TRT_TR; + +#endif + +#endif |