timflow.bessel.besselnumba.besselk1near

timflow.bessel.besselnumba.besselk1near(z, Nt)

besselk1near.

implicit none complex(kind=8), intent(in) :: z integer, intent(in) :: Nt complex(kind=8) :: omega complex(kind=8) :: zsq, log1, term integer :: n