function t = ust_prog(a)
a = abs(a);
a = sort(a,'descend');
if size(a,1) < numa
    t = a(end);
else
    t = a(numa);
end

[sndct,ind] = sort(abs(ndct),'descend');