From db0f65e1f3216adcee0bc66ffaaa1993cc1bcb79 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@b1d164ef-f17a-46e7-89d4-021c7118ef4e>
Date: Tue, 23 Nov 2004 16:04:59 +0000
Subject: Provide C versions of these files as well so that they can be
 included from C.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@87 b1d164ef-f17a-46e7-89d4-021c7118ef4e
---
 src/macro/ADM_Spacing.h         | 41 +++++++++++++++++++++++++++++++++++++++++
 src/macro/ADM_Spacing_declare.h | 31 +++++++++++++++++++++++--------
 2 files changed, 64 insertions(+), 8 deletions(-)

diff --git a/src/macro/ADM_Spacing.h b/src/macro/ADM_Spacing.h
index 58087c8..00451c4 100644
--- a/src/macro/ADM_Spacing.h
+++ b/src/macro/ADM_Spacing.h
@@ -10,6 +10,8 @@
 #ifndef ADM_SPACING_H
 #define ADM_SPACING_H
 
+#ifdef FCODE
+
        dt=CCTK_DELTA_TIME
        dx=CCTK_DELTA_SPACE(1)
        dy=CCTK_DELTA_SPACE(2)
@@ -44,3 +46,42 @@
        i36dyz=idyz/36.d0
 
 #endif
+
+#ifdef CCODE
+
+       dt=CCTK_DELTA_TIME;
+       dx=CCTK_DELTA_SPACE(1);
+       dy=CCTK_DELTA_SPACE(2);
+       dz=CCTK_DELTA_SPACE(3);
+
+       idx=1.0/dx;
+       idy=1.0/dy;
+       idz=1.0/dz;
+
+       i2dx=idx/2.0;
+       i2dy=idy/2.0;
+       i2dz=idz/2.0;
+
+       i12dx=idx/12.0;
+       i12dy=idy/12.0;
+       i12dz=idz/12.0;
+
+       idxx=idx*idx;
+       idyy=idy*idy;
+       idzz=idz*idz;
+
+       i12dxx=idxx/12.0;
+       i12dyy=idyy/12.0;
+       i12dzz=idzz/12.0;
+
+       idxy=i2dx*i2dy;
+       idxz=i2dx*i2dz;
+       idyz=i2dy*i2dz;
+
+       i36dxy=idxy/36.0;
+       i36dxz=idxz/36.0;
+       i36dyz=idyz/36.0;
+
+#endif
+
+#endif
diff --git a/src/macro/ADM_Spacing_declare.h b/src/macro/ADM_Spacing_declare.h
index b8246d1..568e227 100644
--- a/src/macro/ADM_Spacing_declare.h
+++ b/src/macro/ADM_Spacing_declare.h
@@ -1,5 +1,5 @@
 /*@@
-  @header   ADM_Spacing_delcare.h
+  @header   ADM_Spacing_declare.h
   @date     June 2002
   @author   Denis Pollney
   @desc
@@ -7,11 +7,26 @@
   @enddesc
 @@*/
 
-       CCTK_REAL :: dt, dx, dy, dz
-       CCTK_REAL :: idx, idy, idz
-       CCTK_REAL :: i2dx, i2dy, i2dz
-       CCTK_REAL :: i12dx, i12dy, i12dz
-       CCTK_REAL :: idxx, idxy, idxz, idyy, idyz, idzz
-       CCTK_REAL :: i12dxx, i12dyy, i12dzz
-       CCTK_REAL :: i36dxy, i36dxz, i36dyz
+#ifdef FCODE
 
+      CCTK_REAL dt, dx, dy, dz
+      CCTK_REAL idx, idy, idz
+      CCTK_REAL i2dx, i2dy, i2dz
+      CCTK_REAL i12dx, i12dy, i12dz
+      CCTK_REAL idxx, idxy, idxz, idyy, idyz, idzz
+      CCTK_REAL i12dxx, i12dyy, i12dzz
+      CCTK_REAL i36dxy, i36dxz, i36dyz
+
+#endif
+
+#ifdef CCODE
+
+      CCTK_REAL dt, dx, dy, dz;
+      CCTK_REAL idx, idy, idz;
+      CCTK_REAL i2dx, i2dy, i2dz;
+      CCTK_REAL i12dx, i12dy, i12dz;
+      CCTK_REAL idxx, idxy, idxz, idyy, idyz, idzz;
+      CCTK_REAL i12dxx, i12dyy, i12dzz;
+      CCTK_REAL i36dxy, i36dxz, i36dyz;
+
+#endif
-- 
cgit v1.2.3