pdf_deallocate_1d Subroutine

subroutine pdf_deallocate_1d(self)
  type(pdf_kernel) :: self
  if(.not.self%status)stop "PDF_DEALLOCATE: PDF not allocated"
  self%xmin=0d0
  self%xmax=0d0
  self%dx  =0d0
  self%sigma = 0d0
  self%N=0
  self%Ndata= 0
  deallocate(self%x)
  deallocate(self%pdf)
  self%status=.false.
end subroutine pdf_deallocate_1d