timflow.bessel.besselnumba.besselldv2#

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

besselldv2.

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(order+1,nlab) :: omega integer :: n, nterms