function [U] = cvcfu(U,i,sens)

%function [U] = cenella_sens_colonne(U,i,sens)
%U matrice da cui cancellare le colonne 
%sens 1xvar=[ 1 5 8 12  23 30 31 32 33]

           
 [r c]=size(U);
 
 sens=fliplr(sens);
 iuj=0;
 jmi=0;
 
 for j=1:length(sens)
    if sens(j)> i
        U=cancel_y_from_U(U,sens(j));
    elseif sens(j)== i
        U=cancel_y_from_U(U,sens(j));
        iuj=1;
    elseif sens(j) < i
        if iuj==1
            U=cancel_y_from_U(U,sens(j));
        elseif iuj==0
            if jmi=0
                U=cancel_y_from_U(U,i);
                U=cancel_y_from_U(U,sens(j));
                jmi=1;
            elseif jmi==1
                U=cancel_y_from_U(U,sens(j));
            end
        end
    end
     
 end
