Added sgn function for determining sign of a number. Is there

somewhere else this can be found?

1 files changed, 12 insertions, 0 deletions

diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c
index c3aa020..3750cf1 100644
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c
+++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c
@@ -33,9 +33,21 @@
 #include "cctk_Parameters.h"                  
                                                 
 #include "Symmetry.h"                         
+
+#define KRANC_C
                                                 
 #include "GenericFD.h"
 
 
 /* TODO: provide functions for differencing, use FD macros to
    evaluate == use macros to evaluate corresponding functions */
+
+CCTK_INT sgn(CCTK_REAL x)
+{
+  if (x < 0)
+    return -1;
+  else if (x > 0)
+    return 1;
+  else 
+    return 0;
+}