diff options
author | tradke <tradke@38c3d835-c875-442e-b0fe-21c19ce1d001> | 2004-01-22 13:31:14 +0000 |
---|---|---|
committer | tradke <tradke@38c3d835-c875-442e-b0fe-21c19ce1d001> | 2004-01-22 13:31:14 +0000 |
commit | dceb6a4edb1b4acc2471300cb8a1093997ce5df9 (patch) | |
tree | 8b226778e4d3e531a2789af64aafadd60a8bd0ca | |
parent | 65724b362d35bea62f58712fed1f258db1b4a5ef (diff) |
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/CactusPUGHIO/IOPanda/trunk@58 38c3d835-c875-442e-b0fe-21c19ce1d001
-rw-r--r-- | interface.ccl | 40 | ||||
-rw-r--r-- | src/Output.c | 20 |
2 files changed, 30 insertions, 30 deletions
diff --git a/interface.ccl b/interface.ccl index 6bad223..9c1c735 100644 --- a/interface.ccl +++ b/interface.ccl @@ -15,29 +15,29 @@ CCTK_INT FUNCTION \ CCTK_POINTER OUT hdata) CCTK_INT FUNCTION \ - Hyperslab_DefineLocalMappingByIndex (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 from, \ - CCTK_POINTER IN to), \ - CCTK_INT ARRAY OUT hsize_local, \ - CCTK_INT ARRAY OUT hsize_global, \ - CCTK_INT ARRAY OUT hoffset_global) + Hyperslab_LocalMappingByIndex (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 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_FreeMapping (CCTK_INT IN mapping_handle) USES FUNCTION Hyperslab_Get -USES FUNCTION Hyperslab_DefineLocalMappingByIndex +USES FUNCTION Hyperslab_LocalMappingByIndex USES FUNCTION Hyperslab_FreeMapping diff --git a/src/Output.c b/src/Output.c index 90a0b8a..4b5e4db 100644 --- a/src/Output.c +++ b/src/Output.c @@ -421,16 +421,16 @@ static int DumpVar (const cGH *GH, const ioRequest *request, const char *alias) } /* define the hyperslab mapping */ - mapping = Hyperslab_DefineLocalMappingByIndex (GH, request->vindex, - request->hdim, - request->direction, - request->origin, - request->extent, - request->downsample, - -1, NULL, - request->hsize_chunk, - request->hsize, - request->hoffset); + mapping = Hyperslab_LocalMappingByIndex (GH, request->vindex, + request->hdim, + request->direction, + request->origin, + request->extent, + request->downsample, + -1, NULL, + request->hsize_chunk, + request->hsize, + request->hoffset); if (mapping < 0) { fullname = CCTK_FullName (request->vindex); |