From a6e5fe5da63ed2dd8db74504075abacd2d557754 Mon Sep 17 00:00:00 2001 From: jofret Date: Tue, 11 Sep 2007 16:02:09 +0000 Subject: End of prototyping all elementary functions. Just need some code (wait for an internship). --- src/elementaryFunctions/atan/catana.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 src/elementaryFunctions/atan/catana.c (limited to 'src/elementaryFunctions/atan/catana.c') diff --git a/src/elementaryFunctions/atan/catana.c b/src/elementaryFunctions/atan/catana.c new file mode 100644 index 00000000..d1652c22 --- /dev/null +++ b/src/elementaryFunctions/atan/catana.c @@ -0,0 +1,20 @@ +/* +** -*- C -*- +** +** catana.c +** Made by Bruno JOFRET +** +** Started on Thu Dec 7 14:54:24 2006 jofret +** Last update Thu Sep 6 11:56:04 2007 bruno +** +** Copyright INRIA 2006 +*/ + +#include "atan.h" + +void catana(floatComplex* x, floatComplex* y, int size) { + int i = 0; + for (i = 0; i < size; ++i) { + y[i] = catans(x[i]); + } +} -- cgit