diff options
| author | schnetter <schnetter@ff385933-4943-42dc-877b-ffc776028de6> | 2003-10-28 13:48:25 +0000 |
|---|---|---|
| committer | schnetter <schnetter@ff385933-4943-42dc-877b-ffc776028de6> | 2003-10-28 13:48:25 +0000 |
| commit | f4f0bdf597ab77ba6df7d7316495af2d956bf585 (patch) | |
| tree | 7a580da8018df371416c011e63b6005d16e9da08 | |
| parent | cd09a9bfbe98c87accd97bce0e90a6e6d0ce6d31 (diff) | |
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
| -rw-r--r-- | src/NaNCheck.c | 12 |
1 files 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); } |