matthiasm@8: function outmat = maxfilt1(inmat, len)
matthiasm@8: outmat = inmat;
matthiasm@8: for i = find(sum(inmat)>0)
matthiasm@8:     indi = max(1,i-len):min(size(inmat,2),i+len-1);
matthiasm@8:     temp = inmat(indi,:);
matthiasm@8:     outmat(i,:) = max(temp,[],1);
matthiasm@8: end
matthiasm@8: