diff options
| author | schnetter <schnetter@10716dce-81a3-4424-a2c8-48026a0d3035> | 2003-10-28 13:48:25 +0000 |
|---|---|---|
| committer | schnetter <schnetter@10716dce-81a3-4424-a2c8-48026a0d3035> | 2003-10-28 13:48:25 +0000 |
| commit | d2ba5c596b49900dd3731b137257dc2a418e7499 (patch) | |
| tree | 7764414d6acd9c0cbd57407f39ef76894e31fb4a | |
| parent | 18961562826e78e48215801836b6517589fd7f51 (diff) | |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGHSlab/trunk@115 10716dce-81a3-4424-a2c8-48026a0d3035
| -rw-r--r-- | interface.ccl | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/interface.ccl b/interface.ccl index ab0014e..5f8ad29 100644 --- a/interface.ccl +++ b/interface.ccl @@ -5,16 +5,16 @@ Implements: Hyperslab CCTK_INT FUNCTION \ - Hyperslab_Get (CCTK_POINTER IN cctkGH, \ + Hyperslab_Get (CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN mapping_handle, \ CCTK_INT IN proc, \ CCTK_INT IN vindex, \ CCTK_INT IN timelevel, \ CCTK_INT IN hdatatype, \ - CCTK_POINTER OUT hdata) + CCTK_POINTER IN hdata) CCTK_INT FUNCTION \ - Hyperslab_GetList (CCTK_POINTER IN cctkGH, \ + Hyperslab_GetList (CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN mapping_handle, \ CCTK_INT IN num_arrays, \ CCTK_INT ARRAY IN procs, \ @@ -25,7 +25,7 @@ CCTK_INT FUNCTION \ CCTK_INT ARRAY OUT retvals) CCTK_INT FUNCTION \ - Hyperslab_DefineLocalMappingByIndex (CCTK_POINTER IN cctkGH, \ + Hyperslab_DefineLocalMappingByIndex (CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN vindex, \ CCTK_INT IN hdim, \ CCTK_INT ARRAY IN direction, \ @@ -33,20 +33,20 @@ CCTK_INT FUNCTION \ CCTK_INT ARRAY IN extent, \ CCTK_INT ARRAY IN downsample, \ CCTK_INT IN table_handle, \ - CCTK_INT CCTK_FPOINTER \ + CCTK_INT CCTK_FPOINTER IN \ conversion_fn (CCTK_INT IN nelems, \ - CCTK_INT IN src_stride,\ - CCTK_INT IN dst_stride,\ + CCTK_INT IN src_stride, \ + CCTK_INT IN dst_stride, \ CCTK_INT IN src_type, \ CCTK_INT IN dst_type, \ - CCTK_POINTER IN src, \ - CCTK_POINTER OUT dst), \ + CCTK_POINTER_TO_CONST IN from, \ + CCTK_POINTER IN to), \ CCTK_INT ARRAY OUT hsize_local, \ CCTK_INT ARRAY OUT hsize_global, \ CCTK_INT ARRAY OUT hoffset_global) CCTK_INT FUNCTION \ - Hyperslab_DefineGlobalMappingByIndex (CCTK_POINTER IN cctkGH, \ + Hyperslab_DefineGlobalMappingByIndex (CCTK_POINTER_TO_CONST IN cctkGH, \ CCTK_INT IN vindex, \ CCTK_INT IN hdim, \ CCTK_INT ARRAY IN direction, \ @@ -54,14 +54,14 @@ CCTK_INT FUNCTION \ CCTK_INT ARRAY IN extent, \ CCTK_INT ARRAY IN downsample, \ CCTK_INT IN table_handle, \ - CCTK_INT CCTK_FPOINTER \ - conversion_fn (CCTK_INT IN nelems, \ - CCTK_INT IN src_stride,\ - CCTK_INT IN dst_stride,\ - CCTK_INT IN src_type, \ - CCTK_INT IN dst_type, \ - CCTK_POINTER IN src, \ - CCTK_POINTER OUT dst), \ + CCTK_INT CCTK_FPOINTER IN \ + conversion_fn (CCTK_INT IN nelems, \ + CCTK_INT IN src_stride, \ + CCTK_INT IN dst_stride, \ + CCTK_INT IN src_type, \ + CCTK_INT IN dst_type, \ + CCTK_POINTER_TO_CONST IN from, \ + CCTK_POINTER IN to), \ CCTK_INT ARRAY OUT hsize) CCTK_INT FUNCTION Hyperslab_FreeMapping (CCTK_INT IN mapping_handle) |