From f4f0bdf597ab77ba6df7d7316495af2d956bf585 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/CactusUtils/NaNChecker/trunk@51 ff385933-4943-42dc-877b-ffc776028de6 --- src/NaNCheck.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/NaNCheck.c b/src/NaNCheck.c index 0e2bfaa..1b3c35f 100644 --- a/src/NaNCheck.c +++ b/src/NaNCheck.c @@ -38,12 +38,12 @@ int NaNChecker_NaNCheck (const cGH *GH); ********************************************************************/ void CCTK_FCALL CCTK_FNAME (NaNChecker_CheckVarsForNaN) (int *ierror, - const cGH *GH, + const cGH **GH, const int *report_max, THREE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (NaNChecker_SetVarsToNaN) (int *ierror, - const cGH *GH, + const cGH **GH, ONE_FORTSTRING_ARG); @@ -349,12 +349,12 @@ int NaNChecker_CheckVarsForNaN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (NaNChecker_CheckVarsForNaN) (int *ierror, - const cGH *GH, + const cGH **GH, const int *report_max, THREE_FORTSTRING_ARG) { THREE_FORTSTRING_CREATE (vars, check_for, action_if_found); - *ierror = NaNChecker_CheckVarsForNaN (GH, *report_max, vars, check_for, + *ierror = NaNChecker_CheckVarsForNaN (*GH, *report_max, vars, check_for, *action_if_found ? action_if_found : NULL); free (vars); free (check_for); @@ -417,11 +417,11 @@ int NaNChecker_SetVarsToNaN (const cGH *GH, void CCTK_FCALL CCTK_FNAME (NaNChecker_SetVarsToNaN) (int *ierror, - const cGH *GH, + const cGH **GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vars); - *ierror = NaNChecker_SetVarsToNaN (GH, vars); + *ierror = NaNChecker_SetVarsToNaN (*GH, vars); free (vars); } -- cgit v1.2.3