From c5bf30dc18b9f3f88654e07896c9c98b9ac4e344 Mon Sep 17 00:00:00 2001 From: schnetter Date: Tue, 28 Oct 2003 13:48:24 +0000 Subject: Change the way in which pointers are passed to and from Fortran. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@90 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129 --- src/Advertise.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Advertise.c b/src/Advertise.c index d291295..b740758 100644 --- a/src/Advertise.c +++ b/src/Advertise.c @@ -10,10 +10,10 @@ static const char *rcsid = "$Header$"; CCTK_FILEVERSION(CactusEinstein_Extract_Advertise_c) void CCTK_FCALL CCTK_FNAME(Extract_Advertise) - (cGH *GH, ONE_FORTSTRING_ARG); + (cGH **GH, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME(Extract_Advertise) - (cGH *GH, ONE_FORTSTRING_ARG) + (cGH **GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(file) /* advertise new files for downloading */ @@ -25,7 +25,7 @@ void CCTK_FCALL CCTK_FNAME(Extract_Advertise) advertisedFile.description = "Extract files"; advertisedFile.mimetype = "application/x-graph"; - IOUtil_AdvertiseFile (GH, file, &advertisedFile); + IOUtil_AdvertiseFile (*GH, file, &advertisedFile); free(file); } -- cgit v1.2.3