From 5fd048c02b5332be427c5b4cc29cbbfb802a646b Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7>
Date: Fri, 23 May 2003 23:48:20 +0000
Subject: Add a few more flesh interfaces.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@4 b716e942-a2de-43ad-8f52-f3dfe468e4e7
---
 src/cactus.F90 | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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