diff options
| author | tradke <tradke@ff385933-4943-42dc-877b-ffc776028de6> | 2001-12-11 21:44:45 +0000 |
|---|---|---|
| committer | tradke <tradke@ff385933-4943-42dc-877b-ffc776028de6> | 2001-12-11 21:44:45 +0000 |
| commit | eebc72b50dd8043a793d641dc48c70cdeefd2483 (patch) | |
| tree | f004d0e3cdd67ebc7225056379d9ecf70b367556 | |
| parent | ba6d4ed0a0b9227fb97a828725aec27230def1d1 (diff) | |
Put the 'int *ierror' argument as the first one in fortran wrappers as this
is Cactus coding convention.
Closes PR CactusUtils/861.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/NaNChecker/trunk@19 ff385933-4943-42dc-877b-ffc776028de6
| -rw-r--r-- | src/NaNCheck.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/NaNCheck.c b/src/NaNCheck.c index 1debe37..b413564 100644 --- a/src/NaNCheck.c +++ b/src/NaNCheck.c @@ -37,13 +37,13 @@ int NaNChecker_NaNCheck (const cGH *GH); ******************** Fortran Wrappers ************************ ********************************************************************/ void CCTK_FCALL CCTK_FNAME (NaNChecker_CheckVarsForNaN) - (const cGH *GH, - int *ierror, + (int *ierror, + const cGH *GH, const int *report_max, TWO_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (NaNChecker_SetVarsToNaN) - (const cGH *GH, - int *ierror, + (int *ierror, + const cGH *GH, ONE_FORTSTRING_ARG); @@ -202,8 +202,8 @@ int NaNChecker_CheckVarsForNaN (const cGH *GH, } void CCTK_FCALL CCTK_FNAME (NaNChecker_CheckVarsForNaN) - (const cGH *GH, - int *ierror, + (int *ierror, + const cGH *GH, const int *report_max, TWO_FORTSTRING_ARG) { @@ -269,8 +269,8 @@ int NaNChecker_SetVarsToNaN (const cGH *GH, } void CCTK_FCALL CCTK_FNAME (NaNChecker_SetVarsToNaN) - (const cGH *GH, - int *ierror, + (int *ierror, + const cGH *GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (vars); |