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

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");