diff options
author | tradke <tradke@7842ec3a-9562-4be5-9c5b-06ba18f2b668> | 2001-04-19 21:15:37 +0000 |
---|---|---|
committer | tradke <tradke@7842ec3a-9562-4be5-9c5b-06ba18f2b668> | 2001-04-19 21:15:37 +0000 |
commit | 9b2ec1c54bcc430a3a726f8553cfe677bbf2a1ff (patch) | |
tree | 633deb0fbd75d17553bb1964a8fd9800f493a8be /src/DumpVar.c | |
parent | d18b858c0be9b0ff2a68db8271a2f04be9d3a46e (diff) |
Turn HDF5 automatic error printing off while checking if a 'Cactus version'
attribute exists in a checkpoint file.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOHDF5Util/trunk@26 7842ec3a-9562-4be5-9c5b-06ba18f2b668
Diffstat (limited to 'src/DumpVar.c')
-rw-r--r-- | src/DumpVar.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/DumpVar.c b/src/DumpVar.c index 7ecf7e0..d6738f0 100644 --- a/src/DumpVar.c +++ b/src/DumpVar.c @@ -5,7 +5,8 @@ @desc Routines for writing variables into HDF5 data or checkpoint files. These routines are used by other HDF5 IO methods. - @enddesc + @enddesc + @version $Id$ @@*/ @@ -19,6 +20,10 @@ #include "ioHDF5UtilGH.h" +/* the rcs ID and its dummy function to use it */ +static char *rcsid = "$Id$"; +CCTK_FILEVERSION(BetaThorns_IOHDF5Util_DumpVar_c) + /* #define DEBUG_ME 1 */ #define IOTAGBASE 20000 /* This may break on more than 2000 processors */ @@ -404,10 +409,10 @@ static int IOHDF5Util_DumpGA (cGH *GH, void *outme; /* The data pointer to dump ... */ int free_outme; /* and whether it needs freeing */ int retval; +#ifdef CCTK_MPI void *tmpd; int incoming; int outgoing; -#ifdef CCTK_MPI int i, j; MPI_Status ms; #endif @@ -596,7 +601,7 @@ static int IOHDF5Util_getDumpData (cGH *GH, if (NewHyperslab_GetLocalHyperslab (GH, vindex, timelevel, request->sdim, cctk_output_type, NULL, request->origin, request->direction, request->length, - request->downsample, outme, + request->downsample, 0, outme, free_outme, hsizes, hsizes_global, hsizes_offset) < 0) { fullname = CCTK_FullName (vindex); @@ -607,8 +612,6 @@ static int IOHDF5Util_getDumpData (cGH *GH, return (-1); } - *free_outme = 1; - for (i = 0; i < request->sdim; i++) { geom[i + 0*request->sdim] = hsizes_offset[i]; |