timflow.bessel.besselnumba.circle_line_intersection

timflow.bessel.besselnumba.circle_line_intersection(z1, z2, zc, R)

circle_line_intersection.

implicit none complex(kind=8), intent(in) :: z1, z2, zc real(kind=8), intent(in) :: R real(kind=8), intent(inout) :: xouta, youta, xoutb, youtb integer, intent(inout) :: N real(kind=8) :: Lover2, d, xa, xb complex(kind=8) :: bigz, za, zb