From c56fb45096c81bac1478fc8b44ac2832e2607600 Mon Sep 17 00:00:00 2001 From: Bernard Gingold Date: Thu, 2 Nov 2023 17:18:03 +0100 Subject: [PATCH] Minor change added. --- Mathematics/GMS_avx_cvec8.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)