1 files changed, 92 insertions, 0 deletions
diff --git a/src/macro/DYDB_declare.h b/src/macro/DYDB_declare.h
new file mode 100644
index 0000000..c48745b
--- /dev/null
+++ b/src/macro/DYDB_declare.h
@@ -0,0 +1,92 @@
+/*@@
+  @header   DYDB_declare.h
+  @date     Jun 98
+  @author   Gabrielle Allen
+  @desc
+  Declarations for macro @seefile DYDB_guts.h to compute first 
+  derivatives of the shift with respect to y
+  @enddesc
+@@*/
+
+#ifndef DYDB_DECLARE
+#define DYDB_DECLARE
+
+#ifdef FCODE
+
+/* Input variables */
+#undef  DYDB_BX_JP 
+#define DYDB_BX_JP betax(i,j+1,k)
+#undef  DYDB_BX_JM
+#define DYDB_BX_JM betax(i,j-1,k)
+#undef  DYDB_BY_JP 
+#define DYDB_BY_JP betay(i,j+1,k)
+#undef  DYDB_BY_JM 
+#define DYDB_BY_JM betay(i,j-1,k)
+#undef  DYDB_BZ_JP 
+#define DYDB_BZ_JP betaz(i,j+1,k)
+#undef  DYDB_BZ_JM
+#define DYDB_BZ_JM betaz(i,j-1,k)
+
+/* Output variables */ 
+#undef  DYDB_DYDBX
+#define DYDB_DYDBX  dydb_dydbx
+#undef  DYDB_DYDBY
+#define DYDB_DYDBY  dydb_dydby
+#undef  DYDB_DYDBZ
+#define DYDB_DYDBZ  dydb_dydbz
+
+/* Internal variables */
+#undef  DYDB_DY
+#define DYDB_DY dy
+#undef  DYDB_OO2DY   
+#define DYDB_OO2DY dydb_oo2dy
+
+/* Declare internal variables */
+      REAL DYDB_OO2DY;
+
+/* Declare output variables */
+      REAL DYDB_DYDBX
+      REAL DYDB_DYDBY
+      REAL DYDB_DYDBZ
+
+#endif
+
+#ifdef CCODE
+
+/* Input variables */
+#undef  DYDB_BX_JP 
+#define DYDB_BX_JP betax[ dj+ijk]
+#undef  DYDB_BX_JM
+#define DYDB_BX_JM betax[-dj+ijk]
+#undef  DYDB_BY_JP 
+#define DYDB_BY_JP betay[ dj+ijk]
+#undef  DYDB_BY_JM 
+#define DYDB_BY_JM betay[-dj+ijk]
+#undef  DYDB_BZ_JP 
+#define DYDB_BZ_JP betaz[ dj+ijk]
+#undef  DYDB_BZ_JM
+#define DYDB_BZ_JM betaz[-dj+ijk]
+
+/* Output variables */ 
+#undef  DYDB_DYDBX
+#define DYDB_DYDBX  delbeta21
+#undef  DYDB_DYDBY
+#define DYDB_DYDBY  delbeta22
+#undef  DYDB_DYDBZ
+#define DYDB_DYDBZ  delbeta23
+
+/* Internal variables */
+#undef  DYDB_OO2DY   
+#define DYDB_OO2DY dydb_oo2dy
+
+/* Declare internal variables */
+double DYDB_OO2DY;
+
+/* Declare output variables */
+double DYDB_DYDBX;
+double DYDB_DYDBY;
+double DYDB_DYDBZ;
+
+#endif
+
+#endif