Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(pdf_kernel) | :: | self |
subroutine pdf_normalize_1d(self) type(pdf_kernel) :: self if(.not.self%status)stop "PDF_NORMALIZE: PDF not allocated" if(.not.self%rescale)self%pdf = self%pdf/self%Ndata self%rescale = .true. self%pdf = self%pdf/sum(self%pdf)/self%dx end subroutine pdf_normalize_1d