diff options
author | torset | 2009-02-20 13:51:11 +0000 |
---|---|---|
committer | torset | 2009-02-20 13:51:11 +0000 |
commit | 2e2f500f9a66fa5fe57fdc24866e536f3a33ac81 (patch) | |
tree | bcd405b2a4ffd323a18ff67e7e3bfc778aa8bdf7 /src/signalProcessing/ifft/difftma.c | |
parent | 524787f51548bdcee57faf1b02e15f6b7f05fce5 (diff) | |
download | scilab2c-2e2f500f9a66fa5fe57fdc24866e536f3a33ac81.tar.gz scilab2c-2e2f500f9a66fa5fe57fdc24866e536f3a33ac81.tar.bz2 scilab2c-2e2f500f9a66fa5fe57fdc24866e536f3a33ac81.zip |
Change prototypes : real functions return real
Diffstat (limited to 'src/signalProcessing/ifft/difftma.c')
-rw-r--r-- | src/signalProcessing/ifft/difftma.c | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/signalProcessing/ifft/difftma.c b/src/signalProcessing/ifft/difftma.c new file mode 100644 index 00000000..d878b33a --- /dev/null +++ b/src/signalProcessing/ifft/difftma.c @@ -0,0 +1,31 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA - Arnaud Torset + * + * 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 "ifft.h" +#include "zeros.h" + + +void difftma ( double* in , int rows, int cols, double* out){ + double* ZEROS; + doubleComplex* inCpx; + doubleComplex* outCpx; + + ZEROS = malloc((uint)(rows*cols)*sizeof(double)); + outCpx = malloc((uint)(rows*cols)*sizeof(doubleComplex)); + + dzerosa(ZEROS,rows,cols); + inCpx=DoubleComplexMatrix(in,ZEROS,rows*cols); + + zifftma(inCpx,rows,cols,outCpx); + + zreala(outCpx, rows*cols, out); +} |