From 4fe1b10b73b5aa04074b243340b7e88b8e2a498a Mon Sep 17 00:00:00 2001 From: tradke Date: Fri, 1 Aug 2003 12:18:22 +0000 Subject: Fixed a bug for unchunked output with multiple processors. This closes CactusPUGHIO/1577. git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOFlexIO/trunk@284 ebee0441-1374-4afa-a3b5-247f3ba15b9a --- src/DumpVar.c | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/DumpVar.c b/src/DumpVar.c index 2e6ea5e..e2896b5 100644 --- a/src/DumpVar.c +++ b/src/DumpVar.c @@ -226,7 +226,7 @@ static int WriteGS (const cGH *GH, const ioRequest *request, IOFile file) { i = CCTK_ReductionHandle ("sum"); if (i >= 0) - { + { i = CCTK_ReduceArray (GH, -1, i, nprocs, request->hdatatype, buffer, 1, 1, request->hdatatype, nprocs, buffer); } @@ -405,11 +405,9 @@ static int WriteGA (const cGH *GH, const ioRequest *request, IOFile file) { /* need to copy CCTK_INT[] to int[] */ hsize_chunk = malloc (request->hdim * sizeof (int)); - - /* first calculate the local size and reserve the chunk */ for (i = 0; i < request->hdim; i++) { - hsize_chunk[i] = request->hsize_chunk[i]; + hsize_chunk[i] = request->hsize[i]; } IOreserveChunk (file, IOFlexIO_DataType (request->hdatatype), @@ -750,7 +748,7 @@ static void ProcDump (const cGH *GH, const ioRequest *request, void *hdata, for (i = 0; i < request->hdim; i++) { chunk_origin[i] = request->hoffset[i]; - chunk_dims[i] = request->hsize_chunk[request->hdim + i]; + chunk_dims[i] = request->hsize_chunk[i]; } ioUtilGH = CCTK_GHExtension (GH, "IO"); -- cgit v1.2.3