diff options
Diffstat (limited to 'src')
| -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"); |