From 7a482a1c19a72539660dda168d80b2251fb7e92d 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.cactuscode.org/arrangements/CactusBase/Boundary/trunk@252 6a38eb6e-646e-4a02-a296-d141613ad6c4 --- interface.ccl | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'interface.ccl') diff --git a/interface.ccl b/interface.ccl index c4b9ab3..558a1ab 100644 --- a/interface.ccl +++ b/interface.ccl @@ -11,28 +11,28 @@ USES INCLUDE HEADER: Symmetry.h # Implementation of new boundary spec: -CCTK_INT FUNCTION Boundary_RegisterPhysicalBC(CCTK_POINTER IN GH, \ - CCTK_INT CCTK_FPOINTER function_pointer(CCTK_POINTER IN GH, \ - CCTK_INT IN num_vars, \ - CCTK_INT ARRAY IN var_indices, \ - CCTK_INT ARRAY IN faces, \ - CCTK_INT ARRAY IN boundary_widths, \ - CCTK_INT ARRAY IN table_handles),\ +CCTK_INT FUNCTION Boundary_RegisterPhysicalBC(CCTK_POINTER_TO_CONST IN GH, \ + CCTK_INT IN CCTK_FPOINTER function_pointer(CCTK_POINTER_TO_CONST IN GH, \ + CCTK_INT IN num_vars, \ + CCTK_INT ARRAY IN var_indices, \ + CCTK_INT ARRAY IN faces, \ + CCTK_INT ARRAY IN boundary_widths, \ + CCTK_INT ARRAY IN table_handles),\ CCTK_STRING IN bc_name) PROVIDES FUNCTION Boundary_RegisterPhysicalBC WITH \ Bdry_Boundary_RegisterPhysicalBC LANGUAGE C USES FUNCTION Boundary_RegisterPhysicalBC -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_SelectVarForBCI(CCTK_POINTER IN GH, \ +CCTK_INT FUNCTION Boundary_SelectVarForBCI(CCTK_POINTER_TO_CONST IN GH, \ CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ CCTK_INT IN var_index, 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) -CCTK_INT FUNCTION Boundary_SelectGroupForBCI(CCTK_POINTER IN GH, \ +CCTK_INT FUNCTION Boundary_SelectGroupForBCI(CCTK_POINTER_TO_CONST IN GH, \ CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ CCTK_INT IN group_index, CCTK_STRING IN bc_name) PROVIDES FUNCTION Boundary_SelectVarForBC WITH Bdry_Boundary_SelectVarForBC \ @@ -44,7 +44,7 @@ PROVIDES FUNCTION Boundary_SelectGroupForBC WITH \ PROVIDES FUNCTION Boundary_SelectGroupForBCI WITH \ Bdry_Boundary_SelectGroupForBCI LANGUAGE C -CCTK_INT FUNCTION Boundary_SelectedGVs(CCTK_POINTER IN GH, \ +CCTK_INT FUNCTION Boundary_SelectedGVs(CCTK_POINTER_TO_CONST IN GH, \ CCTK_INT IN array_size, CCTK_INT ARRAY OUT var_indicies, \ CCTK_INT ARRAY OUT faces, CCTK_INT ARRAY OUT boundary_widths, \ CCTK_INT ARRAY OUT table_handles, CCTK_STRING IN bc_name) -- cgit v1.2.3