added the Einstien macros.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@2 b1d164ef-f17a-46e7-89d4-021c7118ef4e

1 files changed, 123 insertions, 0 deletions

diff --git a/src/macro/DCGDT_declare.h b/src/macro/DCGDT_declare.h
new file mode 100644
index 0000000..3208a76
--- /dev/null
+++ b/src/macro/DCGDT_declare.h
@@ -0,0 +1,123 @@
+/*@@
+  @header   DCGDT_declare.h
+  @date     Jul 98
+  @author   Gabrielle Allen
+  @desc
+  Declarations for macro @seefile DCGDT_guts.h to calculate the source term 
+  in the evolution equation for the conformal 3-metric. That is
+
+  d g~_ij/dt =( - 2 alpha K_ij + L_beta g_ij )/Psi^4
+
+  where g~ is the conformal metric
+  @enddesc
+@@*/
+
+#ifndef DCGDT_DECLARE
+#define DCGDT_DECLARE
+
+#include "../../packages/CactusEinstein/Einstein/src/macro/LIEG_declare.h"
+
+#ifdef FCODE
+
+/* Input variables */
+#undef  DCGDT_A
+#define DCGDT_A alp(i,j,k)
+#undef  DCGDT_KXX 
+#define DCGDT_KXX hxx(i,j,k)
+#undef  DCGDT_KXY 
+#define DCGDT_KXY hxy(i,j,k)
+#undef  DCGDT_KXZ 
+#define DCGDT_KXZ hxz(i,j,k)
+#undef  DCGDT_KYY 
+#define DCGDT_KYY hyy(i,j,k)
+#undef  DCGDT_KYZ 
+#define DCGDT_KYZ hyz(i,j,k)
+#undef  DCGDT_KZZ 
+#define DCGDT_KZZ hzz(i,j,k)
+#undef  DCGDT_PSI 
+#define DCGDT_PSI psi(i,j,k)
+
+/* Internal variables */
+#undef  DCGDT_IPSI4
+#define DCGDT_IPSI4 cdgdt_ipsi4
+
+/* Output variables */ 
+#undef  DCGDT_DCGXXDT
+#define DCGDT_DCGXXDT cdgdt_cdgxxdt
+#undef  DCGDT_DCGXYDT
+#define DCGDT_DCGXYDT cdgdt_cdgxydt
+#undef  DCGDT_DCGXZDT
+#define DCGDT_DCGXZDT cdgdt_cdgxzdt
+#undef  DCGDT_DCGYYDT
+#define DCGDT_DCGYYDT cdgdt_cdgyydt
+#undef  DCGDT_DCGYZDT
+#define DCGDT_DCGYZDT cdgdt_cdgyzdt
+#undef  DCGDT_DCGZZDT
+#define DCGDT_DCGZZDT cdgdt_cdgzzdt
+
+/* Declare internal variables */
+      REAL DCGDT_IPSI4
+
+/* Declare output variables */
+      REAL DCGDT_DCGXXDT
+      REAL DCGDT_DCGXYDT
+      REAL DCGDT_DCGXZDT
+      REAL DCGDT_DCGYYDT
+      REAL DCGDT_DCGYZDT
+      REAL DCGDT_DCGZZDT
+
+#endif
+
+
+#ifdef CCODE
+
+/* Input variables */
+#undef  DCGDT_A
+#define DCGDT_A alp[ijk]
+#undef  DCGDT_KXX 
+#define DCGDT_KXX hxx[ijk]
+#undef  DCGDT_KXY 
+#define DCGDT_KXY hxy[ijk]
+#undef  DCGDT_KXZ 
+#define DCGDT_KXZ hxz[ijk]
+#undef  DCGDT_KYY 
+#define DCGDT_KYY hyy[ijk]
+#undef  DCGDT_KYZ 
+#define DCGDT_KYZ hyz[ijk]
+#undef  DCGDT_KZZ 
+#define DCGDT_KZZ hzz[ijk]
+#undef  DCGDT_PSI 
+#define DCGDT_PSI psi[ijk]
+
+/* Internal variables */
+#undef  DCGDT_IPSI4
+#define DCGDT_IPSI4 cdgdt_ipsi4
+
+/* Output variables */ 
+#undef  DCGDT_DCGXXDT
+#define DCGDT_DCGXXDT cdgdt_cdgxxdt
+#undef  DCGDT_DCGXYDT
+#define DCGDT_DCGXYDT cdgdt_cdgxydt
+#undef  DCGDT_DCGXZDT
+#define DCGDT_DCGXZDT cdgdt_cdgxzdt
+#undef  DCGDT_DCGYYDT
+#define DCGDT_DCGYYDT cdgdt_cdgyydt
+#undef  DCGDT_DCGYZDT
+#define DCGDT_DCGYZDT cdgdt_cdgyzdt
+#undef  DCGDT_DCGZZDT
+#define DCGDT_DCGZZDT cdgdt_cdgzzdt
+
+/* Declare internal variables */
+      double DCGDT_IPSI4;
+
+/* Declare output variables */
+      double DCGDT_DCGXXDT;
+      double DCGDT_DCGXYDT;
+      double DCGDT_DCGXZDT;
+      double DCGDT_DCGYYDT;
+      double DCGDT_DCGYZDT;
+      double DCGDT_DCGZZDT;
+
+#endif
+
+#endif