pro do_mkhdr, d0, d1, year = year, use_env = use_env

if not keyword_set(year) then $
  year = long(strmid(systime(), 4, /reverse))

if keyword_set(use_env) then base = getenv("SMEI_IMAGES")+'/' $
else base = './'
if n_params() eq 1 then d1 = d0

for d = d0, d1 do mk_imghdrtxt, base+string(year, d, format = $
                                            "(I4.4,'_',I3.3)")

end