timflow.bessel.besselnumba.besselk1

timflow.bessel.besselnumba.besselk1(x, y, lab)

besselk1.

implicit none real(kind=8), intent(in) :: x,y complex(kind=8), intent(in) :: lab complex(kind=8) :: z, omega real(kind=8) :: cond