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)


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