diff --git a/Mathematics/GMS_avx_cvec8.f90 b/Mathematics/GMS_avx_cvec8.f90 index d943da2b..1c5df39f 100644 --- a/Mathematics/GMS_avx_cvec8.f90 +++ b/Mathematics/GMS_avx_cvec8.f90 @@ -1712,7 +1712,7 @@ pure function cpow_2xymm8r4(re,im,n) result(iq) r.v = sqrt(re.v*re.v+im.v*im.v) pow.v = r.v**n theta.v = atan(im.v/re.v) - ! + ! trig.v = theta.v*n iq.re = pow.v*cos(trig.v) iq.im = pow.v*sin(trig.v)