function [A1, icasig1] = remove_largest(A, icasig)

A = abs(A);
s = sum(A, 1);
[C, I] = max(s);
A1 = [A(:,1:I-1) A(:,I+1:size(A,2))];
icasig1 = [icasig(1:I-1,:); icasig(I+1:size(icasig,1),:)];

