diff options
Diffstat (limited to 'src/auxiliaryFunctions/sign/zsigna.c')
| -rw-r--r-- | src/auxiliaryFunctions/sign/zsigna.c | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/src/auxiliaryFunctions/sign/zsigna.c b/src/auxiliaryFunctions/sign/zsigna.c index cb6c13b7..eafbfbbf 100644 --- a/src/auxiliaryFunctions/sign/zsigna.c +++ b/src/auxiliaryFunctions/sign/zsigna.c @@ -1,24 +1,21 @@ /* -** -*- C -*- -** -** zsigna.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Sep 7 17:38:11 2007 bruno -** Last update Fri Sep 7 17:38:36 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" -int zsigna(doubleComplex *in, int size) { +void zsigna(doubleComplex *in, int size, doubleComplex *out) { int i = 0; - int sign = 1; - /* FIXME : Does it what it's supposed to do ? */ for (i = 0 ; i < size ; ++i) { - sign = sign * zsigns(in[i]); + out[i] = zsigns(in[i]); } - return sign; } |