;docformat = 'rst' ; ;+ ;:Categories: ; time ;- FUNCTION eve_yd_to_jd, yd ; ; $Id: yd_to_jd.pro,v 1.1.1.1 2009/05/28 21:58:01 evesdp Exp $ ; ; Returns the double-precision Julian Day Number, ; given a Gregorian date of the form yyyyddd.ddd. ; B. G. Knapp, 87/02/04 y = LONG(yd/1000)+9999L d = (ABS(yd) MOD 1000)-1931000.5D0 RETURN,LONG(y*365.25D0)+y/400-y/100+d END