coloane.m

Format Linked List for sparse Matrix

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++;
  endif
endfor;
vc;
vil;
endfunction;