pdf_push_sigma_1d Subroutine

subroutine pdf_push_sigma_1d(self,sigma)
  type(pdf_kernel) :: self    
  real(8)          :: sigma
  if(.not.self%status)stop "PDF_SET_SIGMA: PDF not allocated"
  self%sigma = sigma
  self%variance=.true.
end subroutine pdf_push_sigma_1d