From 7ce729799d3bf56ea66b14c93e14023b342b77d6 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Tue, 28 Oct 2003 13:48:24 +0000
Subject: Change the way in which pointers are passed to and from Fortran.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@358 89daf98e-ef62-4674-b946-b8ff9de2216c
---
 interface.ccl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interface.ccl b/interface.ccl
index 2642baf..037875e 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -5,7 +5,7 @@
 implements: AHFinder
 inherits: ADMBase StaticConformal SpaceMask Grid IO ADMMacros
 
-SUBROUTINE SetDriftCorrectPosition ( CCTK_POINTER IN GH_Pointer, \
+SUBROUTINE SetDriftCorrectPosition ( CCTK_POINTER_TO_CONST IN GH_Pointer, \
                                      CCTK_REAL IN x, \
                                      CCTK_REAL IN y, \
                                      CCTK_REAL IN z )
-- 
cgit v1.2.3