From be6ff45dfd58edf29fce33d90c62004b750cc9ae Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Thu, 29 Jul 1999 20:25:24 +0000
Subject: Added CCTK_PASS_CTOC and CCTK_PASS_FTOF

git-svn-id: http://svn.cactuscode.org/flesh/trunk@825 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/include/cctk.h | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/include')

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*/
 
-- 
cgit v1.2.3