summaryrefslogtreecommitdiff
path: root/src/operations/interface/int_OpSlash.h
diff options
context:
space:
mode:
authortorset2009-01-29 15:32:39 +0000
committertorset2009-01-29 15:32:39 +0000
commit8d8ec5b2681da7579851dc0e44f2d2b909195e1e (patch)
treeb4bf9dae35549d5699dca75298379909ee9dc560 /src/operations/interface/int_OpSlash.h
parente1bbfe0b1363205c11bda68e88cb5246659e066a (diff)
downloadscilab2c-8d8ec5b2681da7579851dc0e44f2d2b909195e1e.tar.gz
scilab2c-8d8ec5b2681da7579851dc0e44f2d2b909195e1e.tar.bz2
scilab2c-8d8ec5b2681da7579851dc0e44f2d2b909195e1e.zip
Update
Diffstat (limited to 'src/operations/interface/int_OpSlash.h')
-rw-r--r--src/operations/interface/int_OpSlash.h24
1 files changed, 16 insertions, 8 deletions
diff --git a/src/operations/interface/int_OpSlash.h b/src/operations/interface/int_OpSlash.h
index 40c135e5..440b05a0 100644
--- a/src/operations/interface/int_OpSlash.h
+++ b/src/operations/interface/int_OpSlash.h
@@ -38,19 +38,23 @@
#define s0s2OpSlashs2(in1,in2,size,out) {int i=0;\
- for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];}
+ sinverma(in2,out,size[0]);\
+ for (i=0;i<size[0]*size[1];i++) out[i]=in1*out[i];}
#define d0d2OpSlashd2(in1,in2,size,out) {int i=0;\
- for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];}
+ dinverma(in2,out,size[0]);\
+ for (i=0;i<size[0]*size[1];i++) out[i]=in1*out[i];}
#define c0c2OpSlashc2(in1,in2,size,out) {int i=0;\
- for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1,in2[i]);}
+ cinverma(in2,out,size[0]);\
+ for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,out[i]);}
#define z0z2OpSlashz2(in1,in2,size,out) {int i=0;\
- for (i=0;i<size[0]*size[1];i++) out[i]=zrdivs(in1,in2[i]);}
+ zinverma(in2,out,size[0]);\
+ for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,out[i]);}
@@ -60,13 +64,17 @@
#define d0z2OpSlashz2(in1,in2,size,out) z0z2OpSlashz2(DoubleComplex(in1,0),in2,size,out)
-
+/* FIXME: malloc */
#define c0s2OpSlashc2(in1,in2,size,out) {int i=0;\
- for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1,FloatComplex(in2[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 z0d2OpSlashz2(in1,in2,size,out) {int i=0;\
- for (i=0;i<size[0]*size[1];i++) out[i]=zrdivs(in1,DoubleComplex(in2[i],0));}
+ double* temp = malloc((uint)(size[0]*size[1])*sizeof(double));\
+ dinverma(in2,temp,size[0]);\
+ for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,DoubleComplex(temp[i],0));}
/* Matrix / Scalar */