From 85c7a2e39d24c29a079a47e5c75e88c468756e5d Mon Sep 17 00:00:00 2001
From: jofret
Date: Tue, 13 Feb 2007 16:14:33 +0000
Subject: * src/elementaryFunctions/tanh/ztanhs.c : Fixed with C99 Complex but
 Scilab computation. * src/elementaryFunctions/tanh/ctanhs.c : Fixed with C99
 Complex but Scilab computation. * src/auxiliaryFunctions/find : Find not null
 element in list. * src/auxiliaryFunctions/find/{sdcz}finda.c : Implementation
 : s(float) d(double) 		 c(floatComplex) z(doubleComplex) *
 src/auxiliaryFunctions/find/find.h : Interface. *
 src/auxiliaryFunctions/find/notFound.h : Constant if all elements are not
 null.

Adding some other functions.

---
 src/elementaryFunctions/tanh/ctanhs.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'src/elementaryFunctions/tanh/ctanhs.c')

diff --git a/src/elementaryFunctions/tanh/ctanhs.c b/src/elementaryFunctions/tanh/ctanhs.c
index 6eb84827..aae62956 100644
--- a/src/elementaryFunctions/tanh/ctanhs.c
+++ b/src/elementaryFunctions/tanh/ctanhs.c
@@ -5,14 +5,20 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Thu Dec  7 12:04:28 2006 jofret
-** Last update Wed Jan 31 10:56:39 2007 jofret
+** Last update Tue Feb 13 11:03:07 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "floatComplex.h"
 
+floatComplex		ctans(floatComplex);
+
 floatComplex		ctanhs(floatComplex z) {
-  /* FIXME: Dummy... */
+  float real = creal(z);
+  float imag = cimag(z);
+
+  floatComplex result = ctans(FloatComplex(-imag, real));
+  return (FloatComplex(cimag(result), -creal(result)));
   return z;
 }
-- 
cgit