diff options
author | schnetter <schnetter@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-10-28 13:48:24 +0000 |
---|---|---|
committer | schnetter <schnetter@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-10-28 13:48:24 +0000 |
commit | c5bf30dc18b9f3f88654e07896c9c98b9ac4e344 (patch) | |
tree | d06e822a57acae39abb24f8490bdf3fc728965b8 | |
parent | 3f6799302a30d97d9354bb77fdb32dea4ca464f5 (diff) |
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
-rw-r--r-- | src/Advertise.c | 6 |
1 files 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); } |