PRO destroyvar, a, b, c, d, e, f, g, h

;+
; NAME:
;	destroyvar
; PURPOSE:
;	Destroy an IDL variable
; CATEGORY:
;	Toolbox: generic
; CALLING SEQUENCE:
;	destroyvar, a [, b, c, d, e, f, g, h]
; INPUTS:
;	a,b,c,d,e,f,g,h		any IDL variable
; OUTPUTS:
;	(none; that's the point)
; INCLUDE:
	@compile_opt.pro	; On error, return to caller
; RESTRICTIONS:
;	Up to 7 variables can be destroyed in one call
; PROCEDURE:
;	Use 'temporary' to move the variable to be deleted to local variable,
;	which in turn is destroyed when the subroutine exits.
; MODIFICATION HISTORY:
;	MAR-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

IF n_elements(a) NE 0 THEN tmp = temporary(a)
IF n_elements(b) NE 0 THEN tmp = temporary(b)
IF n_elements(c) NE 0 THEN tmp = temporary(c)
IF n_elements(d) NE 0 THEN tmp = temporary(d)
IF n_elements(e) NE 0 THEN tmp = temporary(e)
IF n_elements(f) NE 0 THEN tmp = temporary(f)
IF n_elements(g) NE 0 THEN tmp = temporary(g)
IF n_elements(h) NE 0 THEN tmp = temporary(h)

RETURN  &  END