From 0a13cbb3d0f5ebf208d962d374a197c66bd13b1b Mon Sep 17 00:00:00 2001
From: evans <evans@b1d164ef-f17a-46e7-89d4-021c7118ef4e>
Date: Tue, 9 Mar 1999 21:04:02 +0000
Subject: added the Einstien macros.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@2 b1d164ef-f17a-46e7-89d4-021c7118ef4e
---
 src/macro/KK_declare.h | 103 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 103 insertions(+)
 create mode 100644 src/macro/KK_declare.h

(limited to 'src/macro/KK_declare.h')

diff --git a/src/macro/KK_declare.h b/src/macro/KK_declare.h
new file mode 100644
index 0000000..84699b6
--- /dev/null
+++ b/src/macro/KK_declare.h
@@ -0,0 +1,103 @@
+/*@@
+  @header   KK_guts.h
+  @date     Jun 98
+  @author   Gabrielle Allen
+  @desc
+
+  Declarations for macro to calculate term K_{ik}K^{k}_{l}
+
+  Requires: Upper physical metric
+            Lower extrinsic curvature
+
+  Provides: Components of K_{ik}K^{k}_{l}
+
+  @enddesc
+@@*/
+
+#ifndef KK_DECLARE
+
+#include "../../packages/CactusEinstein/Einstein/src/macro/UPPERMET_declare.h"
+
+#ifdef FCODE
+
+/* Input variables */
+#undef  KK_HXX
+#define KK_HXX hxx(i,j,k)
+#undef  KK_HXY
+#define KK_HXY hxy(i,j,k)
+#undef  KK_HXZ
+#define KK_HXZ hxz(i,j,k)
+#undef  KK_HYY
+#define KK_HYY hyy(i,j,k)
+#undef  KK_HYZ
+#define KK_HYZ hyz(i,j,k)
+#undef  KK_HZZ
+#define KK_HZZ hzz(i,j,k)
+
+/* Output variables */
+#undef  KK_KKXX
+#define KK_KKXX KK11
+#undef  KK_KKXY
+#define KK_KKXY KK12
+#undef  KK_KKXZ
+#define KK_KKXZ KK13
+#undef  KK_KKYY
+#define KK_KKYY KK22
+#undef  KK_KKYZ
+#define KK_KKYZ KK23
+#undef  KK_KKZZ
+#define KK_KKZZ KK33
+
+/* Declare output variables */
+      REAL KK_KKXX
+      REAL KK_KKXY
+      REAL KK_KKXZ
+      REAL KK_KKYY
+      REAL KK_KKYZ
+      REAL KK_KKZZ
+
+#endif
+
+#ifdef CCODE
+
+/* Input variables */
+#undef  KK_HXX
+#define KK_HXX hxx[ijk]
+#undef  KK_HXY
+#define KK_HXY hxy[ijk]
+#undef  KK_HXZ
+#define KK_HXZ hxz[ijk]
+#undef  KK_HYY
+#define KK_HYY hyy[ijk]
+#undef  KK_HYZ
+#define KK_HYZ hyz[ijk]
+#undef  KK_HZZ
+#define KK_HZZ hzz[ijk]
+
+/* Output variables */
+#undef  KK_KKXX
+#define KK_KKXX KK11
+#undef  KK_KKXY
+#define KK_KKXY KK12
+#undef  KK_KKXZ
+#define KK_KKXZ KK13
+#undef  KK_KKYY
+#define KK_KKYY KK22
+#undef  KK_KKYZ
+#define KK_KKYZ KK23
+#undef  KK_KKZZ
+#define KK_KKZZ KK33
+
+/* Declare output variables */
+double KK_KKXX;
+double KK_KKXY;
+double KK_KKXZ;
+double KK_KKYY;
+double KK_KKYZ;
+double KK_KKZZ;
+
+#endif
+
+#define KK_DECLARE
+
+#endif
-- 
cgit v1.2.3