aboutsummaryrefslogtreecommitdiff
path: root/src/DumpVar.c
diff options
context:
space:
mode:
authortradke <tradke@7842ec3a-9562-4be5-9c5b-06ba18f2b668>2001-04-19 21:15:37 +0000
committertradke <tradke@7842ec3a-9562-4be5-9c5b-06ba18f2b668>2001-04-19 21:15:37 +0000
commit9b2ec1c54bcc430a3a726f8553cfe677bbf2a1ff (patch)
tree633deb0fbd75d17553bb1964a8fd9800f493a8be /src/DumpVar.c
parentd18b858c0be9b0ff2a68db8271a2f04be9d3a46e (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.c13
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];