pro ref_super_log, tarr, progVer, init=init, date=date
;
;
;HISTORY:
;	Written Fall '91 by M.Morrison
;	 5-May-93 (MDM) - Changed pointer offset to be INTEGER*4
;
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)'
if (keyword_set(init)) then begin
    openw, lun, outfil, /get_lun
    for i=0, 2000 do begin
	str = gt_day(day1+i, /str)
	printf, lun, str, 0.0, ' ', ' ', format=fmt
    end
    free_lun, lun
    return 
end
;
openu, lun, outfil, /get_lun
ex2int, tarr, time, day
n = long(day-day1)
point_lun, lun, n*54
if (n_elements(date) eq 0) then date = !stime
str = string(gt_day(tarr, /str), progver, date, 'Done', format=fmt)
writeu, lun, str
;
free_lun, lun
end