;+
; NAME:
; euv_date2jd
;
;
; PURPOSE:
; change an euv_date to julian day
;
;
; CATEGORY:
; time conversion
;
;
; INPUTS:
; euv_date: an array of euv_dates
;
;
; OUTPUTS:
; array of julian day values
;
; EXAMPLE:
;IDL> print, euv_date2jd(['2000111223300', '2000111223300'])
;       2451655.4       2451655.4
;IDL> print, euv_date2jd('2000111223300')
;       2451655.4
;
;
;
; MODIFICATION HISTORY:
;
;       Sun Feb 11 10:17:30 2007, Brian Larsen
;		minor bugfix
;
;       Thu Feb 8 15:21:46 2007, Brian Larsen
;		written and tested
;
;-
FUNCTION euv_date2jd, euv_date
  compile_opt strictarr
  
  IF N_ELEMENTS(euv_date) EQ 0 THEN message, /ioerror, 'Null input not allowed'

  IF N_ELEMENTS(euv_date) EQ 1 THEN BEGIN 
     euv_date2 = replicate(euv_date, 2) 
     one = 1
  ENDIF ELSE euv_date2 = euv_date
  
  arr = euv_date2arr(euv_date2)
  
  md = doy2md(arr[1,*], arr[0,*])
  month = md[*,0]
  day = md[*,1]
  
  jd = julday(month, day, arr[0,*], arr[2,*], arr[3,*], arr[4,*])

  IF KEYWORD_SET(one) THEN return, jd[0]
  
  return, jd
  
END