diff options
author | tradke <tradke@ebee0441-1374-4afa-a3b5-247f3ba15b9a> | 2003-08-01 12:18:22 +0000 |
---|---|---|
committer | tradke <tradke@ebee0441-1374-4afa-a3b5-247f3ba15b9a> | 2003-08-01 12:18:22 +0000 |
commit | 4fe1b10b73b5aa04074b243340b7e88b8e2a498a (patch) | |
tree | a776e1fd808fd2d33720575db7e0401db2daecf0 | |
parent | 8d40d2ae542aab4d85569b22d5c56fbb4e53c66d (diff) |
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
-rw-r--r-- | src/DumpVar.c | 8 |
1 files 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"); |