pdf_curt_1d Function

function pdf_curt_1d(self) result(curt)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel) :: self

Return Value real(kind=8)


Calls

proc~~pdf_curt_1d~2~~CallsGraph proc~pdf_curt_1d~2 pdf_curt_1d pdf_mean_1d pdf_mean_1d proc~pdf_curt_1d~2->pdf_mean_1d pdf_moment_1d pdf_moment_1d proc~pdf_curt_1d~2->pdf_moment_1d pdf_var_1d pdf_var_1d proc~pdf_curt_1d~2->pdf_var_1d

Source Code

function pdf_curt_1d(self) result(curt)
  type(pdf_kernel) :: self
  real(8)          :: mean,var,curt
  mean = pdf_mean_1d(self)
  var  = pdf_var_1d(self)
  curt = pdf_moment_1d(self,4,mean)
  curt = curt/var**2
end function pdf_curt_1d