hankel2_n Function

private function hankel2_n(n, x) result(val)

Compute Hankel function of second kind of order n.

Arguments

Type IntentOptional Attributes Name
integer :: n

The order of the function.
real(kind=rk), intent(in) :: x

The evaluation point.

Return Value complex(kind=rk)

The function value.


Source Code

  function hankel2_n(n,x) result(val)
    ! --------------------------------------------------------------------------
    !> The order of the function.
    integer :: n
    !> The evaluation point.
    real(kind=rk), intent(in) :: x
    !> The function value.
    complex(kind=rk) :: val
    ! --------------------------------------------------------------------------
    ! --------------------------------------------------------------------------

    val = bessel_jn(n, x) - (0.0_rk, 1.0_rk)*bessel_yn(n, x)

  end function hankel2_n