pro move_sizes, dir_in, a=a, b=b
;
;assumes that all files for a given day are in one directory
;
dir_a = [finddir('reformat_a1'), finddir('reformat_a2')]
dir_b = [finddir('reformat_b1'), finddir('reformat_b2')]
;
if (keyword_set(a)) then dir_in = dir_a
if (keyword_set(b)) then dir_in = dir_b
;
if (n_elements(dir_in) eq 0) then begin
    yesnox, 'Files to be moved are in "A"?', in, 'Y'
    if (in eq 1) then dir_in = dir_a else dir_in = dir_b
end
;
ff = file_list(dir_in, 'ada*')
break_file, ff, dum1, dum2, filnam	;yymmdd portion of file
day_list = filnam(uniq(filnam))
day_list = strmid(day_list, 3, 6)
n = n_elements(day_list)
;
tot1 = fltarr(n)
tot2 = fltarr(n)
;
for i=0,n-1 do begin
    str = day_list(i)+'*'
    idir = -1
    repeat begin
	idir = idir+1
	ff = file_list( dir_in(idir), 'ada'  + str )
    end until (ff(0) ne '')
    ;
    tot1(i) = disktot( concat_dir(dir_in(idir), '*'+str) )/1e+6
    tot2(i) = disktot( concat_dir(dir_in(idir), 'cba'+str) )/1e+6
end
;
tot3 = tot1 - tot2
;
      ;' 1  910923*   61.29   15.41   45.87   0-1   87.3   2-3   59.9
print, ' #   Day      All     CBA    Non-CBA  Non-CBA Totals for days
print, '                                           
print, '                                     St-End       St-End
for i=0,n-1 do begin
    str = day_list(i)+'*'
    xx1 = total(tot3(0:i))
    xx1s = '0-' + strtrim(i,2)
    xx2 = 0
    xx2s = '---'
    if (i ne n-1) then begin
	xx2 = total(tot3(i+1:n-1))
	xx2s = strtrim(i+1,2) + '-' + strtrim(n-1,2)
    end

    print, i, str, tot1(i), tot2(i), tot3(i), xx1s, xx1, xx2s, xx2, format='(i2, 2x, a, 3f8.2, 2(3x,a,f7.1))'
end
;
end