summaryrefslogtreecommitdiff
path: root/src/elementaryFunctions/tan
diff options
context:
space:
mode:
Diffstat (limited to 'src/elementaryFunctions/tan')
-rw-r--r--src/elementaryFunctions/tan/Makefile47
-rw-r--r--src/elementaryFunctions/tan/ctans.c14
2 files changed, 10 insertions, 51 deletions
diff --git a/src/elementaryFunctions/tan/Makefile b/src/elementaryFunctions/tan/Makefile
deleted file mode 100644
index 82a60e80..00000000
--- a/src/elementaryFunctions/tan/Makefile
+++ /dev/null
@@ -1,47 +0,0 @@
-##
-## -*- makefile -*-
-##
-## Makefile
-## Made by Bruno JOFRET <bruno.jofret@inria.fr>
-##
-## Started on Thu Nov 30 16:33:40 2006 jofret
-## Last update Thu Mar 22 08:59:51 2007 jofret
-##
-## Copyright INRIA 2006
-##
-
-NAME = ../../lib/libTan.a
-
-RM = rm -f
-CC = gcc
-INCLUDE = -I ../../type -I ../includes -I ../../includes
-LINK = -L ../../lib
-CFLAGS = -Werror -Wall -pedantic -ansi $(INCLUDE) $(LINK) $(STANDARD)
-AR = ar cru
-RANLIB = ranlib
-
-SRC = stans.c \
- dtans.c \
- ctans.c \
- ztans.c \
- stana.c \
- dtana.c \
- ctana.c \
- ztana.c
-
-HEAD = ../includes/tan.h
-OBJ = $(SRC:.c=.o)
-
-all: $(NAME)
-
-$(NAME) : $(HEAD) $(OBJ)
- $(AR) $@ $(OBJ)
- $(RANLIB) $@
-
-clean:
- $(RM) $(OBJ)
-
-distclean: clean
- $(RM) $(NAME)
-
-re: clean all
diff --git a/src/elementaryFunctions/tan/ctans.c b/src/elementaryFunctions/tan/ctans.c
index a5dbf153..5c4e17fd 100644
--- a/src/elementaryFunctions/tan/ctans.c
+++ b/src/elementaryFunctions/tan/ctans.c
@@ -5,21 +5,27 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Thu Dec 7 12:04:28 2006 jofret
-** Last update Wed Mar 21 16:23:08 2007 jofret
+** Last update Sun Mar 25 12:23:06 2007 bruno
**
** Copyright INRIA 2006
*/
#include "tan.h"
-#include "log.h"
+/*
+ #include "log.h"
+*/
#include "sqrt.h"
-#include "lapack.h"
+/*
+ #include "lapack.h"
+*/
floatComplex ctans(floatComplex z) {
double out_real = 0;
double out_imag = 0;
- double L = 1 + dlogs(2 / dsqrts(dlamch('e', 1)));
+ /*
+ double L = 1 + dlogs(2 / dsqrts(dlamch('e', 1)));
+ */
return FloatComplex(out_real, out_imag);
}