diff options
Diffstat (limited to 'src/c/operations/multiplication')
| -rw-r--r-- | src/c/operations/multiplication/Makefile.am | 3 | ||||
| -rw-r--r-- | src/c/operations/multiplication/Makefile.in | 2 | ||||
| -rw-r--r-- | src/c/operations/multiplication/cmulcsv.c | 25 | ||||
| -rw-r--r-- | src/c/operations/multiplication/cmulscv.c | 25 | ||||
| -rw-r--r-- | src/c/operations/multiplication/zmuldzv.c | 25 | ||||
| -rw-r--r-- | src/c/operations/multiplication/zmulzdv.c | 25 |
6 files changed, 105 insertions, 0 deletions
diff --git a/src/c/operations/multiplication/Makefile.am b/src/c/operations/multiplication/Makefile.am index 764663c5..5030ccad 100644 --- a/src/c/operations/multiplication/Makefile.am +++ b/src/c/operations/multiplication/Makefile.am @@ -11,6 +11,7 @@ ## libMultiplication_la_CFLAGS = -I $(top_builddir)/src/c/type \ + -I $(top_builddir)/src/c/matrixOperations/includes \ -I $(top_builddir)/src/c/operations/includes instdir = $(top_builddir)/lib @@ -33,10 +34,12 @@ libMultiplication_la_SOURCES = $(HEAD) \ cmulv.c \ zmulv.c + check_PROGRAMS = testMultiplication check_LDADD = $(top_builddir)/src/c/type/libDoubleComplex.la \ $(top_builddir)/src/c/type/libFloatComplex.la \ + $(top_builddir)/src/c/matrixOperations/libZeros.la \ $(top_builddir)/src/c/operations/addition/libAddition.la \ libMultiplication.la diff --git a/src/c/operations/multiplication/Makefile.in b/src/c/operations/multiplication/Makefile.in index 13987ad1..f2175e9e 100644 --- a/src/c/operations/multiplication/Makefile.in +++ b/src/c/operations/multiplication/Makefile.in @@ -214,6 +214,7 @@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ libMultiplication_la_CFLAGS = -I $(top_builddir)/src/c/type \ + -I $(top_builddir)/src/c/matrixOperations/includes \ -I $(top_builddir)/src/c/operations/includes instdir = $(top_builddir)/lib @@ -235,6 +236,7 @@ libMultiplication_la_SOURCES = $(HEAD) \ check_LDADD = $(top_builddir)/src/c/type/libDoubleComplex.la \ $(top_builddir)/src/c/type/libFloatComplex.la \ + $(top_builddir)/src/c/matrixOperations/libZeros.la \ $(top_builddir)/src/c/operations/addition/libAddition.la \ libMultiplication.la diff --git a/src/c/operations/multiplication/cmulcsv.c b/src/c/operations/multiplication/cmulcsv.c new file mode 100644 index 00000000..1d17bb95 --- /dev/null +++ b/src/c/operations/multiplication/cmulcsv.c @@ -0,0 +1,25 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2009 - INRIA - Allan SIMON + * + * 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 <malloc.h> +#include "zeros.h" +#include "multiplication.h" + +floatComplex cmulcsv (floatComplex* in1, float* in2, int size) + { + float* ZEROS; + ZEROS=malloc((unsigned int)(size)*sizeof(float)); + szerosa(ZEROS,size , 1); + + return cmulv(in1, FloatComplexMatrix(in2,ZEROS,size), size ); + } diff --git a/src/c/operations/multiplication/cmulscv.c b/src/c/operations/multiplication/cmulscv.c new file mode 100644 index 00000000..0c739afd --- /dev/null +++ b/src/c/operations/multiplication/cmulscv.c @@ -0,0 +1,25 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2009 - INRIA - Allan SIMON + * + * 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 <malloc.h> +#include "zeros.h" +#include "multiplication.h" + +floatComplex cmulscv (float* in1, floatComplex* in2, int size) + { + float* ZEROS; + ZEROS=malloc((unsigned int)(size*sizeof(float))); + szerosa(ZEROS,size , 1); + + return cmulv(FloatComplexMatrix(in1,ZEROS,size), in2 , size ); + } diff --git a/src/c/operations/multiplication/zmuldzv.c b/src/c/operations/multiplication/zmuldzv.c new file mode 100644 index 00000000..f25d3b9b --- /dev/null +++ b/src/c/operations/multiplication/zmuldzv.c @@ -0,0 +1,25 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2009 - INRIA - Allan SIMON + * + * 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 <malloc.h> +#include "zeros.h" +#include "multiplication.h" + +doubleComplex zmuldzv (double* in1, doubleComplex* in2, int size) + { + double* ZEROS; + ZEROS=malloc((unsigned int)(size*sizeof(double))); + dzerosa(ZEROS,size , 1); + + return zmulv(DoubleComplexMatrix(in1,ZEROS,size), in2 , size ); + } diff --git a/src/c/operations/multiplication/zmulzdv.c b/src/c/operations/multiplication/zmulzdv.c new file mode 100644 index 00000000..3e498ca7 --- /dev/null +++ b/src/c/operations/multiplication/zmulzdv.c @@ -0,0 +1,25 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2009 - INRIA - Allan SIMON + * + * 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 <malloc.h> +#include "zeros.h" +#include "multiplication.h" + +doubleComplex zmulzdv (doubleComplex* in1, double* in2, int size) + { + double* ZEROS; + ZEROS=malloc((unsigned int)(size*sizeof(double))); + dzerosa(ZEROS,size , 1); + + return zmulv(in1, DoubleComplexMatrix(in2,ZEROS,size), size ); + } |