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/CDXCDK_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/CDXCDK_declare.h')
-rw-r--r-- | src/macro/CDXCDK_declare.h | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/src/macro/CDXCDK_declare.h b/src/macro/CDXCDK_declare.h new file mode 100644 index 0000000..6c9a4e7 --- /dev/null +++ b/src/macro/CDXCDK_declare.h @@ -0,0 +1,98 @@ +/*@@ + @header CDXCDK_declare.h + @date Aug 98 + @author Gabrielle Allen + @desc + Declarations for macro to compute first conformal + derivatives of the extrinsic curvature with respect to x + @enddesc +@@*/ + +#ifndef CDXCDK_DECLARE +#define CDXCDK_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/DXDK_declare.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/CHR2_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef CDXCDK_KXX +#define CDXCDK_KXX hxx(i,j,k) +#undef CDXCDK_KXY +#define CDXCDK_KXY hxy(i,j,k) +#undef CDXCDK_KXZ +#define CDXCDK_KXZ hxz(i,j,k) +#undef CDXCDK_KYY +#define CDXCDK_KYY hyy(i,j,k) +#undef CDXCDK_KYZ +#define CDXCDK_KYZ hyz(i,j,k) +#undef CDXCDK_KZZ +#define CDXCDK_KZZ hzz(i,j,k) + +/* Output variables */ +#undef CDXCDK_CDXCDKXX +#define CDXCDK_CDXCDKXX cdxcdk_cdxcdkxx +#undef CDXCDK_CDXCDKXY +#define CDXCDK_CDXCDKXY cdxcdk_cdxcdkxy +#undef CDXCDK_CDXCDKXZ +#define CDXCDK_CDXCDKXZ cdxcdk_cdxcdkxz +#undef CDXCDK_CDXCDKYY +#define CDXCDK_CDXCDKYY cdxcdk_cdxcdkyy +#undef CDXCDK_CDXCDKYZ +#define CDXCDK_CDXCDKYZ cdxcdk_cdxcdkyz +#undef CDXCDK_CDXCDKZZ +#define CDXCDK_CDXCDKZZ cdxcdk_cdxcdkzz + +/* Declare output variables */ + REAL CDXCDK_CDXCDKXX + REAL CDXCDK_CDXCDKXY + REAL CDXCDK_CDXCDKXZ + REAL CDXCDK_CDXCDKYY + REAL CDXCDK_CDXCDKYZ + REAL CDXCDK_CDXCDKZZ + +#endif + + +#ifdef CCODE + +/* Input variables */ +#undef CDXCDK_KXX +#define CDXCDK_KXX hxx[ijk] +#undef CDXCDK_KXY +#define CDXCDK_KXY hxy[ijk] +#undef CDXCDK_KXZ +#define CDXCDK_KXZ hxz[ijk] +#undef CDXCDK_KYY +#define CDXCDK_KYY hyy[ijk] +#undef CDXCDK_KYZ +#define CDXCDK_KYZ hyz[ijk] +#undef CDXCDK_KZZ +#define CDXCDK_KZZ hzz[ijk] + +/* Output variables */ +#undef CDXCDK_CDXCDKXX +#define CDXCDK_CDXCDKXX cdxcdk_cdxcdkxx +#undef CDXCDK_CDXCDKXY +#define CDXCDK_CDXCDKXY cdxcdk_cdxcdkxy +#undef CDXCDK_CDXCDKXZ +#define CDXCDK_CDXCDKXZ cdxcdk_cdxcdkxz +#undef CDXCDK_CDXCDKYY +#define CDXCDK_CDXCDKYY cdxcdk_cdxcdkyy +#undef CDXCDK_CDXCDKYZ +#define CDXCDK_CDXCDKYZ cdxcdk_cdxcdkyz +#undef CDXCDK_CDXCDKZZ +#define CDXCDK_CDXCDKZZ cdxcdk_cdxcdkzz + +/* Declare output variables */ +double CDXCDK_CDXCDKXX; +double CDXCDK_CDXCDKXY; +double CDXCDK_CDXCDKXZ; +double CDXCDK_CDXCDKYY; +double CDXCDK_CDXCDKYZ; +double CDXCDK_CDXCDKZZ; + +#endif + +#endif |