;+
;
; @file_comments
; gives julian date equivalent of a date in vairmer
; ( yymmdd or yyyymmdd ) format
; sets month, day and year to the corresp values
;
; you better use date2jul
;
; @obsolete
;
; @categories
; Calendar
;
; @param vvdate {in}
; date de la forme yymmdd ou yyyymmdd
;
; @keyword _EXTRA
; Used to pass keywords
;
; @uses
; <pro>common</pro>
; <pro>vraidate</pro>
;
; @returns
; date en jour julien
;   l'annee 0 n'existant pas, qd year est nulle on calcule le
;     jour julien de l'annee -1.
;   COMPATIBLE AVEC L'AN 2000 !!!: une date de la forme yymmdd est
;    convertit sous la forme yyyymmdd a l''aide de vraidate.
;   Attention, les variables globales year, month day sont attribuees
;
; @examples
;
;   IDL> date = juldate(930124)
;
; @history
; Jerome Vialard  (jv\@lodyc.jussieu.fr)
; 2/7/98
;
; @version
; $Id$
;
;-
function juldate, vvdate, _EXTRA=ex
;
  compile_opt idl2, strictarrsubs, obsolete
;
vdate = vvdate
vdate = vraidate(vdate, _EXTRA = ex)
@common
;------------------------------------------------------------
   year=vdate/10000
   month=vdate/100 - year*100
   day=abs(vdate - year*10000 - month*100)
   month = abs(month)
;
   mm = month & dd = day & yy = year
;------------------------------------------------------------
   ndate = n_elements(vdate)
   if total(mm EQ 0) EQ ndate then mm[*] = 6
   if total(dd EQ 0) EQ ndate then dd[*] = 15
   if total(yy EQ 0) EQ ndate THEN yy[*] = -1
;------------------------------------------------------------
   return, julday(mm,dd,yy, _EXTRA = ex)
;------------------------------------------------------------
   return, -1
end
;------------------------------------------------------------