diff options
| author | schnetter <schnetter@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-10-28 13:48:24 +0000 |
|---|---|---|
| committer | schnetter <schnetter@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2003-10-28 13:48:24 +0000 |
| commit | 7a482a1c19a72539660dda168d80b2251fb7e92d (patch) | |
| tree | c9cd4fbfab28992f5954711a29441bbe180af6e4 /interface.ccl | |
| parent | 684109a78a3cee23a2e59cba6205e3cc33ae3a90 (diff) | |
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
Diffstat (limited to 'interface.ccl')
| -rw-r--r-- | interface.ccl | 24 |
1 files changed, 12 insertions, 12 deletions
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) |