function [U] = scfv(U,sens)

%function [U] = scfv(U,sens)
%select column from vector
%function [U] = cvcfu(U,i,sens)
%U matrice da cui tenere le colonne
%sens 1xvar=[ 1 5 8 12  23 30 31 32 33]
%sens vettore delle colonne da tenere
%i indice del sensore di cui si fa l'identificazione da cancellare

           
 [r c]=size(U);
 %faccio serie di operazioni per essere robusto alla scrittura del vettore
 %sens
 sens=sort(sens);
 
 for j=1:length(sens)
    if sens(j)>c
       sens=sens(1:j-1);
       break
    end
 end
 
 %controllo la presenza di doppioni
 for jj=1:length(sens)
     for j=2:length(sens)
         if sens(j-1)==sens(j)
            sens=cancel_y_from_U(sens,j);
            break
         end
     end
 end
 
 sens=sort(sens);
 UU_out=[];
 
 for i=1:length(sens)
    
   U_out=[U_out U(:,sens(i))];
    
 end
