function [x]=selif(a,b)
x=[];
// Copyright (C) 2001 Michel Juillard
// 
 
if size(b,2)~=1 then
  error('The second argument in SELIF must be à column vector');
end
 
x = a(matrix(find(b==1),1,-1),:);
 
return