From 0b299cd98f8815bdae02b07f3d993a06d8e5d62b Mon Sep 17 00:00:00 2001 From: tradke Date: Thu, 22 Jan 2004 13:31:14 +0000 Subject: Renamed some aliased hyperslab functions to comply with the maximum length for names of Fortran routines (31 characters): Hyperslab_DefineGlobalMappingByPhys -> Hyperslab_GlobalMappingByPhys Hyperslab_DefineGlobalMappingByIndex -> Hyperslab_GlobalMappingByIndex Hyperslab_DefineLocalMappingByPhys -> Hyperslab_LocalMappingByPhys Hyperslab_DefineLocalMappingByIndex -> Hyperslab_LocalMappingByIndex Also renamed the providing functions accordingly. git-svn-id: http://svn.cactuscode.org/arrangements/CactusIO/IOJpeg/trunk@91 eff87b29-5268-4891-90a3-a07138403961 --- interface.ccl | 36 ++++++++++++++++++------------------ src/Write.c | 8 ++++---- 2 files changed, 22 insertions(+), 22 deletions(-) diff --git a/interface.ccl b/interface.ccl index c368680..b16edf6 100644 --- a/interface.ccl +++ b/interface.ccl @@ -18,27 +18,27 @@ CCTK_INT FUNCTION \ CCTK_POINTER IN hdata) CCTK_INT FUNCTION \ - Hyperslab_DefineGlobalMappingByIndex (CCTK_POINTER_TO_CONST IN cctkGH, \ - CCTK_INT IN vindex, \ - CCTK_INT IN hdim, \ - CCTK_INT ARRAY IN direction, \ - CCTK_INT ARRAY IN origin, \ - CCTK_INT ARRAY IN extent, \ - CCTK_INT ARRAY IN downsample, \ - CCTK_INT IN table_handle, \ - 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 src, \ - CCTK_POINTER IN dst), \ - CCTK_INT ARRAY OUT hsize) + Hyperslab_GlobalMappingByIndex (CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN vindex, \ + CCTK_INT IN hdim, \ + CCTK_INT ARRAY IN direction, \ + CCTK_INT ARRAY IN origin, \ + CCTK_INT ARRAY IN extent, \ + CCTK_INT ARRAY IN downsample, \ + CCTK_INT IN table_handle, \ + 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 src, \ + CCTK_POINTER IN dst), \ + CCTK_INT ARRAY OUT hsize) CCTK_INT FUNCTION Hyperslab_FreeMapping (CCTK_INT IN mapping_handle) USES FUNCTION Hyperslab_Get -USES FUNCTION Hyperslab_DefineGlobalMappingByIndex +USES FUNCTION Hyperslab_GlobalMappingByIndex USES FUNCTION Hyperslab_FreeMapping diff --git a/src/Write.c b/src/Write.c index d23e3ee..3c9cabe 100644 --- a/src/Write.c +++ b/src/Write.c @@ -37,7 +37,7 @@ static void WriteData (const cGH *GH, int vindex, const char *alias, int dim, @desc Writes the slices of a variable into separate Jpeg files. @enddesc - @calls Hyperslab_DefineGlobalMappingByIndex + @calls Hyperslab_GlobalMappingByIndex Hyperslab_FreeMapping Hyperslab_GetList OpenFile @@ -154,9 +154,9 @@ int IOJpeg_Write (const cGH *GH, CCTK_INT vindex, const char *alias) memset (direction, 0, sizeof (direction)); direction[dir_i] = direction[gdata.dim + dir_j] = 1; - mapping = Hyperslab_DefineGlobalMappingByIndex (GH, vindex, 2, - direction, origin, extent, - NULL, -1, NULL, hsize); + mapping = Hyperslab_GlobalMappingByIndex (GH, vindex, 2, + direction, origin, extent, + NULL, -1, NULL, hsize); if (mapping < 0) { CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING, -- cgit v1.2.3