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/CDYCDK_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/CDYCDK_declare.h')
| -rw-r--r-- | src/macro/CDYCDK_declare.h | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/src/macro/CDYCDK_declare.h b/src/macro/CDYCDK_declare.h new file mode 100644 index 0000000..759e218 --- /dev/null +++ b/src/macro/CDYCDK_declare.h @@ -0,0 +1,98 @@ +/*@@ + @header CDYCDK_declare.h + @date Aug 98 + @author Gabrielle Allen + @desc + Declarations for macro to compute first conformal + derivatives of the extrinsic curvature with respect to y + @enddesc +@@*/ + +#ifndef CDYCDK_DECLARE +#define CDYCDK_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/DYDK_declare.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/CHR2_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef CDYCDK_KXX +#define CDYCDK_KXX hxx(i,j,k) +#undef CDYCDK_KXY +#define CDYCDK_KXY hxy(i,j,k) +#undef CDYCDK_KXZ +#define CDYCDK_KXZ hxz(i,j,k) +#undef CDYCDK_KYY +#define CDYCDK_KYY hyy(i,j,k) +#undef CDYCDK_KYZ +#define CDYCDK_KYZ hyz(i,j,k) +#undef CDYCDK_KZZ +#define CDYCDK_KZZ hzz(i,j,k) + +/* Output variables */ +#undef CDYCDK_CDYCDKXX +#define CDYCDK_CDYCDKXX cdycdk_cdycdkxx +#undef CDYCDK_CDYCDKXY +#define CDYCDK_CDYCDKXY cdycdk_cdycdkxy +#undef CDYCDK_CDYCDKXZ +#define CDYCDK_CDYCDKXZ cdycdk_cdycdkxz +#undef CDYCDK_CDYCDKYY +#define CDYCDK_CDYCDKYY cdycdk_cdycdkyy +#undef CDYCDK_CDYCDKYZ +#define CDYCDK_CDYCDKYZ cdycdk_cdycdkyz +#undef CDYCDK_CDYCDKZZ +#define CDYCDK_CDYCDKZZ cdycdk_cdycdkzz + +/* Declare output variables */ + REAL CDYCDK_CDYCDKXX + REAL CDYCDK_CDYCDKXY + REAL CDYCDK_CDYCDKXZ + REAL CDYCDK_CDYCDKYY + REAL CDYCDK_CDYCDKYZ + REAL CDYCDK_CDYCDKZZ + +#endif + + +#ifdef CCODE + +/* Input variables */ +#undef CDYCDK_KXX +#define CDYCDK_KXX hxx[ijk] +#undef CDYCDK_KXY +#define CDYCDK_KXY hxy[ijk] +#undef CDYCDK_KXZ +#define CDYCDK_KXZ hxz[ijk] +#undef CDYCDK_KYY +#define CDYCDK_KYY hyy[ijk] +#undef CDYCDK_KYZ +#define CDYCDK_KYZ hyz[ijk] +#undef CDYCDK_KZZ +#define CDYCDK_KZZ hzz[ijk] + +/* Output variables */ +#undef CDYCDK_CDYCDKXX +#define CDYCDK_CDYCDKXX cdycdk_cdycdkxx +#undef CDYCDK_CDYCDKXY +#define CDYCDK_CDYCDKXY cdycdk_cdycdkxy +#undef CDYCDK_CDYCDKXZ +#define CDYCDK_CDYCDKXZ cdycdk_cdycdkxz +#undef CDYCDK_CDYCDKYY +#define CDYCDK_CDYCDKYY cdycdk_cdycdkyy +#undef CDYCDK_CDYCDKYZ +#define CDYCDK_CDYCDKYZ cdycdk_cdycdkyz +#undef CDYCDK_CDYCDKZZ +#define CDYCDK_CDYCDKZZ cdycdk_cdycdkzz + +/* Declare output variables */ +double CDYCDK_CDYCDKXX; +double CDYCDK_CDYCDKXY; +double CDYCDK_CDYCDKXZ; +double CDYCDK_CDYCDKYY; +double CDYCDK_CDYCDKYZ; +double CDYCDK_CDYCDKZZ; + +#endif + +#endif |