From cf5820aa9635b49ee1aa27e4a66d22cb9ca01950 Mon Sep 17 00:00:00 2001 From: tradke Date: Wed, 4 Oct 2006 14:44:09 +0000 Subject: Make only optional use of aliased function Coord_GroupSystem(). git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOHDF5Util/trunk@133 7842ec3a-9562-4be5-9c5b-06ba18f2b668 --- interface.ccl | 2 +- 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); -- cgit v1.2.3