;+
; NAME:
; jd2euv_date
;
;
; PURPOSE:
; convert julian dates to euv dates
;
;
; CATEGORY:
; time conversion
;
;
; INPUTS:
; jd: a scalar or array of julian dates
;
;
;
; OUTPUTS:
; scalar or array of euv dates, 
;
;
; EXAMPLE:
; IDL> print, jd2euv_date(2452008.0)
;  2001098120000
;
;
;
; MODIFICATION HISTORY:
;
;       Tue Dec 11 15:11:03 2007, Brian Larsen
;		documented, written previously
;
;-
FUNCTION jd2euv_date, jd

compile_opt strictarr

IF N_ELEMENTS(jd) EQ 0 THEN message, /ioerror, 'NULL input error' 

ind = where(finite(jd) EQ 0, ind_num)


caldat, jd, Mo, D, y, h, m, s

; this is the /usr/local/ssw/gen/idl/genutil/date2doy.pro version
date2doy, strmid(trim(y), 2, 2)+zeropad(Mo,2)+zeropad(D,2), doy

ans = zeropad(y,4) + zeropad(doy,3) + zeropad(h,2) + zeropad(m,2) + zeropad(s,2)

IF ind_num NE 0 THEN ans[ind] = !values.f_nan

return, ans

END