diff options
author | schnetter <schnetter@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2004-02-10 14:41:10 +0000 |
---|---|---|
committer | schnetter <schnetter@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2004-02-10 14:41:10 +0000 |
commit | 0cde4a6e341fdada89b8d7ab363e766e464be879 (patch) | |
tree | 95039a9c18691b882f8b9be2e4f7699ecb38ce8c | |
parent | ecdedb17811482e0f168d6f9fae9e71508cebb80 (diff) |
Make the header file work with both C and Fortran.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@40 f75ba9e5-694f-0410-ac2c-87ea7ce7132b
-rw-r--r-- | src/maskvalues.h | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/maskvalues.h b/src/maskvalues.h index c9744e8..bbaa95b 100644 --- a/src/maskvalues.h +++ b/src/maskvalues.h @@ -1,8 +1,19 @@ -/* -*-f90-*- */ /* $Header$ */ /* Values of the mask */ +#ifdef CCODE + +#define MASK_EXCISED 0.0 +#define MASK_BOUNDARY 0.5 +#define MASK_ACTIVE 1.0 + +#endif + +#ifdef FCODE + #define MASK_EXCISED 0.0D0 #define MASK_BOUNDARY 0.5D0 #define MASK_ACTIVE 1.0D0 + +#endif |