diff options
| author | tradke <tradke@eff87b29-5268-4891-90a3-a07138403961> | 2004-01-22 13:31:14 +0000 |
|---|---|---|
| committer | tradke <tradke@eff87b29-5268-4891-90a3-a07138403961> | 2004-01-22 13:31:14 +0000 |
| commit | 0b299cd98f8815bdae02b07f3d993a06d8e5d62b (patch) | |
| tree | e87c11a53e2ac8758a1730c44c5ed89e322be886 | |
| parent | f1a4032a937950c7ca283492dd9111cbdf87d39a (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/CactusIO/IOJpeg/trunk@91 eff87b29-5268-4891-90a3-a07138403961
| -rw-r--r-- | interface.ccl | 36 | ||||
| -rw-r--r-- | 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, |