pdf_deallocate_2d Subroutine

subroutine pdf_deallocate_2d(self)
  type(pdf_kernel_2d) :: 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%y)
  deallocate(self%pdf)
  self%status=.false.
end subroutine pdf_deallocate_2d