From ed954040b8313656e91d9ae38d907a049c9dd2b0 Mon Sep 17 00:00:00 2001 From: schnetter 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/ADMConstraints/trunk@94 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- interface.ccl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/interface.ccl b/interface.ccl index 6429fd8..2a81a01 100644 --- a/interface.ccl +++ b/interface.ccl @@ -9,10 +9,10 @@ USES INCLUDE: CalcTmunu.inc USES INCLUDE: CalcTmunu_temps.inc # Function aliases -CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER IN GH, \ +CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, \ CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ CCTK_STRING IN var_name, CCTK_STRING IN bc_name) -CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER IN GH, \ +CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, \ CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ CCTK_STRING IN group_name, CCTK_STRING IN bc_name) -- cgit v1.2.3