summaryrefslogtreecommitdiff
path: root/src/matrixOperations/addition/matrixAddition.c
diff options
context:
space:
mode:
authorjofret2008-06-19 14:51:24 +0000
committerjofret2008-06-19 14:51:24 +0000
commit3dfc3765c7454792e630b42e72333ae3a7f1fc45 (patch)
treeb8641f5293be8f50f8d81ce4075b29973157ca5a /src/matrixOperations/addition/matrixAddition.c
parent679aac39ce151580256c1dca864f156b89355bcb (diff)
downloadscilab2c-3dfc3765c7454792e630b42e72333ae3a7f1fc45.tar.gz
scilab2c-3dfc3765c7454792e630b42e72333ae3a7f1fc45.tar.bz2
scilab2c-3dfc3765c7454792e630b42e72333ae3a7f1fc45.zip
Split Addition
Diffstat (limited to 'src/matrixOperations/addition/matrixAddition.c')
-rw-r--r--src/matrixOperations/addition/matrixAddition.c93
1 files changed, 0 insertions, 93 deletions
diff --git a/src/matrixOperations/addition/matrixAddition.c b/src/matrixOperations/addition/matrixAddition.c
deleted file mode 100644
index f725424a..00000000
--- a/src/matrixOperations/addition/matrixAddition.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 "matrixAddition.h"
-
-/*
-** \brief Compute an addition 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 the addition in1 + in2.
-*/
-void saddma(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 addition 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 the addition in1 + in2.
-*/
-void daddma(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 addition 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 the addition in1 + in2.
-*/
-void caddma(floatComplex *in1, int size1,
- floatComplex *in2, int size2,
- floatComplex *out)
-{
- int i = 0;
-
- for(i = 0 ; i < size1 && i < size2 ; ++i)
- {
- out[i] = cadds(in1[i], in2[i]);
- }
-}
-
-/*
-** \brief Compute an addition 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 the addition in1 + in2.
-*/
-void zaddma(doubleComplex *in1, int size1,
- doubleComplex *in2, int size2,
- doubleComplex *out)
-{
- int i = 0;
-
- for(i = 0 ; i < size1 && i < size2 ; ++i)
- {
- out[i] = zadds(in1[i], in2[i]);
- }
-}