PRO plot_stamp
;print the date and time of the plot creation

IF (!d.name EQ 'X')THEN BEGIN
   chsize = 1.0
ENDIF ELSE BEGIN
   chsize = 0.5
ENDELSE
xpos = 0.995

spawn, 'date', stamp_date
spawn, 'printenv USER', stamp_user
spawn, 'printenv HOST', stamp_host
stamp_data = strcompress(stamp_user +' ' + stamp_host +' '+ stamp_date)

xyouts, xpos, 0.5, /norm, /noclip, orient = 90.0, align = 0.5, $
  size = chsize, stamp_data
return
END