diff options
| author | schnetter <schnetter@eff87b29-5268-4891-90a3-a07138403961> | 2003-10-29 15:08:12 +0000 |
|---|---|---|
| committer | schnetter <schnetter@eff87b29-5268-4891-90a3-a07138403961> | 2003-10-29 15:08:12 +0000 |
| commit | 3c0d758f861368ca4fbd295d88058a91c4991bf8 (patch) | |
| tree | b07c80946eea35516fb0dca13cb4fb5275707ac7 | |
| parent | 36e9e17e19e2a9de94d116f5a7118614491504f5 (diff) | |
Adapt to new Fortran pointer ABI.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusIO/IOJpeg/trunk@88 eff87b29-5268-4891-90a3-a07138403961
| -rw-r--r-- | interface.ccl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/interface.ccl b/interface.ccl index 6a4a1ae..c368680 100644 --- a/interface.ccl +++ b/interface.ccl @@ -9,16 +9,16 @@ USES INCLUDE HEADER: jpeglib.h 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_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, \ @@ -26,14 +26,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 src, \ + CCTK_POINTER IN dst), \ CCTK_INT ARRAY OUT hsize) CCTK_INT FUNCTION Hyperslab_FreeMapping (CCTK_INT IN mapping_handle) |