pro plot_dcinfo, dc_info1, dc_info2, dc_info3, dc_info4, X_TAG = x_tag, $
							 Y_TAG = y_tag, $
							DIVIDE_Y = y_div, $
							TAG_NUMS=tag_nums
;+
; NAME:
;	plot_dcinfo
; PURPOSE:
; CALLING EXAMPLE:
; INPUTS:
; KEYWORDS:
; OUTPUTS:
; EXTERNAL CALLS:
; COMMON BLOCKS:
; PROCEDURE:
; MODIFICATION HISTORY:
;	Written, Frank Varosi NASA/GSFC 1992.
;-
	if N_struct( dc_info1 ) LE 0 then begin
		return
	   endif

	if N_elements( tag_nums ) LT 2 then begin

		Tags = Tag_Names( dc_info1 )

		if N_elements( x_tag ) NE 1 then x_tag = "NITER"
		if N_elements( y_tag ) NE 1 then y_tag = "R_AUTO_CHI"

		if N_elements( y_div ) NE 1 then begin
		   endif

		tx = where( x_tag EQ Tags )
		ty = where( y_tag EQ Tags )
		td = where( y_div EQ Tags, nd )

		if (nd GT 0) then tag_nums = [ tx(0), ty(0), td(0)] $
			     else tag_nums = [ tx(0), ty(0) ]
	   endif

return
end