function [Vessel_Centerline_Segments]=VasosDefinitivos(Sub_Intensidad,Sub_Candidates,Valor_Ref,Vessel_Centerline_Segments)

[filas,columnas]=size(Sub_Intensidad);
if Sub_Candidates(1)~=0

    for i=1:columnas
        if Sub_Intensidad(i)*sqrt(Sub_Candidates(i,3))>=Valor_Ref
            longitud=Sub_Candidates(i,3);
            for j=4:2:(2*longitud+3)
                Vessel_Centerline_Segments(Sub_Candidates(i,j),Sub_Candidates(i,j+1))=1;
            end
        end
    end
end