Skip to content

Commit

Permalink
Minor change added.
Browse files Browse the repository at this point in the history
  • Loading branch information
bgin authored Nov 2, 2023
1 parent c3f2b23 commit c56fb45
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion Mathematics/GMS_avx_cvec8.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down

0 comments on commit c56fb45

Please sign in to comment.