diff options
| -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); +} |