besselk Function

  1. korc_experimental_pdf.f90
  2. korc_experimental_pdf
  3. besselk

public function besselk(v, x)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: v
real(kind=rp), intent(in) :: x

Return Value real(kind=rp)


Called by

proc~~besselk~2~~CalledByGraph proc~besselk~2 besselk proc~intbesselk~2 IntBesselK proc~intbesselk~2->proc~besselk~2 proc~p_integral~2 P_integral proc~p_integral~2->proc~intbesselk~2 proc~pr~2 PR proc~pr~2->proc~p_integral~2 proc~frexpr fRExPR proc~frexpr->proc~pr~2 proc~fre_hxpr fRE_HxPR proc~fre_hxpr->proc~pr~2

Contents

Source Code

besselk

Source Code

  FUNCTION besselk(v,x)
    REAL(rp) :: besselk
    REAL(rp), INTENT(IN) :: x
    REAL(rp), INTENT(IN) :: v
    REAL(4) :: ri,rk,rip,rkp

    call bessik(REAL(x,4),REAL(v,4),ri,rk,rip,rkp)
    besselk = REAL(rk,rp)
  END FUNCTION besselk