diff options
author | nutricato | 2009-07-09 09:10:40 +0000 |
---|---|---|
committer | nutricato | 2009-07-09 09:10:40 +0000 |
commit | cb6d500415f8db3078cc95ece2a4bfabb4e50489 (patch) | |
tree | f9227a99e72146e5a75f7bf9131e67f672ab0c96 /src/c/operations | |
parent | 0b992f0195b8d0abe9f74ac3d9294d1b1c14c44b (diff) | |
download | scilab2c-cb6d500415f8db3078cc95ece2a4bfabb4e50489.tar.gz scilab2c-cb6d500415f8db3078cc95ece2a4bfabb4e50489.tar.bz2 scilab2c-cb6d500415f8db3078cc95ece2a4bfabb4e50489.zip |
Diffstat (limited to 'src/c/operations')
-rw-r--r-- | src/c/operations/interfaces/int_OpDotSlash.h | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/src/c/operations/interfaces/int_OpDotSlash.h b/src/c/operations/interfaces/int_OpDotSlash.h index a0f097de..a6c57051 100644 --- a/src/c/operations/interfaces/int_OpDotSlash.h +++ b/src/c/operations/interfaces/int_OpDotSlash.h @@ -38,25 +38,19 @@ #define s0s2OpDotSlashs2(in1,in2,size,out) {int i=0;\ - sinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*out[i];} + for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} #define d0d2OpDotSlashd2(in1,in2,size,out) {int i=0;\ - dinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*out[i];} + for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} #define c0c2OpDotSlashc2(in1,in2,size,out) {int i=0;\ - cinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,out[i]);} + for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1,in2[i]);} #define z0z2OpDotSlashz2(in1,in2,size,out) {int i=0;\ - zinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,out[i]);} - - + for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1,in2[i]);} #define s0c2OpDotSlashc2(in1,in2,size,out) c0c2OpDotSlashc2(FloatComplex(in1,0),in2,size,out) @@ -64,14 +58,11 @@ #define d0z2OpDotSlashz2(in1,in2,size,out) z0z2OpDotSlashz2(DoubleComplex(in1,0),in2,size,out) -/* FIXME: malloc */ #define c0s2OpDotSlashc2(in1,in2,size,out) {int i=0;\ float* temp = malloc((uint)(size[0]*size[1])*sizeof(float));\ sinverma(in2,temp,size[0]);\ for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,FloatComplex(temp[i],0));} - -/* FIXME: malloc */ #define z0d2OpDotSlashz2(in1,in2,size,out) {int i=0;\ double* temp = malloc((uint)(size[0]*size[1])*sizeof(double));\ dinverma(in2,temp,size[0]);\ |