timflow.bessel.besselnumba.besselld_gauss_ho_qxqy

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

besselld_gauss_ho_qxqy.

implicit none integer, intent(in) :: order real(kind=8), intent(in) :: x,y complex(kind=8), intent(in) :: z1,z2 complex(kind=8), intent(in) :: lab complex(kind=8), dimension(0:2*order+1) :: qxqy integer :: n, p real(kind=8) :: L, bigy, angz complex(kind=8) :: bigz, biglab real(kind=8), dimension(8) :: r, xmind complex(kind=8), dimension(8) :: k0,k1 complex(kind=8), dimension(0:order) :: qx,qy