From e686497920f1e3243334f038050645597663f51b Mon Sep 17 00:00:00 2001 From: goodale Date: Tue, 18 May 2004 08:29:17 +0000 Subject: Since scalars are zero-dim GAs now, need an extra check for the extras and connectivity freeing. git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@442 b61c5cb5-eaca-4651-9a7a-d64986f99364 --- src/SetupPGH.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/SetupPGH.c b/src/SetupPGH.c index db4f4ca..cd51f16 100644 --- a/src/SetupPGH.c +++ b/src/SetupPGH.c @@ -269,11 +269,11 @@ void PUGH_DestroyPGH (pGH **GHin) for CCTK_ARRAY groups. Remember that the connectivity and extras for CCTK_GF types are shared between all such groups and are destroyed later. */ - if (GA->connectivity != GH->Connectivity[pgroup.dim-1]) + if (pgroup.dim == 0 || GA->connectivity != GH->Connectivity[pgroup.dim-1]) { PUGH_DestroyConnectivity (&GA->connectivity); } - if (GA->extras != GH->GFExtras[pgroup.dim-1]) + if (pgroup.dim == 0 || GA->extras != GH->GFExtras[pgroup.dim-1]) { PUGH_DestroyPGExtras (&GA->extras); } -- cgit v1.2.3