From d64fe31cd42b68313f2e4739fbcf636ad762138d Mon Sep 17 00:00:00 2001 From: tradke Date: Fri, 23 Jan 2004 19:16:28 +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 git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOASCII/trunk@157 94b1c47f-dcfd-45ef-a468-0854c0e9e350 --- src/Write1D.c | 16 +++++++--------- src/Write2D.c | 16 +++++++--------- src/Write3D.c | 16 +++++++--------- 3 files changed, 21 insertions(+), 27 deletions(-) (limited to 'src') diff --git a/src/Write1D.c b/src/Write1D.c index 73cf413..40a44ba 100644 --- a/src/Write1D.c +++ b/src/Write1D.c @@ -98,7 +98,7 @@ static void WriteData (int vtype, It writes to ASCII files suitable for gnuplot and xgraph. A header telling the physical time prefixes the output data. @enddesc - @calls Hyperslab_DefineGlobalMappingByIndex + @calls Hyperslab_GlobalMappingByIndex Hyperslab_FreeMapping Hyperslab_GetList OpenFile @@ -332,14 +332,12 @@ fprintf (stderr, "%d/%d\n", origin[dir], extent); memset (origin, 0, gdata.dim * sizeof (CCTK_INT)); } - mapping = Hyperslab_DefineGlobalMappingByIndex (GH, vindex, 1, - direction, - origin, - &extent, - NULL, /* downsample */ - -1, /* table handle */ - NULL /* conversion fn */, - &hsize); + mapping = Hyperslab_GlobalMappingByIndex (GH, vindex, 1, + direction, origin, &extent, + NULL, /* downsample */ + -1, /* table handle */ + NULL /* conversion fn */, + &hsize); if (mapping < 0) { CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING, diff --git a/src/Write2D.c b/src/Write2D.c index cf3fe35..d652f4c 100644 --- a/src/Write2D.c +++ b/src/Write2D.c @@ -94,7 +94,7 @@ static void WriteData (int vtype, @desc Writes the 2D slices of a variable into separate ASCII files. @enddesc - @calls Hyperslab_DefineGlobalMappingByIndex + @calls Hyperslab_GlobalMappingByIndex Hyperslab_FreeMapping Hyperslab_GetList OpenFile @@ -260,14 +260,12 @@ int IOASCII_Write2D (const cGH *GH, 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, /* downsample */ - -1, /* table handle */ - NULL /* conversion fn */, - hsize); + mapping = Hyperslab_GlobalMappingByIndex (GH, vindex, 2, + direction, origin, extent, + NULL, /* downsample */ + -1, /* table handle */ + NULL /* conversion fn */, + hsize); if (mapping < 0) { CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING, diff --git a/src/Write3D.c b/src/Write3D.c index 6a20e2d..8db2f23 100644 --- a/src/Write3D.c +++ b/src/Write3D.c @@ -90,7 +90,7 @@ static void WriteData (int vtype, @desc Writes the 3D volume of a variable into a gnuplot ASCII file. @enddesc - @calls Hyperslab_DefineGlobalMappingByIndex + @calls Hyperslab_GlobalMappingByIndex Hyperslab_FreeMapping Hyperslab_GetList OpenFile @@ -213,14 +213,12 @@ int IOASCII_Write3D (const cGH *GH, int vindex, const char *alias) } /* get the hyperslab mapping */ - mapping = Hyperslab_DefineGlobalMappingByIndex (GH, vindex, 3, - direction, - origin, - extent, - NULL, /* downsample */ - -1, /* table handle */ - NULL /* conversion fn */, - hsize); + mapping = Hyperslab_GlobalMappingByIndex (GH, vindex, 3, + direction, origin, extent, + NULL, /* downsample */ + -1, /* table handle */ + NULL /* conversion fn */, + hsize); if (mapping < 0) { CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING, -- cgit v1.2.3