diff options
author | schnetter <schnetter@80bd93c7-81bc-453a-9e3f-619c0b4f6fe4> | 2003-10-28 13:48:24 +0000 |
---|---|---|
committer | schnetter <schnetter@80bd93c7-81bc-453a-9e3f-619c0b4f6fe4> | 2003-10-28 13:48:24 +0000 |
commit | e4a3847a3cf04f59622b86f2780206ea1914f690 (patch) | |
tree | 1f41ee57b5dd5bdc484018c7ef5b545826438f76 | |
parent | 2dd0f04b7c0d9e55011621b2b23855875d3c1f36 (diff) |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMAnalysis/trunk@26 80bd93c7-81bc-453a-9e3f-619c0b4f6fe4
-rw-r--r-- | interface.ccl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interface.ccl b/interface.ccl index aeb7dba..1338f62 100644 --- a/interface.ccl +++ b/interface.ccl @@ -46,7 +46,7 @@ void FUNCTION Trace(CCTK_INT IN ARRAY lsh, \ PROVIDES FUNCTION CartToSphere WITH ADMAnalysis_CartToSphere LANGUAGE C PROVIDES FUNCTION Trace WITH ADMAnalysis_Trace LANGUAGE C -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) USES FUNCTION Boundary_SelectGroupForBC |