From 92320c9a718a0a0d170c18884ada0f596bbf6a62 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@ff385933-4943-42dc-877b-ffc776028de6>
Date: Mon, 22 Sep 2008 23:50:48 +0000
Subject: 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
---
 interface.ccl  | 22 ++++++++++++++++++++++
 src/NaNCheck.c | 25 +++++++++++++++++++++++++
 2 files changed, 47 insertions(+)

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);
+}
-- 
cgit v1.2.3