diff options
| author | schnetter <schnetter@7842ec3a-9562-4be5-9c5b-06ba18f2b668> | 2003-10-28 13:48:25 +0000 |
|---|---|---|
| committer | schnetter <schnetter@7842ec3a-9562-4be5-9c5b-06ba18f2b668> | 2003-10-28 13:48:25 +0000 |
| commit | a520c70400fd4c70dc7abb004386885eae87ca35 (patch) | |
| tree | 42fedd595f72895b59c716d9f50873a76ded6000 | |
| parent | 3942f65271d0885280a703fd3acdb73e39abf15a (diff) | |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOHDF5Util/trunk@100 7842ec3a-9562-4be5-9c5b-06ba18f2b668
| -rw-r--r-- | interface.ccl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/interface.ccl b/interface.ccl index 54e6324..d799e39 100644 --- a/interface.ccl +++ b/interface.ccl @@ -6,7 +6,7 @@ Inherits: IO 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, \ @@ -15,7 +15,7 @@ CCTK_INT FUNCTION \ CCTK_POINTER OUT hdata) 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, \ @@ -23,14 +23,14 @@ 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_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) |