timflow.bessel.besselnumba.lapls_int_ho

timflow.bessel.besselnumba.lapls_int_ho(x, y, z1, z2, order)

lapls_int_ho.

! Near field only implicit none integer, intent(in) :: order real(kind=8), intent(in) :: x,y complex(kind=8), intent(in) :: z1,z2 complex(kind=8), dimension(0:order) :: omega, qm integer :: m, n real(kind=8) :: L complex(kind=8) :: z, zplus1, zmin1