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/LIEK_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/LIEK_declare.h')
| -rw-r--r-- | src/macro/LIEK_declare.h | 110 |
1 files changed, 110 insertions, 0 deletions
diff --git a/src/macro/LIEK_declare.h b/src/macro/LIEK_declare.h new file mode 100644 index 0000000..7733658 --- /dev/null +++ b/src/macro/LIEK_declare.h @@ -0,0 +1,110 @@ +/*@@ + @header LIEK_declare.h + @date Jun 98 + @author Gabrielle Allen + @desc + Macro to calculate the Lie derivative of the lower + physical metric + + @enddesc +@@*/ + +#ifndef LIEK_DECLARE +#define LIEK_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/DB_declare.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/DK_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef LIEK_BX +#define LIEK_BX betax(i,j,k) +#undef LIEK_BY +#define LIEK_BY betay(i,j,k) +#undef LIEK_BZ +#define LIEK_BZ betaz(i,j,k) +#undef LIEK_KXX +#define LIEK_KXX hxx(i,j,k) +#undef LIEK_KXY +#define LIEK_KXY hxy(i,j,k) +#undef LIEK_KXZ +#define LIEK_KXZ hxz(i,j,k) +#undef LIEK_KYY +#define LIEK_KYY hyy(i,j,k) +#undef LIEK_KYZ +#define LIEK_KYZ hyz(i,j,k) +#undef LIEK_KZZ +#define LIEK_KZZ hzz(i,j,k) + +/* Output variables */ +#undef LIEK_LKXX +#define LIEK_LKXX liek_lkxx +#undef LIEK_LKXY +#define LIEK_LKXY liek_lkxy +#undef LIEK_LKXZ +#define LIEK_LKXZ liek_lkxz +#undef LIEK_LKYY +#define LIEK_LKYY liek_lkyy +#undef LIEK_LKYZ +#define LIEK_LKYZ liek_lkyz +#undef LIEK_LKZZ +#define LIEK_LKZZ liek_lkzz + +/* Declare output variables */ + REAL LIEK_LKXX + REAL LIEK_LKXY + REAL LIEK_LKXZ + REAL LIEK_LKYY + REAL LIEK_LKYZ + REAL LIEK_LKZZ + +#endif + +#ifdef CCODE + +/* Input variables */ +#undef LIEK_BX +#define LIEK_BX betax[ijk] +#undef LIEK_BY +#define LIEK_BY betay[ijk] +#undef LIEK_BZ +#define LIEK_BZ betaz[ijk] +#undef LIEK_KXX +#define LIEK_KXX hxx[ijk] +#undef LIEK_KXY +#define LIEK_KXY hxy[ijk] +#undef LIEK_KXZ +#define LIEK_KXZ hxz[ijk] +#undef LIEK_KYY +#define LIEK_KYY hyy[ijk] +#undef LIEK_KYZ +#define LIEK_KYZ hyz[ijk] +#undef LIEK_KZZ +#define LIEK_KZZ hzz[ijk] + +/* Output variables */ +#undef LIEK_LKXX +#define LIEK_LKXX liek_lkxx +#undef LIEK_LKXY +#define LIEK_LKXY liek_lkxy +#undef LIEK_LKXZ +#define LIEK_LKXZ liek_lkxz +#undef LIEK_LKYY +#define LIEK_LKYY liek_lkyy +#undef LIEK_LKYZ +#define LIEK_LKYZ liek_lkyz +#undef LIEK_LKZZ +#define LIEK_LKZZ liek_lkzz + +/* Declare output variables */ + double LIEK_LKXX; + double LIEK_LKXY; + double LIEK_LKXZ; + double LIEK_LKYY; + double LIEK_LKYZ; + double LIEK_LKZZ; + +#endif + +#endif |