Home > . > selif.m

selif

PURPOSE

SYNOPSIS

function x = selif(a,b)

DESCRIPTION

 Copyright (C) 2001 Michel Juillard

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

bksupk

SOURCE CODE

0001 % Copyright (C) 2001 Michel Juillard
0002 %
0003 function x = selif(a,b)
0004 
0005 if size(b,2) ~= 1
0006     error ('The second argument in SELIF must be  column vector') ;
0007 end
0008 
0009 x = a(find(b == 1),:) ;
0010 
0011 return ;
0012