function rd_ref_log, last_day, ndays=ndays
;
;
;
if (n_elements(last_day) eq 0) then last_day = strmid(!stime, 0, 11)
if (n_elements(ndays) eq 0) then ndays = 20
;
day1_str = '30-Aug-91'
tarr1 = timstr2ex(day1_str)
ex2int, tarr1, time1, day1
;
outfil = '$DIR_REFORMAT_STAT/reformat.log'
fmt = '(1x, a9, 3x, f7.3, 3x, a23, 3x, a4)'
;
openr, lun, outfil, /get_lun
ex2int, anytim2ex(last_day), time, day
n = (day-day1-(ndays-1))>0
;
log0 = make_str("{dummy, day: ' ', progver: 0.0, day_done: ' ', qdone: ' '}")
log = replicate(log0, ndays)
;
point_lun, lun, n*54
for i=0,ndays-1 do begin
    day = ' '
    progver = 0.0
    day_done = ' '
    qdone = ' '
    readf, lun, day, progver, day_done, qdone, format=fmt
    log(i).day		= day
    log(i).progver	= progver
    log(i).day_done	= day_done
    log(i).qdone	= qdone
end
;
free_lun, lun
return, log
end