timflow.bessel.besselnumba.besselk1cheb

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

besselk1cheb.

implicit none complex(kind=8), intent(in) :: z integer, intent(in) :: Nt complex(kind=8) :: omega integer :: n, n2, ts real(kind=8) :: a, b, c, A3, u complex(kind=8) :: A1, A2, cn, cnp1, cnp2, cnp3 complex(kind=8) :: z1, z2, S, T