From 44836c0973bf1069981f46b877d31a80cee051a4 Mon Sep 17 00:00:00 2001
From: jofret
Date: Fri, 23 Mar 2007 16:09:04 +0000
Subject: Autotools...

---
 src/elementaryFunctions/tan/ctans.c | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'src/elementaryFunctions/tan/ctans.c')

diff --git a/src/elementaryFunctions/tan/ctans.c b/src/elementaryFunctions/tan/ctans.c
index f083a506..a5dbf153 100644
--- a/src/elementaryFunctions/tan/ctans.c
+++ b/src/elementaryFunctions/tan/ctans.c
@@ -5,14 +5,21 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Thu Dec  7 12:04:28 2006 jofret
-** Last update Fri Feb 23 17:25:49 2007 jofret
+** Last update Wed Mar 21 16:23:08 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "tan.h"
+#include "log.h"
+#include "sqrt.h"
+#include "lapack.h"
 
 floatComplex		ctans(floatComplex z) {
-    /* FIXME: Dummy... */
-  return z;
+
+  double out_real = 0;
+  double out_imag = 0;
+  double L = 1 + dlogs(2 / dsqrts(dlamch('e', 1)));
+
+  return FloatComplex(out_real, out_imag);
 }
-- 
cgit