function [vc,vil]=coloane(x,nalloc,val,col,link);  j=1; cl=1;for i=1:nalloc;    if(col(i) == x);	    	    vc(j)=val(i);	    vil(j)=cl;	    j++;  endif;  if (link(i) == -1) cl++;  endifendfor;vc;vil;endfunction;