diff options
author | schnetter <schnetter@ff385933-4943-42dc-877b-ffc776028de6> | 2008-09-22 23:50:48 +0000 |
---|---|---|
committer | schnetter <schnetter@ff385933-4943-42dc-877b-ffc776028de6> | 2008-09-22 23:50:48 +0000 |
commit | 92320c9a718a0a0d170c18884ada0f596bbf6a62 (patch) | |
tree | 172836cb54a4f9e31cd01d166554dfe41583be7c | |
parent | bc510ed02e2961c77855bb611276acbb32441eb8 (diff) |
Export routines CheckVarsForNaN and SetVarsToNaN as aliased functions.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/NaNChecker/trunk@84 ff385933-4943-42dc-877b-ffc776028de6
-rw-r--r-- | interface.ccl | 22 | ||||
-rw-r--r-- | src/NaNCheck.c | 25 |
2 files changed, 47 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index d4d1dd9..01662e8 100644 --- a/interface.ccl +++ b/interface.ccl @@ -6,8 +6,30 @@ implements: NaNChecker inherits: Reduce + INCLUDES HEADER: NaNCheck.h in NaNChecker.h + + +CCTK_INT FUNCTION CheckVarsForNaN \ + (CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN report_max, \ + CCTK_STRING IN vars, \ + CCTK_STRING IN check_for, \ + CCTK_STRING IN action_if_found) +PROVIDES FUNCTION CheckVarsForNaN \ + WITH NaNChecker_CheckVarsForNaN_Wrapper \ + LANGUAGE C + +CCTK_INT FUNCTION SetVarsToNaN \ + (CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_STRING IN vars) +PROVIDES FUNCTION SetVarsToNaN \ + WITH NaNChecker_SetVarsToNaN_Wrapper \ + LANGUAGE C + + + private: INT NaNmask TYPE=GF TAGS='Prolongation="None" checkpoint="no"' "Grid function mask for NaN locations" diff --git a/src/NaNCheck.c b/src/NaNCheck.c index 1524619..70a37df 100644 --- a/src/NaNCheck.c +++ b/src/NaNCheck.c @@ -1020,3 +1020,28 @@ static void SetToNaN (int vindex, const char *optstring, void *_info) /* clean up */ free (fullname); } + + +/******************************************************************** + ******************** Schedule Wrappers *********************** + ********************************************************************/ + +CCTK_INT +NaNChecker_CheckVarsForNaN_Wrapper (CCTK_POINTER_TO_CONST const cctkGH_, + CCTK_INT const report_max, + CCTK_STRING const vars, + CCTK_STRING const check_for, + CCTK_STRING const action_if_found) +{ + return NaNChecker_CheckVarsForNaN ((cGH const *) cctkGH_, + report_max, + vars, check_for, action_if_found); +} + +CCTK_INT +NaNChecker_SetVarsToNaN_Wrapper (CCTK_POINTER_TO_CONST const cctkGH_, + CCTK_STRING const vars) +{ + return NaNChecker_SetVarsToNaN ((cGH const *) cctkGH_, + vars); +} |