pdf_var_1d Function

function pdf_var_1d(self) result(var)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel) :: self

Return Value real(kind=8)


Calls

proc~~pdf_var_1d~2~~CallsGraph proc~pdf_var_1d~2 pdf_var_1d pdf_mean_1d pdf_mean_1d proc~pdf_var_1d~2->pdf_mean_1d simps simps proc~pdf_var_1d~2->simps

Source Code

function pdf_var_1d(self) result(var)
  type(pdf_kernel) :: self
  real(8)          :: var,mean
  mean = pdf_mean_1d(self)
  var  = simps((self%x-mean)**2*self%pdf,self%xmin,self%xmax)
end function pdf_var_1d