;
;
;HISTORY:
;V1.0	19-Oct-92 (MDM)
;V1.1	 2-Mar-94 (MDM) - Corrected a roundoff problem
;
openw, lun, 'ref_weeks.txt', /get_lun
printf, lun, 'REF_WEEKS.PRO  Ver 1.1  2-Mar-94'
printf, lun, 'Program Run: ', !stime
printf, lun, '  '
;
printf, lun, '                         Reformatter Version (1.xx)'
printf, lun, 'Week ' + string(indgen(25), format='(25(1x,".",i2.2))')
printf, lun, '  '
;
weeks = week_loop('15-sep-91', !stime)
;
for iweek=0,n_elements(weeks)-1 do begin
    week = string(weeks(iweek).year, weeks(iweek).week, format="(i2.2,'_',i2.2)")
    fil = weekid(week, /xbd, /all)
    ;
    out = strarr(25) + '  . '
    if (fil(0) ne '') then begin
	for ifil=0,n_elements(fil)-1 do begin
	    print, 'Now Reading: ', fil(ifil)
	    rd_tapdir, fil(ifil), header, drec
	    ver = header.reforver/1000.
	    ii0 = (ver-1)*100
	    ii = fix((header.reforver-1000)/10)
	    print, ver, ii0, fix(ii0), ii
	    made = string(header.date)
	    made = strmid(made, 8, 2) + '-' + strmid(made, 4, 3) + '-' + strmid(made, 22, 2)
	    date = strmid( ex2fid( anytim2ex(made) ), 0, 4)
	    if (ver ge 1) then out(fix(ii)) = date
	end
    end
    str = week + ' ' + string(out, format='(25(a4))')
    print, str
    printf, lun, str
end
;
free_lun, lun
end