pdf_get_sigma_1d Subroutine

subroutine pdf_get_sigma_1d(self, sigma)

Arguments

Type IntentOptional Attributes Name
type(pdf_kernel) :: self
real(kind=8) :: sigma

Source Code

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