;+
;
; NAME: USERLABEL
;
;
; PURPOSE: Place a user-specified string outside the upper right-hand corner
;	of the plot window or at very bottom of entire window
;
;
; CATEGORY: Util,Gen, Graphics
;
;
; CALLING SEQUENCE: userlabel, text
;
;
; CALLED BY:
;
;
; CALLS:
;	FCOLOR
;
; INPUTS:
;       text - string to use for label
;
; OPTIONAL INPUTS:
;  bottom - place timestamp in bottom right corner
;	XYOUTS KEYWORDS-
;	CHARSIZE
;	CHARTHICK
;	COLOR
;
; OUTPUTS:
;       none
;
; OPTIONAL OUTPUTS:
;	none
;
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	text will be cut off after 80 characters
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;   kim, 20-Feb-2002, copied from timelabel
;   5-Apr-2004, changed -90 to +90 orientation
;
;-


pro userlabel, text, charsize=charsize, charthick=charthick, color=color, bottom=bottom

if text eq '' then return

text = strmid(text, 0, 70)

if keyword_set(bottom) then begin
	xyouts, 0., .01, text, charsize=fcheck(charsize,1), /norm, align=0.
endif else begin
	xw = !x.window
	xyouts,/norm, xw(1)+.025*(xw(1)-xw(0)), $
		.5, text, orientation=90, align=.5, $
		charsize=fcheck(charsize,1), charthick=fcheck(charthick,1), color=fcolor(color)
endelse

end