diff options
| author | schnetter <schnetter@94b1c47f-dcfd-45ef-a468-0854c0e9e350> | 2003-10-28 13:48:24 +0000 |
|---|---|---|
| committer | schnetter <schnetter@94b1c47f-dcfd-45ef-a468-0854c0e9e350> | 2003-10-28 13:48:24 +0000 |
| commit | e328bb0305ab4f0f14fca735607c247e8f6b0d89 (patch) | |
| tree | 7e92b1c2b1b4a851643747f26cebe27d7bda68e3 | |
| parent | 7b325b7565983aa49d9b5c920e788c3030648170 (diff) | |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOASCII/trunk@151 94b1c47f-dcfd-45ef-a468-0854c0e9e350
| -rw-r--r-- | interface.ccl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interface.ccl b/interface.ccl index 0fb39fc..5154b7e 100644 --- a/interface.ccl +++ b/interface.ccl @@ -6,7 +6,7 @@ inherits: IO, Hyperslab 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, \ @@ -17,7 +17,7 @@ CCTK_INT FUNCTION \ CCTK_INT ARRAY OUT retvals) 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, \ @@ -25,7 +25,7 @@ CCTK_INT FUNCTION \ CCTK_INT ARRAY IN extent, \ CCTK_INT ARRAY IN downsample, \ CCTK_INT IN table_handle, \ - CCTK_INT CCTK_FPOINTER \ + CCTK_INT IN CCTK_FPOINTER \ conversion_fn (CCTK_INT IN nelems, \ CCTK_INT IN src_stride,\ CCTK_INT IN dst_stride,\ |