summaryrefslogtreecommitdiff
path: root/src/auxiliaryFunctions/sign/csigns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/auxiliaryFunctions/sign/csigns.c')
-rw-r--r--src/auxiliaryFunctions/sign/csigns.c26
1 files changed, 13 insertions, 13 deletions
diff --git a/src/auxiliaryFunctions/sign/csigns.c b/src/auxiliaryFunctions/sign/csigns.c
index 9590e4bf..218314ab 100644
--- a/src/auxiliaryFunctions/sign/csigns.c
+++ b/src/auxiliaryFunctions/sign/csigns.c
@@ -1,18 +1,18 @@
/*
-** -*- C -*-
-**
-** csigns.c
-** Made by Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on Fri Sep 7 16:56:47 2007 bruno
-** Last update Fri Sep 7 17:29:18 2007 bruno
-**
-** Copyright INRIA 2007
-*/
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET
+ *
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution. The terms
+ * are also available at
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
#include "sign.h"
+#include "abs.h"
-int csigns(floatComplex in) {
- /* FIXME : Dummy ...*/
- return -1;
+floatComplex csigns(floatComplex in) {
+ return FloatComplex(creals(in) / cabss(in), cimags(in) / cabss(in));
}