;-------------------------------------------------------------
 
function jd2ex, jd

t_ref = '1-jan-79'
jd_ref = tim2jd(t_ref)
offset = double(jd-jd_ref(0))*86400d
t_ex = anytim2ex(anytim2ints(t_ref,off=offset))

return, t_ex
end