From d088baa77b6ec007e908801b3f12c79f939e2167 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 28 Oct 2003 13:48:25 +0000 Subject: Change the way in which pointers are passed to and from Fortran. git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@420 b61c5cb5-eaca-4651-9a7a-d64986f99364 --- src/PughUtils.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/PughUtils.c b/src/PughUtils.c index 0687b1f..975f197 100644 --- a/src/PughUtils.c +++ b/src/PughUtils.c @@ -40,7 +40,7 @@ void PUGHi_PrintStorageReport (void); void PUGH_PrintFinalStorageReport (const cGH *GH); void PUGH_PrintStorage(const cGH *GH); void CCTK_FCALL CCTK_FNAME (PUGH_PrintStorage) - (const cGH *GH); + (const cGH **GH); /*@@ @routine PUGH_Topology @@ -416,7 +416,7 @@ void PUGH_PrintStorage (const cGH *GH) } void CCTK_FCALL CCTK_FNAME (PUGH_PrintStorage) - (const cGH *GH) + (const cGH **GH) { - PUGH_PrintStorage (GH); + PUGH_PrintStorage (*GH); } -- cgit v1.2.3