Xcos solvers : Sundials Dormand-Price 4(5) implementation
[scilab.git] / scilab / modules / scicos / src / scicos_sundials / src / sundials / sundials_math.c
index 8bc9d59..fd018ba 100644 (file)
@@ -92,3 +92,17 @@ realtype RExp(realtype x)
   return(expl(x));
 #endif
 }
+
+realtype FLOOR(realtype x)
+{
+#if defined(SUNDIALS_USE_GENERIC_MATH)
+  return(floor((double) x));
+#elif defined(SUNDIALS_DOUBLE_PRECISION)
+  return((floor(x));
+#elif defined(SUNDIALS_SINGLE_PRECISION)
+  return(floor(x));
+#elif defined(SUNDIALS_EXTENDED_PRECISION)
+  return(floor(x));
+#endif
+}
+