added the Einstien macros.

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

1 files changed, 39 insertions, 0 deletions

diff --git a/src/macro/DZDB_guts.h b/src/macro/DZDB_guts.h
new file mode 100644
index 0000000..757ae1a
--- /dev/null
+++ b/src/macro/DZDB_guts.h
@@ -0,0 +1,39 @@
+/*@@
+  @header   DZDB_guts.h
+  @date     Jun 98
+  @author   Gabrielle Allen
+  @desc
+
+  Macro to calculate the first derivatives of the 
+  shift with respect to z
+
+  The macro is defined in terms of standard variables in
+  @seefile DZDB_declare.h
+  @enddesc
+@@*/
+
+#ifndef DZDB_GUTS
+#define DZDB_GUTS
+
+#ifdef FCODE 
+
+      DZDB_OO2DZ = 1D0/(2D0*DZDB_DZ)
+    
+      DZDB_DZDBX = DZDB_OO2DZ*(DZDB_BX_KP - DZDB_BX_KM)
+      DZDB_DZDBY = DZDB_OO2DZ*(DZDB_BY_KP - DZDB_BY_KM)
+      DZDB_DZDBZ = DZDB_OO2DZ*(DZDB_BZ_KP - DZDB_BZ_KM)
+
+#endif
+
+#ifdef CCODE
+
+      DZDB_OO2DZ = 1/(2*GH->dz0);
+    
+      DZDB_DZDBX = DZDB_OO2DZ*(DZDB_BX_KP - DZDB_BX_KM);
+      DZDB_DZDBY = DZDB_OO2DZ*(DZDB_BY_KP - DZDB_BY_KM);
+      DZDB_DZDBZ = DZDB_OO2DZ*(DZDB_BZ_KP - DZDB_BZ_KM);
+
+#endif
+
+#endif
+