;+
;
; @file_comments
; gives vairmer date equivalent of a date in julian format
; sets month, day and year to the corresp values
;
; you better use jul2date
;
; @obsolete
;
; @examples
;
; IDL> vdate = vairdate(1755087)
;
; @param jdate {in}{required}
; date en jours juliens
;
; @keyword MENSUEL
; a activer si on veut pour que les dates dont le jour est
; 15 deviennent avec un jour egale a 0. par ex:
; 19990115 -> 19990100
;
; @keyword ANNUEL
; a activer si on veut pour que les dates dont le mois est
; 6 et dont le jour est 1 deviennent avec un mois et jour egale a
; 0. par ex:
; 19990601 -> 19990000
;
; @keyword _EXTRA
; Used to pass keywords
;
; @returns
; vdate date vairmer plus year, month et day
;
; @uses
; common
;
; @history
; Jerome Vialard (jv\@lodyc.jussieu.fr)
; 2/7/98
; 13/9/1999, Sebastien Masson (smasson\@lodyc.jussieu.fr)
; ANNUEL,MENSUEL,_EXTRA et possibilite
; d''utiliser vairdate avec des scalaire ou des
; tableaux
;
; @version
; $Id$
;
;-
function vairdate, jdate, ANNUEL=annuel, MENSUEL=mensuel, _EXTRA=ex
;
compile_opt idl2, strictarrsubs, obsolete
;
@common
caldat, jdate, month, day, year, _EXTRA = ex
index = where(year eq -1)
if index[0] NE -1 then year[index] = 0
if keyword_set(mensuel) THEN BEGIN
index = where(day EQ 15)
if index[0] NE -1 then day[index] = 0
endif
if keyword_set(annuel) THEN BEGIN
index = where(day EQ 1 AND month EQ 6)
if index[0] NE -1 then BEGIN
day[index] = 0
month[index] = 0
endif
endif
;------------------------------------------------------------
return, 10000L*year+100L*month+day
;------------------------------------------------------------
end
;------------------------------------------------------------