;docformat = 'rst'
;+
;:Categories:
; time
;-
FUNCTION eve_jd_to_yd, jd
;
; $Id: jd_to_yd.pro,v 1.1.1.1 2009/05/28 21:58:01 evesdp Exp $
;
; Given a Julian Day number, returns the corresponding
; longword date of the form yyyyddd.ddd.
; B. G. Knapp, 87/02/06
d = jd+1931000.5D0
c = LONG(d/36524.25D0)
d = d+c-LONG(c/4)
y = LONG(d/365.250001D0)
RETURN,(y-9999L)*1000L+(d-LONG(y*365.25D0))
END