diff options
Diffstat (limited to 'src/operations/interface/int_OpDotBackSlash.h')
| -rw-r--r-- | src/operations/interface/int_OpDotBackSlash.h | 50 |
1 files changed, 31 insertions, 19 deletions
diff --git a/src/operations/interface/int_OpDotBackSlash.h b/src/operations/interface/int_OpDotBackSlash.h index 31e3420b..5ccd70ef 100644 --- a/src/operations/interface/int_OpDotBackSlash.h +++ b/src/operations/interface/int_OpDotBackSlash.h @@ -34,42 +34,54 @@ #define z0d0OpDotBackSlashz0(in1,in2) zldivs(in1,DoubleComplex(in2,0)) -/* Scalar .\ Matrix */ +/* Scalar \ Matrix */ -#define s0s2OpDotBackSlashs2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1,in2[i]); +#define s0s2OpDotBackSlashs2(in1,in2,size,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1,in2[i]);} -#define d0d2OpDotBackSlashd2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1,in2[i]); +#define d0d2OpDotBackSlashd2(in1,in2,size,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1,in2[i]);} + +#define c0c2OpDotBackSlashc2(in1,in2,size,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,in2[i]);} -#define c0c2OpDotBackSlashc2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,in2[i]); +#define z0z2OpDotBackSlashz2(in1,in2,size,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,in2[i]);} -#define z0z2OpDotBackSlashz2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,in2[i]); +#define s0c2OpDotBackSlashc2(in1,in2,size,out) c0c2OpDotBackSlashc2(FloatComplex(in1,0),in2,size,out) -#define s0c2OpDotBackSlashc2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(FloatComplex(in1,0),in2[i]); +#define d0z2OpDotBackSlashz2(in1,in2,size,out) z0z2OpDotBackSlashz2(DoubleCompelex(in1,0),in2,size,out) -#define d0z2OpDotBackSlashz2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(DoubleComplex(in1,0),in2[i]); +#define c0s2OpDotBackSlashc2(in1,in2,size,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,FloatComplex(in2[i],0));} -#define c0s2OpDotBackSlashc2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,FloatComplex(in2[i],0)); +#define z0d2OpDotBackSlashz2(in1,in2,size,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,DoubleComplex(in2[i],0));} -#define z0d2OpDotBackSlashz2(in1,in2,size,out) for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,DoubleComplex(in2[i],0)); +/* Matrix \ Scalar */ -/* Matrix .\ Scalar */ +#define s2s0OpDotBackSlashs2(in1,size,in2,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1[i],in2);} -#define s2s0OpDotBackSlashs2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1[i],in2); +#define d2d0OpDotBackSlashd2(in1,size,in2,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1[i],in2);} -#define d2d0OpDotBackSlashd2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1[i],in2); +#define c2c0OpDotBackSlashc2(in1,size,in2,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],in2);} -#define c2c0OpDotBackSlashc2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],in2); +#define z2z0OpDotBackSlashz2(in1,size,in2,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],in2);} -#define z2z0OpDotBackSlashz2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],in2); +#define s2c0OpDotBackSlashc2(in1,size,in2,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(FloatComplex(in1[i],0),in2);} -#define s2c0OpDotBackSlashc2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(FloatComplex(in1[i],0),in2); +#define d2z0OpDotBackSlashz2(in1,size,in2,out) {int i;\ + for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(DoubleComplex(in1[i],0),in2);} -#define d2z0OpDotBackSlashz2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(DoubleComplex(in1[i],0),in2); +#define c2s0OpDotBackSlashc2(in1,size,in2,out) c2c0OpDotBackSlashc2(in1,size,FloatComplex(in2,0),out) -#define c2s0OpDotBackSlashc2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],FloatComplex(in2,0)); - -#define z2d0OpDotBackSlashz2(in1,size,in2,out) for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],DoubleComplex(in2,0)); +#define z2d0OpDotBackSlashz2(in1,size,in2,out) z2z0OpDotBackSlashz2(in1,size,DoubleComplex(in2,0),out) /* Matrix .\ Matrix */ |