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

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