function doy2ex, doy, year, string=string
;
;
if (n_elements(year) eq 0) then begin
    tarr = anytim2ex(!stime)
    year = tarr(6)
end
;
daytim_jan1 = anytim2ints('1-jan-' + strtrim( year, 2) )
out = daytim_jan1
out.day = out.day + (doy-1) ;1-jan is DOY=1, don't increment
out = anytim2ex(out)
;
if (keyword_set(string)) then out = gt_day(out, /str)
return, out
end