; ==========================================================================
; ####################### ARTS IDL INTERFACE PROCEDURE #####################
; ==========================================================================^X
;
FUNCTION aii_writedatum, TEXT=TEXT
;
;; get datum to write it on the top of the plot:
;; EXAMPLE OUTPUT OF SYSTIME: Wed Feb 19 13:39:49 2003
DATUM = SYSTIME()
STRVEC = STR_SEP(DATUM, ' ')

W=GETENV('LOGNAME')

A = W+'/'+STRVEC[4]+'-'+STRVEC[1]+'-'+STRVEC[2]+'/'+STRVEC[3]

IF KEYWORD_SET(TEXT) THEN BEGIN 
 A = TEXT+A
ENDIF

RETURN, A
END
;
; ==========================================================================