diff options
| author | schnetter <schnetter@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2004-11-23 16:04:59 +0000 |
|---|---|---|
| committer | schnetter <schnetter@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2004-11-23 16:04:59 +0000 |
| commit | db0f65e1f3216adcee0bc66ffaaa1993cc1bcb79 (patch) | |
| tree | ddaf10121067a9f7295618c5d98eccc61a3994e0 | |
| parent | 28c6a381fde4da9bef6afe81f131a6b1962f3e9b (diff) | |
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
| -rw-r--r-- | src/macro/ADM_Spacing.h | 41 | ||||
| -rw-r--r-- | 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 |