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/CDZCDK_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/CDZCDK_declare.h')
| -rw-r--r-- | src/macro/CDZCDK_declare.h | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/src/macro/CDZCDK_declare.h b/src/macro/CDZCDK_declare.h new file mode 100644 index 0000000..5f518aa --- /dev/null +++ b/src/macro/CDZCDK_declare.h @@ -0,0 +1,98 @@ +/*@@ + @header CDZCDK_declare.h + @date Aug 98 + @author Gabrielle Allen + @desc + Declarations for macro to compute first conformal + derivatives of the extrinsic curvature with respect to z + @enddesc +@@*/ + +#ifndef CDZCDK_DECLARE +#define CDZCDK_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/DZDK_declare.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/CHR2_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef CDZCDK_KXX +#define CDZCDK_KXX hxx(i,j,k) +#undef CDZCDK_KXY +#define CDZCDK_KXY hxy(i,j,k) +#undef CDZCDK_KXZ +#define CDZCDK_KXZ hxz(i,j,k) +#undef CDZCDK_KYY +#define CDZCDK_KYY hyy(i,j,k) +#undef CDZCDK_KYZ +#define CDZCDK_KYZ hyz(i,j,k) +#undef CDZCDK_KZZ +#define CDZCDK_KZZ hzz(i,j,k) + +/* Output variables */ +#undef CDZCDK_CDZCDKXX +#define CDZCDK_CDZCDKXX cdzcdk_cdzcdkxx +#undef CDZCDK_CDZCDKXY +#define CDZCDK_CDZCDKXY cdzcdk_cdzcdkxy +#undef CDZCDK_CDZCDKXZ +#define CDZCDK_CDZCDKXZ cdzcdk_cdzcdkxz +#undef CDZCDK_CDZCDKYY +#define CDZCDK_CDZCDKYY cdzcdk_cdzcdkyy +#undef CDZCDK_CDZCDKYZ +#define CDZCDK_CDZCDKYZ cdzcdk_cdzcdkyz +#undef CDZCDK_CDZCDKZZ +#define CDZCDK_CDZCDKZZ cdzcdk_cdzcdkzz + +/* Declare output variables */ + REAL CDZCDK_CDZCDKXX + REAL CDZCDK_CDZCDKXY + REAL CDZCDK_CDZCDKXZ + REAL CDZCDK_CDZCDKYY + REAL CDZCDK_CDZCDKYZ + REAL CDZCDK_CDZCDKZZ + +#endif + + +#ifdef CCODE + +/* Input variables */ +#undef CDZCDK_KXX +#define CDZCDK_KXX hxx[ijk] +#undef CDZCDK_KXY +#define CDZCDK_KXY hxy[ijk] +#undef CDZCDK_KXZ +#define CDZCDK_KXZ hxz[ijk] +#undef CDZCDK_KYY +#define CDZCDK_KYY hyy[ijk] +#undef CDZCDK_KYZ +#define CDZCDK_KYZ hyz[ijk] +#undef CDZCDK_KZZ +#define CDZCDK_KZZ hzz[ijk] + +/* Output variables */ +#undef CDZCDK_CDZCDKXX +#define CDZCDK_CDZCDKXX cdzcdk_cdzcdkxx +#undef CDZCDK_CDZCDKXY +#define CDZCDK_CDZCDKXY cdzcdk_cdzcdkxy +#undef CDZCDK_CDZCDKXZ +#define CDZCDK_CDZCDKXZ cdzcdk_cdzcdkxz +#undef CDZCDK_CDZCDKYY +#define CDZCDK_CDZCDKYY cdzcdk_cdzcdkyy +#undef CDZCDK_CDZCDKYZ +#define CDZCDK_CDZCDKYZ cdzcdk_cdzcdkyz +#undef CDZCDK_CDZCDKZZ +#define CDZCDK_CDZCDKZZ cdzcdk_cdzcdkzz + +/* Declare output variables */ +double CDZCDK_CDZCDKXX; +double CDZCDK_CDZCDKXY; +double CDZCDK_CDZCDKXZ; +double CDZCDK_CDZCDKYY; +double CDZCDK_CDZCDKYZ; +double CDZCDK_CDZCDKZZ; + +#endif + +#endif |