function A = do_work_fourier(m,H)

rsH = sum(abs(H),2)';
csH = sum(abs(H));

rH = percent(rsH,m);
cH = percent(csH,m);

A = [rH, cH];




