summaryrefslogtreecommitdiff
path: root/src/util/Misc.c
diff options
context:
space:
mode:
authortradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac>2003-02-12 14:07:58 +0000
committertradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac>2003-02-12 14:07:58 +0000
commit0ac8b7c726fe63636b4b02d6b92cafb16d867219 (patch)
tree27dafdb1c7fbfb74d0575bbcbe6eb5245d46809b /src/util/Misc.c
parentc58ade798ab1a168fe9dab4818d69ee95025977f (diff)
Added C wrapper for fortran function CCTK_NULLPointer() which takes no
arguments and returns a C-style NULL pointer. This is necessary for initializing CCTK_POINTER variables in fortran code. git-svn-id: http://svn.cactuscode.org/flesh/trunk@3135 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/util/Misc.c')
-rw-r--r--src/util/Misc.c21
1 files changed, 21 insertions, 0 deletions
diff --git a/src/util/Misc.c b/src/util/Misc.c
index 3c2141d7..573dcc1d 100644
--- a/src/util/Misc.c
+++ b/src/util/Misc.c
@@ -53,6 +53,8 @@ int CCTK_FCALL CCTK_FNAME(CCTK_Equals)
CCTK_POINTER CCTK_FCALL CCTK_FNAME(CCTK_PointerTo)
(CCTK_POINTER var);
+CCTK_POINTER CCTK_FCALL CCTK_FNAME(CCTK_NULLPointer)
+ (void);
void CCTK_FCALL CCTK_FNAME(CCTK_PrintString)
(const char **arg1);
@@ -173,6 +175,25 @@ CCTK_POINTER CCTK_FCALL CCTK_FNAME (CCTK_PointerTo) (CCTK_POINTER var)
}
/*@@
+ @routine CCTK_NULLPointer
+ @date Wed 12 Feb 2003
+ @author Thomas Radke
+ @desc
+ Returns a NULL pointer to be used for the initialization of
+ CCTK_POINTER variables in the calling fortran routine.
+ @enddesc
+
+ @returntype CCTK_POINTER
+ @returndesc
+ a C NULL pointer
+ @endreturndesc
+@@*/
+CCTK_POINTER CCTK_FCALL CCTK_FNAME (CCTK_NULLPointer) (void)
+{
+ return (NULL);
+}
+
+ /*@@
@routine Util_NullTerminateString
@author Paul Walker
@desc