FUNCTION diCal_systime2utc

;;------------------------------------------------------------------------------
;; PURPOSE:
;;    	Returns the current system date and time in UTC ISO format
;;
;; CALLING SEQUENCE:
;;    	utc = diCal_systime2utc()
;;
;; REQUIRED INPUTS:
;;
;; OUTPUTS:
;;    	The current system time in YYYY-MM-DDTHH:MM:SS
;;
;; OPTIONAL INPUT KEYWORDS:.
;;
;; EXAMPLE:
;;      IDL> dat = diCal_systime2utc()
;;
;; PROCEDURES USED (i.e. called directly!):
;;    Functions: 
;;    Procedures:
;;
;; MODIFICATION HISTORY:
;;   2004-06-17  M. Desnoyer    Created
;;
;;-----------------------------------------------------------------------------

caldat, systime(/JULIAN, /UTC), mon, d, y, h, min, s

mon = (mon LT 10)?'0'+string(mon):string(mon)
d = (d LT 10)?'0'+string(d):string(d)
h = (h LT 10)?'0'+string(h):string(h)
min = (min LT 10)?'0'+string(min):string(min)
s = (s LT 10)?'0'+string(fix(s)):string(fix(s))

RETURN, strcompress(string(y)+'-'+mon+'-'+d+'T'+h+':'+min+':'+s, /REMOVE_ALL)

END