pro plottime, xf, yf, str, siz=siz, dir, align=align, color=color
;+
;NAME:
;	plottime
;PURPOSE:
;	Originally it simply put a message "Plot Made dd-MMM-yy hh:mm:ss"
;	message on the plots.  It was generalized to effectively do
;	what "xyouts, /normalize" does (before that capability was
;	around
;SAMPLE CALLING SEQUENCE:
;	plottime
;	plottime, 0.1, 0.9, 'Infil: ' + infil
;	plottime, xf, yf, str, siz, dir, align=align
;INPUT:
;	xf	- fractional position in the x
;	yf	- fractional position in the y
;	str	- the string to write out
;	dir	- the direction (rotation)
;OPTIONAL KEYWORD INPUT:
;       siz     - character size (default=0.90)
;	align	- IDL align option
;	color	- permit to specify color
;HISTORY:
;	Written 1991 by M.Morrison
;	 6-Mar-95 (MDM) - Added ALIGN keyword
;	 5-Nov-96 (MDM) - Added documentation header
;	 3-Dec-01 (LWA) - Added color keyword
;	 7-Dec-01 (MDM) - Fixed 3-Dec mod to continue to work if color
;			  is not specified
;	 3-Jan-06 (LWA) - Made siz a keyword and altered internal logic.
;-
;
savlin = !linetype
!linetype = 0	
;
xsiz = !d.x_size
ysiz = !d.y_size
;
if n_elements(xf) eq 0 then xf=0.55*xsiz
if n_elements(yf) eq 0 then yf=0
if n_elements(str) eq 0 then str='Plot Made '+!stime
if not keyword_set(siz) then siz0=0.9 else siz0=siz
if (n_elements(dir) eq 0) then dir0=0 else dir0=dir
if not keyword_set(align) then align0=0 else align0=align
if keyword_set(color) then color=color else color=1
if (!fancy eq 0) then siz0 = siz0<0.9
xyouts, xf, yf, str, siz=siz0, orientation=dir0, /DEVICE,$
   align=align0, color=color
;
!linetype = savlin
;
return
end