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/TRK_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/TRK_declare.h')
| -rw-r--r-- | src/macro/TRK_declare.h | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/src/macro/TRK_declare.h b/src/macro/TRK_declare.h new file mode 100644 index 0000000..693df7c --- /dev/null +++ b/src/macro/TRK_declare.h @@ -0,0 +1,68 @@ +/*@@ + @header TRK_guts.h + @date Jun 98 + @author Gabrielle Allen + @desc + + Declarations for macro to calculate the trace of the Extrinsic + curvature + + @enddesc +@@*/ + +#ifndef TRK_DECLARE +#define TRK_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/UPPERMET_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef TRK_HXX +#define TRK_HXX hxx(i,j,k) +#undef TRK_HXY +#define TRK_HXY hxy(i,j,k) +#undef TRK_HXZ +#define TRK_HXZ hxz(i,j,k) +#undef TRK_HYY +#define TRK_HYY hyy(i,j,k) +#undef TRK_HYZ +#define TRK_HYZ hyz(i,j,k) +#undef TRK_HZZ +#define TRK_HZZ hzz(i,j,k) + +/* Output variables */ +#undef TRK_TRK +#define TRK_TRK trk_trK + +/* Declare output variables */ + REAL TRK_TRK + +#endif + +#ifdef CCODE + +/* Input variables */ +#undef TRK_HXX +#define TRK_HXX hxx[ijk] +#undef TRK_HXY +#define TRK_HXY hxy[ijk] +#undef TRK_HXZ +#define TRK_HXZ hxz[ijk] +#undef TRK_HYY +#define TRK_HYY hyy[ijk] +#undef TRK_HYZ +#define TRK_HYZ hyz[ijk] +#undef TRK_HZZ +#define TRK_HZZ hzz[ijk] + +/* Output variables */ +#undef TRK_TRK +#define TRK_TRK K + +/* Declare output variables */ +double TRK_TRK; + +#endif + +#endif |