function [data_nonan,loc_leads_nonan]=q_nan_del(data,loc_leads);

nan_index=find(isnan(data)==1);

if isempty(nan_index)
    data_nonan=data;
    loc_leads_nonan=loc_leads;
    
else
    data(nan_index)=[];
    data_nonan=data;
    for i=1:length(loc_leads)
        temp=loc_leads{i};
        temp(nan_index,:)=[];
        loc_leads_nonan{i}=temp;
    end
end