diff options
author | torset | 2009-01-26 08:15:17 +0000 |
---|---|---|
committer | torset | 2009-01-26 08:15:17 +0000 |
commit | edda6cfc057ae0185720c663ef4c5f97c05df1dd (patch) | |
tree | e1ac4c13e35df2609ad008fca673d327d008eb4c | |
parent | 543a19230aab23a5dc3d583d1e56eae29293a3a2 (diff) | |
download | scilab2c-edda6cfc057ae0185720c663ef4c5f97c05df1dd.tar.gz scilab2c-edda6cfc057ae0185720c663ef4c5f97c05df1dd.tar.bz2 scilab2c-edda6cfc057ae0185720c663ef4c5f97c05df1dd.zip |
Remove Old
-rw-r--r-- | src/Scilab2C/Scilab2C/CFiles/sci2ccode/csuma.c | 24 | ||||
-rw-r--r-- | src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsuma.c | 25 | ||||
-rw-r--r-- | src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssuma.c | 25 | ||||
-rw-r--r-- | src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsuma.c | 24 |
4 files changed, 0 insertions, 98 deletions
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csuma.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csuma.c deleted file mode 100644 index 68ebb291..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csuma.c +++ /dev/null @@ -1,24 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-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 "sum.h" - -floatComplex csuma(floatComplex *in, int size) { - floatComplex accumulate = FloatComplex(0.0f, 0.0f); - int i = 0; - - for (i = 0; i < size; ++i) - { - accumulate = cadds(accumulate, in[i]); - } - return accumulate; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsuma.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsuma.c deleted file mode 100644 index eddceb6f..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsuma.c +++ /dev/null @@ -1,25 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-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 "sum.h" - -double dsuma(double *in, int size) { - double accumulate = 0.0; - int i = 0; - - for (i = 0; i < size; ++i) - { - accumulate += in[i]; - } - return accumulate; - -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssuma.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssuma.c deleted file mode 100644 index aabc7fe0..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssuma.c +++ /dev/null @@ -1,25 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-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 "sum.h" - -float ssuma(float *in, int size) { - float accumulate = 0.0f; - int i = 0; - - for (i = 0; i < size; ++i) - { - accumulate += in[i]; - } - return accumulate; - -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsuma.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsuma.c deleted file mode 100644 index e566c95a..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsuma.c +++ /dev/null @@ -1,24 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-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 "sum.h" - -doubleComplex zsuma(doubleComplex *in, int size) { - doubleComplex accumulate = DoubleComplex(0.0f, 0.0f); - int i = 0; - - for (i = 0; i < size; ++i) - { - accumulate = zadds(accumulate, in[i]); - } - return accumulate; -} |