Add a few more flesh interfaces.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@4 b716e942-a2de-43ad-8f52-f3dfe468e4e7

1 files changed, 14 insertions, 0 deletions

diff --git a/src/cactus.F90 b/src/cactus.F90
index 5d0c278..1255a99 100644
--- a/src/cactus.F90
+++ b/src/cactus.F90
@@ -6,6 +6,9 @@ module cactus
   implicit none
   public
   
+  external     cctk_pointerto
+  CCTK_POINTER cctk_pointerto
+  
   interface
      
      ! from Cactus:
@@ -133,12 +136,23 @@ module cactus
        CCTK_POINTER cctkgh
      end function cctk_nprocs
      
+     function cctk_nullpointer ()
+       implicit none
+       CCTK_POINTER cctk_nullpointer
+     end function cctk_nullpointer
+     
      subroutine cctk_paramwarn (thorn, message)
        implicit none
        character*(*) thorn
        character*(*) message
      end subroutine cctk_paramwarn
      
+!!$     function cctk_pointerto (var)
+!!$       implicit none
+!!$       CCTK_POINTER cctk_pointerto
+!!$       ???          var
+!!$     end function cctk_pointerto
+     
      subroutine cctk_reductionarrayhandle (handle, reduction)
        implicit none
        integer       handle