diff options
Diffstat (limited to 'src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c')
-rw-r--r-- | src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c deleted file mode 100644 index 78fbfa76..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c +++ /dev/null @@ -1,45 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#include "conj.h" - - -floatComplex c0conjc0(floatComplex in) -{ - floatComplex out; - out = FloatComplex(creals(in),-cimags(in)); - return (out); -} - -doubleComplex z0conjz0(doubleComplex in) -{ - doubleComplex out; - out = DoubleComplex(zreals(in),-zimags(in)); - return (out); -} - -void c2conjc2(floatComplex* in, int* insize, floatComplex* out) -{ - int i; - - for (i=0;i<insize[0]*insize[1];i++) - { - out[i] = FloatComplex(creals(in[i]),-cimags(in[i])); - } -} - -void z2conjz2(doubleComplex* in, int* insize, doubleComplex* out) -{ - int i; - - for (i=0;i<insize[0]*insize[1];i++) - { - out[i] = DoubleComplex(zreals(in[i]),-zimags(in[i])); - } -} |