1 files changed, 41 insertions, 0 deletions
diff --git a/src/macro/TRKK_declare.h b/src/macro/TRKK_declare.h
new file mode 100644
index 0000000..91efa4c
--- /dev/null
+++ b/src/macro/TRKK_declare.h
@@ -0,0 +1,41 @@
+/*@@
+  @header   TRKK_guts.h
+  @date     Jun 98
+  @author   Gabrielle Allen
+  @desc
+
+  Declarations for macro to calculate the trace of 
+  K_lj K^j_i
+
+  @enddesc
+@@*/
+
+#ifndef TRKK_DECLARE
+#define TRKK_DECLARE
+
+#include "../../packages/CactusEinstein/Einstein/src/macro/UPPERMET_declare.h"
+#include "../../packages/CactusEinstein/Einstein/src/macro/KK_declare.h"
+
+#ifdef FCODE
+
+/* Output variables */
+#undef  TRKK_TRKK
+#define TRKK_TRKK trkk_trkk
+
+/* Declare output variables */
+       REAL TRKK_TRKK
+
+#endif
+
+#ifdef CCODE
+
+/* Output variables */
+#undef  TRKK_TRKK
+#define TRKK_TRKK trkk_trkk
+
+/* Declare output variables */
+double TRKK_TRKK;
+
+#endif
+
+#endif