diff options
-rw-r--r-- | interface.ccl | 2 | ||||
-rw-r--r-- | src/DumpUtils.c | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/interface.ccl b/interface.ccl index c6bdce0..9fa8381 100644 --- a/interface.ccl +++ b/interface.ccl @@ -45,4 +45,4 @@ CCTK_INT FUNCTION Coord_GroupSystem \ (CCTK_POINTER_TO_CONST IN GH, \ CCTK_STRING IN groupname) -REQUIRES FUNCTION Coord_GroupSystem +USES FUNCTION Coord_GroupSystem diff --git a/src/DumpUtils.c b/src/DumpUtils.c index 5b4c6aa..54c56ce 100644 --- a/src/DumpUtils.c +++ b/src/DumpUtils.c @@ -257,7 +257,11 @@ void IOHDF5Util_DumpCommonAttributes (const cGH *GH, const ioRequest *request, /* attributes describing the variable */ groupname = CCTK_GroupNameFromVarI (request->vindex); WRITE_ATTRIBUTE ("groupname", groupname, object, myGH, 0, myGH->HDF5_STRING); - coord_system_handle = Coord_GroupSystem (GH, groupname); + coord_system_handle = -1; + if (CCTK_IsFunctionAliased ("Coord_GroupSystem")) + { + coord_system_handle = Coord_GroupSystem (GH, groupname); + } free (groupname); iattr = CCTK_GroupTypeFromVarI (request->vindex); WRITE_ATTRIBUTE ("grouptype", &iattr, object, myGH, 0, HDF5_INT); |