diff options
| author | tradke <tradke@ebee0441-1374-4afa-a3b5-247f3ba15b9a> | 2003-10-28 21:10:44 +0000 |
|---|---|---|
| committer | tradke <tradke@ebee0441-1374-4afa-a3b5-247f3ba15b9a> | 2003-10-28 21:10:44 +0000 |
| commit | 13aea89ecef5589f2af9aa93376f182517c4665c (patch) | |
| tree | 3f5f5f3d573f48f20e817c69d9c8592dc70110bc /src | |
| parent | 57850648aed3aa05cec07459a44f9b1723da448c (diff) | |
Fixed a problem with checkpointing of grid scalars.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOFlexIO/trunk@294 ebee0441-1374-4afa-a3b5-247f3ba15b9a
Diffstat (limited to 'src')
| -rw-r--r-- | src/DumpVar.c | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/src/DumpVar.c b/src/DumpVar.c index d2cf4ca..7c9ea2e 100644 --- a/src/DumpVar.c +++ b/src/DumpVar.c @@ -539,7 +539,8 @@ static void AddCommonAttributes (const cGH *GH, const ioRequest *request, DECLARE_CCTK_PARAMETERS - itmp = malloc (request->hdim * sizeof (CCTK_INT4)); + /* allocate at least one CCTK_INT4 if hdim is 0 */ + itmp = malloc ((request->hdim+1) * sizeof (CCTK_INT4)); name = CCTK_FullName (request->vindex); FLEXIO_ERROR (IOwriteAttribute (file, "name", FLEXIO_CHAR, @@ -602,12 +603,20 @@ static void AddCommonAttributes (const cGH *GH, const ioRequest *request, free (dtmp); } - for (i = 0; i < request->hdim; i++) + if (request->hdim) + { + for (i = 0; i < request->hdim; i++) + { + itmp[i] = request->hsize[i]; + } + FLEXIO_ERROR (IOwriteAttribute (file, "global_size", FLEXIO_INT4, + request->hdim, itmp)); + } + else { - itmp[i] = request->hsize[i]; + itmp[0] = 0; + FLEXIO_ERROR (IOwriteAttribute (file, "global_size", FLEXIO_INT4, 1, itmp)); } - FLEXIO_ERROR (IOwriteAttribute (file, "global_size", FLEXIO_INT4, - request->hdim, itmp)); itmp[0] = CCTK_nProcs (GH); FLEXIO_ERROR (IOwriteAttribute (file, "nprocs", FLEXIO_INT4, 1, itmp)); |