pro xrt_perf,year,month,days,tstr,n_fw,im_min

  dir='/archive/hinode/xrt/level0/'

  mm=month
  if (month lt 10) then mm='0'+strtrim(month,1)

  datadir=strtrim(dir,1)+'/'+strtrim(year,1)+'/'+strtrim(mm,1)

  n_fw=[0]
  im_min=[0]
  tstr=[' ']

  for i=1, days do begin
     dd=strtrim(i,1)
     if (i lt 10) then dd='0'+strtrim(i,1) 
     print,'Day '+ strtrim(dd,1)
     
     for j = 0, 23 do begin
        hh='h'+strtrim(j,1)+'00'
        if (j lt 10) then hh='h0'+strtrim(j,1)+'00'
        print,'Hour '+strtrim(hh,1)

        hdatadir=datadir+'/'+dd+'/'+hh+'/'
        file=file_search(hdatadir+'XRT*.[0-9].*',count=cnt)
        
        if (cnt gt 0) then begin
           read_xrt,file,in,/force
           fw=strtrim(in.ec_fw1,1)+'.'+strtrim(in.ec_fw2,1)
           n_fw=[n_fw, n_elements(fw[uniq(fw,sort(fw))])]
           tstr=[tstr,strtrim(year,1)+'-'+strtrim(mm,1)+'-'+strtrim(dd)+$
                'T'+strtrim(j,1)+':00:00.0']
           im_min=[im_min,n_elements(file)/60.]
        endif

     endfor
  endfor

remove,[0],tstr,n_fw,im_min


return
end