summaryrefslogtreecommitdiff
path: root/src/c/operations
diff options
context:
space:
mode:
authornutricato2009-07-09 09:10:40 +0000
committernutricato2009-07-09 09:10:40 +0000
commitcb6d500415f8db3078cc95ece2a4bfabb4e50489 (patch)
treef9227a99e72146e5a75f7bf9131e67f672ab0c96 /src/c/operations
parent0b992f0195b8d0abe9f74ac3d9294d1b1c14c44b (diff)
downloadscilab2c-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.h17
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]);\