histogram_deallocate Subroutine

subroutine histogram_deallocate(h)

Arguments

Type IntentOptional Attributes Name
type(histogram) :: h

Source Code

subroutine histogram_deallocate(h)
  type(histogram)    :: h
  deallocate(h%range)
  deallocate(h%bin)
  h%n=0
end subroutine  histogram_deallocate