fRE_HxPR Function

  1. korc_experimental_pdf.f90
  2. korc_experimental_pdf
  3. fRE_HxPR

public function fRE_HxPR(eta, g)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: eta
real(kind=rp), intent(in) :: g

Return Value real(kind=rp)


Calls

proc~~fre_hxpr~~CallsGraph proc~fre_hxpr fRE_HxPR proc~pr~2 PR proc~fre_hxpr->proc~pr~2 proc~fre_h fRE_H proc~fre_hxpr->proc~fre_h proc~p_integral~2 P_integral proc~pr~2->proc~p_integral~2 proc~deg2rad~5 deg2rad proc~pr~2->proc~deg2rad~5 proc~fre_h->proc~deg2rad~5 proc~intbesselk~2 IntBesselK proc~p_integral~2->proc~intbesselk~2 proc~intk~2 IntK proc~p_integral~2->proc~intk~2 proc~besselk~2 besselk proc~intbesselk~2->proc~besselk~2

Contents

Source Code

fRE_HxPR

Source Code

  FUNCTION fRE_HxPR(eta,g)
    REAL(rp), INTENT(IN) :: eta ! pitch angle in degrees
    REAL(rp), INTENT(IN) :: g ! gamma factor
    REAL(rp) :: fRE_HxPR

    fRE_HxPR = fRE_H(eta,g)*PR(eta,SQRT(g**2 - 1.0_rp),h_params%Bo,h_params%lambda)
  END FUNCTION fRE_HxPR