fGamma Function

  1. korc_experimental_pdf.f90
  2. korc_experimental_pdf
  3. fGamma

private function fGamma(x, k, t)

Arguments

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

Return Value real(kind=rp)


Called by

proc~~fgamma~2~~CalledByGraph proc~fgamma~2 fGamma proc~intgamma IntGamma proc~intgamma->proc~fgamma~2 proc~fre~4 fRE proc~fre~4->proc~fgamma~2 proc~frexpr fRExPR proc~frexpr->proc~fre~4 proc~sample_distribution~2 sample_distribution proc~sample_distribution~2->proc~fre~4 proc~initialize_params~2 initialize_params proc~initialize_params~2->proc~intgamma proc~get_experimentalg_distribution get_experimentalG_distribution proc~get_experimentalg_distribution->proc~sample_distribution~2 proc~get_experimentalg_distribution->proc~initialize_params~2

Contents

Source Code

fGamma

Source Code

  FUNCTION fGamma(x,k,t)
    REAL(rp), INTENT(IN) :: x ! Independent variable
    REAL(rp), INTENT(IN) :: k ! Shape factor
    REAL(rp), INTENT(IN) :: t ! Scale factor
    REAL(rp) :: fGamma

    fGamma = x**(k - 1.0_rp)*EXP(-x/t)/(GAMMA(k)*t**k)
  END FUNCTION fGamma