diff options
author | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-10-28 13:48:24 +0000 |
---|---|---|
committer | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-10-28 13:48:24 +0000 |
commit | ed954040b8313656e91d9ae38d907a049c9dd2b0 (patch) | |
tree | bf96e19a16ba9701510991cf0369cec50a6871ec | |
parent | a1d32dc32b779b86116b3d00762ae84bf03f3393 (diff) |
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
-rw-r--r-- | interface.ccl | 4 |
1 files 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) |