timflow.bessel.besselnumba.lapld_int_ho_wdis_d1d2

timflow.bessel.besselnumba.lapld_int_ho_wdis_d1d2(x, y, z1, z2, order, d1, d2)

lapld_int_ho_wdis_d1d2.

# Near field only # Returns integral from d1 to d2 along real axis while strength is still # Delta^order from -1 to +1 implicit none integer, intent(in) :: order real(kind=8), intent(in) :: x,y,d1,d2 complex(kind=8), intent(in) :: z1,z2 complex(kind=8), dimension(0:order) :: wdis, wdisc integer :: n, m real(kind=8) :: xp, yp, dc, fac complex(kind=8) :: z1p,z2p,bigz1,bigz2