timflow.bessel.besselnumba.besselldqxqyv2

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

besselldqxqyv2.

implicit none integer, intent(in) :: order real(kind=8), intent(in) :: x,y,R complex(kind=8), intent(in) :: z1,z2 integer, intent(in) :: nlab real(kind=8) :: d1, d2 complex(kind=8), dimension(nlab), intent(in) :: lab complex(kind=8), dimension(2*(order+1),nlab) :: qxqy complex(kind=8), dimension(0:2*order+1) :: qxqylab integer :: n, nterms, nhalf