diff options
author | jofret | 2008-06-19 14:58:41 +0000 |
---|---|---|
committer | jofret | 2008-06-19 14:58:41 +0000 |
commit | 85e8c75a5ef43bdb89be4c5446f26ba84159e7f0 (patch) | |
tree | 97946c0f18f72313739fd9fa9826e5a20893e72c /src/matrixOperations/subtraction/matrixSubtraction.c | |
parent | 122e1d24a5f566689c42a181e64e6c1c4b01f9ea (diff) | |
download | scilab2c-85e8c75a5ef43bdb89be4c5446f26ba84159e7f0.tar.gz scilab2c-85e8c75a5ef43bdb89be4c5446f26ba84159e7f0.tar.bz2 scilab2c-85e8c75a5ef43bdb89be4c5446f26ba84159e7f0.zip |
Split Subtraction
Diffstat (limited to 'src/matrixOperations/subtraction/matrixSubtraction.c')
-rw-r--r-- | src/matrixOperations/subtraction/matrixSubtraction.c | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/src/matrixOperations/subtraction/matrixSubtraction.c b/src/matrixOperations/subtraction/matrixSubtraction.c deleted file mode 100644 index ffd30d7a..00000000 --- a/src/matrixOperations/subtraction/matrixSubtraction.c +++ /dev/null @@ -1,93 +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 "matrixSubtraction.h" - -/* -** \brief Compute an substraction element ways for floats. -** \param in1 : input array. -** \param size1 : size of in1 array. -** \param in2 : input arry. -** \param size2 : size of in2 array. -** \param out : array that contains in1 - in2. -*/ -void sdiffma(float *in1, int size1, - float *in2, int size2, - float *out) -{ - int i = 0; - - for(i = 0 ; i < size1 && i < size2 ; ++i) - { - out[i] = in1[i] - in2[i]; - } -} - -/* -** \brief Compute an substraction element ways for double. -** \param in1 : input array. -** \param size1 : size of in1 array. -** \param in2 : input arry. -** \param size2 : size of in2 array. -** \param out : array that contains in1 - in2. -*/ -void ddiffma(double *in1, int size1, - double *in2, int size2, - double * out) -{ - int i = 0; - - for(i = 0 ; i < size1 && i < size2 ; ++i) - { - out[i] = in1[i] - in2[i]; - } -} - -/* -** \brief Compute an substraction element ways for complex single precision. -** \param in1 : input array. -** \param size1 : size of in1 array. -** \param in2 : input arry. -** \param size2 : size of in2 array. -** \param out : array that contains in1 - in2. -*/ -void cdiffma(floatComplex *in1, int size1, - floatComplex *in2, int size2, - floatComplex *out) -{ - int i = 0; - - for(i = 0 ; i < size1 && i < size2 ; ++i) - { - out[i] = cdiffs(in1[i], in2[i]); - } -} - -/* -** \brief Compute an substraction element ways for complex double precision. -** \param in1 : input array. -** \param size1 : size of in1 array. -** \param in2 : input arry. -** \param size2 : size of in2 array. -** \param out : array that contains in1 - in2. -*/ -void zdiffma(doubleComplex *in1, int size1, - doubleComplex *in2, int size2, - doubleComplex *out) -{ - int i = 0; - - for(i = 0 ; i < size1 && i < size2 ; ++i) - { - out[i] = zdiffs(in1[i], in2[i]); - } -} |