Fix bug in catand (complex arc tangent)

Function catand returned an incorrect value for its real part. To be possibly replaced with the intrinsic function atan.
2022-10-04 19:05:43 +02:00 · 2022-10-04 19:05:43 +02:00 · 3eab989d7b
commit 3eab989d7b
parent 8c3e246f25
1 changed files with 1 additions and 1 deletions
--- a/src/math.f90
+++ b/src/math.f90
@ -74,7 +74,7 @@ contains
         print*,'catand, answer lt half precision, z**2 close to -1'
 !
      end if
-      xans = 0.5_wp_*atan2(2.0_wp_*x, one)
+      xans = 0.5_wp_*atan2(2.0_wp_*x, one-r2)
      yans = 0.25_wp_*log((r2+2.0_wp_*y+one)/(r2-2.0_wp_*y+one))
      catand = cmplx(xans, yans, wp_)
 !