1 files changed, 19 insertions, 0 deletions
diff --git a/src/auxiliaryFunctions/abs/cabss.c b/src/auxiliaryFunctions/abs/cabss.c
index e69de29b..a9826990 100644
--- a/src/auxiliaryFunctions/abs/cabss.c
+++ b/src/auxiliaryFunctions/abs/cabss.c
@@ -0,0 +1,19 @@
+/*
+**  -*- C -*-
+**
+** cabss.c
+** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
+**
+** Started on  Mon Apr 23 17:08:52 2007 jofret
+** Last update Mon Apr 23 17:10:22 2007 jofret
+**
+** Copyright INRIA 2007
+*/
+
+#include "abs.h"
+
+float cabss(floatComplex in) {
+  float real = creals(in);
+  float imag = cimags(in);
+  return (ssqrts( (real*real) + (imag*imag) ));
+}