Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(pdf_kernel) | :: | self | ||||
real(kind=8) | :: | sigma |
subroutine pdf_get_sigma_1d(self,sigma) type(pdf_kernel) :: self real(8) :: sigma if(.not.self%status)stop "PDF_SET_SIGMA: PDF not allocated" sigma = self%sigma end subroutine pdf_get_sigma_1d