diff options
Diffstat (limited to 'src/elementaryFunctions/interfaces/int_OpDotHat.h')
| -rw-r--r-- | src/elementaryFunctions/interfaces/int_OpDotHat.h | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/elementaryFunctions/interfaces/int_OpDotHat.h b/src/elementaryFunctions/interfaces/int_OpDotHat.h index 4c2c37a1..6e023ee1 100644 --- a/src/elementaryFunctions/interfaces/int_OpDotHat.h +++ b/src/elementaryFunctions/interfaces/int_OpDotHat.h @@ -60,7 +60,7 @@ } #define d0z2OpDotHatz2(in1, in2, size, out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1,0),in2[i]);\ + for (i=0;i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1,0),in2[i]);\ } #define c0s2OpDotHatc2(in1, in2, size, out) {int i=0;\ @@ -75,15 +75,15 @@ /* Matrix - Scalar */ #define s2s0OpDotHats2(in1,size,in2,out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=spows(in1[i],in2);\ + for (i=0;i<size[0]*size[1];i++) out[i]=spows(in1[i],in2);\ } #define d2d0OpDotHatd2(in1,size,in2,out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=dpows(in1[i],in2);\ + for (i=0;i<size[0]*size[1];i++) out[i]=dpows(in1[i],in2);\ } #define c2c0OpDotHatc2(in1,size,in2,out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=cpows(in1[i],in2);\ + for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1[i],in2);\ } #define z2z0OpDotHatz2(in1,size,in2,out) {int i=0;\ @@ -91,19 +91,19 @@ } #define s2c0OpDotHatc2(in1,size,in2,out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=cpows(FloatComplex(in1[i],0),in2);\ + for (i=0;i<size[0]*size[1];i++) out[i]=cpows(FloatComplex(in1[i],0),in2);\ } #define d2z0OpDotHatc2(in1,size,in2,out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1[i],0),in2);\ + for (i=0;i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1[i],0),in2);\ } #define c2s0OpDotHatc2(in1,size,in2,out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=cpows(in1[i],FloatComplex(in2,0));\ + for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1[i],FloatComplex(in2,0));\ } #define z2d0OpDotHatz2(in1,size,in2,out) {int i=0;\ - for (i=0,i<size[0]*size[1];i++) out[i]=zpows(in1[i],DoubleComplex(in2,0));\ + for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1[i],DoubleComplex(in2,0));\ } @@ -117,19 +117,19 @@ #define z2z2OpDotHatz2(in1, size1, in2, size2, out) zpowa(in1, size1[0]*size2[1], in2, out) #define s2c2OpDotHatc2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1],i++) out[i]=cpows(FloatComplex(in1[i],0),in2[i]);\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=cpows(FloatComplex(in1[i],0),in2[i]);\ } #define c2s2OpDotHatc2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1],i++) out[i]=cpows(in1[i],FloatComplex(in2[i],0));\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=cpows(in1[i],FloatComplex(in2[i],0));\ } #define d2z2OpDotHatz2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1],i++) out[i]=zpows(FloatComplex(in1[i],0),in2[i]);\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=zpows(DoubleComplex(in1[i],0),in2[i]);\ } #define z2d2OpDotHatz2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1],i++) out[i]=zpows(in1[i],FloatComplex(in2[i],0));\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=zpows(in1[i],DoubleComplex(in2[i],0));\ } |