1 files changed, 93 insertions, 0 deletions
diff --git a/src/macro/UPPERMET_declare.h b/src/macro/UPPERMET_declare.h
new file mode 100644
index 0000000..4325939
--- /dev/null
+++ b/src/macro/UPPERMET_declare.h
@@ -0,0 +1,93 @@
+/*@@
+  @header   UPPERMET_declare.h
+  @date     Jun 98
+  @author   Gabrielle Allen
+  @desc
+  Declarations for macro to calculate the components of the upper 
+  physical metric.
+  @enddesc
+@@*/
+
+#ifndef UPPERMET_DECLARE
+#define UPPERMET_DECLARE
+
+#include "../../packages/CactusEinstein/Einstein/src/macro/DETG_declare.h"
+
+#ifdef FCODE
+
+/* Output variables */
+#undef  UPPERMET_UXX
+#define UPPERMET_UXX uppermet_uxx
+#undef  UPPERMET_UXY
+#define UPPERMET_UXY uppermet_uxy
+#undef  UPPERMET_UXZ
+#define UPPERMET_UXZ uppermet_uxz
+#undef  UPPERMET_UYY
+#define UPPERMET_UYY uppermet_uyy
+#undef  UPPERMET_UYZ
+#define UPPERMET_UYZ uppermet_uyz
+#undef  UPPERMET_UZZ
+#define UPPERMET_UZZ uppermet_uzz
+
+/* Temporary variables */
+
+#undef  UPPERMET_PSI4DET
+#define UPPERMET_PSI4DET uppermet_fdet
+
+/* Declare internal variables */
+      REAL UPPERMET_PSI4DET
+
+/* Declare output variables */
+      REAL UPPERMET_UXX, UPPERMET_UXY, UPPERMET_UXZ
+      REAL UPPERMET_UYY, UPPERMET_UYZ, UPPERMET_UZZ
+
+#endif
+
+
+
+
+#ifdef CCODE
+
+/* Output variables */
+#undef  UPPERMET_UXX
+#define UPPERMET_UXX uppermet_uxx
+#undef  UPPERMET_UXY
+#define UPPERMET_UXY uppermet_uxy
+#undef  UPPERMET_UXZ
+#define UPPERMET_UXZ uppermet_uxz
+#undef  UPPERMET_UYY
+#define UPPERMET_UYY uppermet_uyy
+#undef  UPPERMET_UYZ
+#define UPPERMET_UYZ uppermet_uyz
+#undef  UPPERMET_UZZ
+#define UPPERMET_UZZ uppermet_uzz
+
+/* Internal variables */
+#undef  UPPERMET_PSI4DET 
+#define UPPERMET_PSI4DET uppermet_psi4detg
+
+/* Declare internal variables */
+double UPPERMET_PSI4DET;
+
+/* Declare output variables */
+double UPPERMET_UXX;
+double UPPERMET_UXY;
+double UPPERMET_UXZ;
+double UPPERMET_UYY;
+double UPPERMET_UYZ;
+double UPPERMET_UZZ;
+
+#endif
+
+/* Symmetries */
+#undef  UPPERMET_UYX
+#define UPPERMET_UYX UPPERMET_UXY
+#undef  UPPERMET_UZX
+#define UPPERMET_UZX UPPERMET_UXZ
+#undef  UPPERMET_UZY
+#define UPPERMET_UZY UPPERMET_UYZ
+
+#endif
+
+
+