function [A,vert,p,c,cont]=fila(A,vert,p,c,cont,filas)
m = size(A,1);

for i=1:m
    if A(filas,i) == 1 && vert(i) != 0
        p(cont) = i;
        vert(i) = 0;
        cont = cont+1;
        A(i,filas) = 0;
        A(filas,i) = 0;
        [A,vert,p,c,cont]=fila(A,vert,p,c,cont,i);
    end
end