fRExPR Function

  1. korc_experimental_pdf.f90
  2. korc_experimental_pdf
  3. fRExPR

private function fRExPR(eta, p)

Arguments

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

Return Value real(kind=rp)


Calls

proc~~frexpr~~CallsGraph proc~frexpr fRExPR proc~pr~2 PR proc~frexpr->proc~pr~2 proc~fre~4 fRE proc~frexpr->proc~fre~4 proc~p_integral~2 P_integral proc~pr~2->proc~p_integral~2 proc~deg2rad~5 deg2rad proc~pr~2->proc~deg2rad~5 proc~fgamma~2 fGamma proc~fre~4->proc~fgamma~2 proc~fre~4->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

fRExPR

Source Code

  FUNCTION fRExPR(eta,p)
    REAL(rp), INTENT(IN) :: eta ! pitch angle in degrees
    REAL(rp), INTENT(IN) :: p ! momentum in units of mc
    REAL(rp) :: fRExPR
    REAL(rp) :: A
    REAL(rp) :: Eo

    fRExPR = fRE(eta,p)*PR(eta,p,pdf_params%Bo,pdf_params%lambda)
  END FUNCTION fRExPR