From 4887092b4731a40a970cfd0f867287e45db06955 Mon Sep 17 00:00:00 2001
From: jofret
Date: Tue, 20 May 2008 15:00:41 +0000
Subject: * Adding atanh Algorithm * Update file License * Need some tests
 improvement

---
 src/elementaryFunctions/atanh/satanhs.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/elementaryFunctions/atanh/satanhs.c')

diff --git a/src/elementaryFunctions/atanh/satanhs.c b/src/elementaryFunctions/atanh/satanhs.c
index 36eeb99a..15354aad 100644
--- a/src/elementaryFunctions/atanh/satanhs.c
+++ b/src/elementaryFunctions/atanh/satanhs.c
@@ -10,9 +10,9 @@
  *
  */
 
-#include <math.h>
 #include "atanh.h"
+#include "atan.h"
 
 float		satanhs(float x) {
-  return (atanhf(x));
+  return (-cimags(catans(FloatComplex(0.0, -x))));
 }
-- 
cgit