bessik Subroutine

public subroutine bessik(x, xnu, ri, rk, rip, rkp)

Uses

  • proc~~bessik~~UsesGraph proc~bessik bessik module~nr nr proc~bessik->module~nr module~nrutil nrutil proc~bessik->module~nrutil module~nrtype nrtype proc~bessik->module~nrtype module~nrutil->module~nrtype

@brief Subroutine taken from "Numerical Recipes" that calculates the modified Bessel function of

Arguments

Type IntentOptional AttributesName
real(kind=SP), intent(in) :: x
real(kind=SP), intent(in) :: xnu
real(kind=SP), intent(out) :: ri
real(kind=SP), intent(out) :: rk
real(kind=SP), intent(out) :: rip
real(kind=SP), intent(out) :: rkp

Calls

proc~~bessik~~CallsGraph proc~bessik bessik interface~assert assert proc~bessik->interface~assert interface~beschb beschb proc~bessik->interface~beschb proc~assert_v assert_v interface~assert->proc~assert_v proc~assert3 assert3 interface~assert->proc~assert3 proc~assert1 assert1 interface~assert->proc~assert1 proc~assert4 assert4 interface~assert->proc~assert4 proc~assert2 assert2 interface~assert->proc~assert2

Contents

Source Code


Source Code

		SUBROUTINE bessik(x,xnu,ri,rk,rip,rkp)
		USE nrtype
		REAL(SP), INTENT(IN) :: x,xnu
		REAL(SP), INTENT(OUT) :: ri,rk,rip,rkp
		END SUBROUTINE bessik