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