diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 20:25:24 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 20:25:24 +0000 |
commit | be6ff45dfd58edf29fce33d90c62004b750cc9ae (patch) | |
tree | e083fde018162a980087a3234ec1db872da4082f /src/include | |
parent | 3d3e601fae361971d1532ff1e86bb62949aed85a (diff) |
Added CCTK_PASS_CTOC and CCTK_PASS_FTOF
git-svn-id: http://svn.cactuscode.org/flesh/trunk@825 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include')
-rw-r--r-- | src/include/cctk.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/include/cctk.h b/src/include/cctk.h index 73f86b5d..883b5586 100644 --- a/src/include/cctk.h +++ b/src/include/cctk.h @@ -49,6 +49,8 @@ #define CCTK_WARN(a,b) CCTK_Warn(a,__LINE__,__FORTRANFILE__,CCTK_THORNSTRING,b) #define CCTK_EQUALS(a,b) (CCTK_Equals(a,b).eq.1) +#define CCTK_PASS_FTOF CCTK_FARGUMENTS + #endif /*FCODE*/ #ifdef CCODE @@ -116,6 +118,7 @@ extern int _cctk_one; #define CCTK_WARN(a,b) CCTK_Warn(a,__LINE__,__FILE__,CCTK_THORNSTRING,b) #define CCTK_EQUALS(a,b) (CCTK_Equals(a,b)==1) +#define CCTK_PASS_CTOC cGH *cctkGH #endif /*CCODE*/ |