fRE Function

  1. korc_avalanche.f90
  2. korc_avalanche
  3. fRE

private function fRE(x, p)

Arguments

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

Return Value real(kind=rp)


Called by

proc~~fre~3~~CalledByGraph proc~fre~3 fRE proc~sample_distribution~3 sample_distribution proc~sample_distribution~3->proc~fre~3 proc~avalanche_4d Avalanche_4D proc~avalanche_4d->proc~fre~3 proc~log10fre log10fRE proc~log10fre->proc~fre~3 proc~get_avalanche_distribution get_avalanche_distribution proc~get_avalanche_distribution->proc~sample_distribution~3 proc~get_avalanche_4d get_Avalanche_4D proc~get_avalanche_4d->proc~avalanche_4d

Contents

Source Code

fRE

Source Code

  FUNCTION fRE(x,p)
    REAL(rp), INTENT(IN) :: x ! x = cos(pitch)
    REAL(rp), INTENT(IN) :: p ! momentum
    REAL(rp) :: fRE

    fRE = aval_params%fo*p*EXP(-p*(aval_params%C2*x + aval_params%C1/x))/x
  END FUNCTION fRE