diff options
Diffstat (limited to 'src/macro/DZDG_declare.h')
-rw-r--r-- | src/macro/DZDG_declare.h | 132 |
1 files changed, 132 insertions, 0 deletions
diff --git a/src/macro/DZDG_declare.h b/src/macro/DZDG_declare.h new file mode 100644 index 0000000..db98d23 --- /dev/null +++ b/src/macro/DZDG_declare.h @@ -0,0 +1,132 @@ +/*@@ + @header DZDG_declare.h + @date Jun 98 + @author Gabrielle Allen + @desc + Declarations for macro @seefile DZDG_guts.h to compute first + derivatives of the physical metric with respect to y + @enddesc +@@*/ + +#ifndef DZDG_DECLARE +#define DZDG_DECLARE + +#include "../../packages/CactusEinstein/Einstein/src/macro/DZDCG_declare.h" + +#ifdef FCODE + +/* Input variables */ +#undef DZDG_PSI +#define DZDG_PSI psi(i,j,k) + +#undef DZDG_DZDPSI_O_PSI +#define DZDG_DZDPSI_O_PSI psiz(i,j,k) + +#undef DZDG_GXX +#define DZDG_GXX gxx(i,j,k) +#undef DZDG_GXY +#define DZDG_GXY gxy(i,j,k) +#undef DZDG_GXZ +#define DZDG_GXZ gxz(i,j,k) +#undef DZDG_GYY +#define DZDG_GYY gyy(i,j,k) +#undef DZDG_GYZ +#define DZDG_GYZ gyz(i,j,k) +#undef DZDG_GZZ +#define DZDG_GZZ gzz(i,j,k) + +/* Output variables */ +#undef DZDG_DZDGXX +#define DZDG_DZDGXX dzdgxx +#undef DZDG_DZDGXY +#define DZDG_DZDGXY dzdgxy +#undef DZDG_DZDGXZ +#define DZDG_DZDGXZ dzdgxz +#undef DZDG_DZDGYY +#define DZDG_DZDGYY dzdgyy +#undef DZDG_DZDGYZ +#define DZDG_DZDGYZ dzdgyz +#undef DZDG_DZDGZZ +#define DZDG_DZDGZZ dzdgzz + +/* Internal variables */ +#undef DZDG_PSI4 +#define DZDG_PSI4 dzdg_psi4 + +#undef DZDG_FAC +#define DZDG_FAC dzdg_fac + +/* Declare internal variables */ + REAL DZDG_PSI4; + REAL DZDG_FAC; + +/* Declare output variables */ + REAL DZDG_DZDGXX; + REAL DZDG_DZDGXY; + REAL DZDG_DZDGXZ; + REAL DZDG_DZDGYY; + REAL DZDG_DZDGYZ; + REAL DZDG_DZDGZZ; + +#endif + + +#ifdef CCODE + +/* Output variables */ +#undef DZDG_DZDGXX +#define DZDG_DZDGXX delg311 +#undef DZDG_DZDGXY +#define DZDG_DZDGXY delg312 +#undef DZDG_DZDGXZ +#define DZDG_DZDGXZ delg313 +#undef DZDG_DZDGYY +#define DZDG_DZDGYY delg322 +#undef DZDG_DZDGYZ +#define DZDG_DZDGYZ delg323 +#undef DZDG_DZDGZZ +#define DZDG_DZDGZZ delg333 + +/* Input variables */ + +#undef DZDG_PSI +#define DZDG_PSI psi[ijk] + +#undef DZDG_DZDPSI_O_PSI +#define DZDG_DZDPSI_O_PSI psiz[ijk] + +#undef DZDG_GXX +#define DZDG_GXX gxx[ijk] +#undef DZDG_GXY +#define DZDG_GXY gxy[ijk] +#undef DZDG_GXZ +#define DZDG_GXZ gxz[ijk] +#undef DZDG_GYY +#define DZDG_GYY gyy[ijk] +#undef DZDG_GYZ +#define DZDG_GYZ gyz[ijk] +#undef DZDG_GZZ +#define DZDG_GZZ gzz[ijk] + +/* Internal variables */ +#undef DZDG_PSI4 +#define DZDG_PSI4 dzdg_psi4 + +#undef DZDG_FAC +#define DZDG_FAC dzdg_fac + +/* Declare internal variables */ +double DZDG_PSI4; +double DZDG_FAC; + +/* Declare output variables */ +double DZDG_DZDGXX; +double DZDG_DZDGXY; +double DZDG_DZDGXZ; +double DZDG_DZDGYY; +double DZDG_DZDGYZ; +double DZDG_DZDGZZ; + +#endif + +#endif |