.TITLE	HISTDE - HISTOGRAM DELETE
	.IDENT	/09MAY7/	;10:35:00  LV
;	.ENTRY	HISTDE - HISTOGRAM DELETE
;+
; H I S T D E
;
; PURPOSE:	THIS ROUTINE DELETES A HISTOGRAM AND FREES
;		RESOURCES ASSOCIATED WITH IT.
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL HISTDE(HDA)
;
;		INPUT:	HDA (INTEGER ARRAY): HISTOGRAM
;			DESCRIPTOR ARRAY; EITHER THE NAME OR THE
;			NUMBER OF THE HISTOGRAM MAY BE SPECIFIED.
;
; LANGUAGE:	MACRO-11
;
; REFERENCES:	"HISTOGRAMMING AND HISTOGRAM PLOTTING"
;		SEE SUBROUTINE HISTSU FOR A DESCRIPTION OF THE
;		HISTOGRAM DESCRIPTOR ARRAY.
;-
; REVISIONS:
; 06-JUN-75	MK	WRITTEN
; 09-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
;
HISTDE::
	CALL	HST$LK		;LOCK HDBS
	MOV	2(R5),R4	;GET HDA ADDRESS
	CALL	HST$FI		;FIND HDB
	BCS	RTN		;NO HISTOGRAM
	CALL	HST$DE		;DELETE HISTOGRAM
RTN:	CALL	HST$UN		;UNLOCK HDBS
	RETURN
	.END